Extrair tudo antes do terceiro espaço (String)

Caros bom dia!

Qual código utilizo no R para pegar a esquerda do texto até o 3º espaço?

Exemplo:
Kong Classic Large Grande Brinquedo Dispenser
Kit Body Bebê Manga Longa Liso

Assim que necessito:
Kong Classic Large
Kit Body Bebê

Uma possível alternativa utilizando regex:

textos <- c(
    "Kong Classic Large Grande Brinquedo Dispenser",
    "Kit Body Bebê Manga Longa Liso",
    "Com dois espaços",
    "Um espaço",
    "SemEspaço",
    ""
)

stringr::str_extract(textos, "[^ ]+ ?[^ ]+ ?[^ ]+")
#> [1] "Kong Classic Large" "Kit Body Bebê"      "Com dois espaços"  
#> [4] "Um espaço"          "SemEspaço"          NA

Created on 2020-09-20 by the reprex package (v0.3.0)

2 Curtidas

Athos boa tarde!

Top demais! Funcionou.

1 Curtida