Извлечь первую строку в предложении

Question

У вас есть предложение, в котором мне нужно извлечь первое четное слово.Например,

  df <- ("This is not the sentence")

. Для вышеприведенного предложения мне нужно извлечь "This", потому что это первое четное слово

Другой пример:

  df <- ("She is not going anywhere")

ДляПриведенное выше предложение мне нужно извлечь "is", потому что это первое четное слово

Answer 1

Мы можем написать функцию для этого.Мы разбиваем строку на количество пробелов по количеству символов в каждом слове и возвращаем первое четное слово.

extract_first_even_word <- function(text) {
   all_words <- strsplit(text, "\\s+")[[1]]
   all_words[which.max(nchar(all_words) %% 2 == 0)]
}
extract_first_even_word("This is not the sentence")
#[1] "This"

extract_first_even_word("She is not going anywhere")
#[1] "is"