Я ищу grep способ получить символы в строке до первого пробела.

Я взломал следующую функцию, так как я не мог понять, как это сделать, используяgrep введите команды вR.

Может ли кто-нибудь помочь сgrep решение - если есть один ...

beforeSpace <- function(inWords) {
    vapply(inWords, function(L) strsplit(L, "[[:space:]]")[[1]][1], FUN.VALUE = 'character')
}
words <- c("the quick", "brown dogs were", "lazier than quick foxes")
beforeSpace(words)

R>          the quick         brown dogs were lazier than quick foxes 
              "the"                 "brown"                "lazier" 

И дай мне знать, если есть лучший способ, чемgrep (или моя функция,beforeSpace) сделать это.