R strsplit() с несколькими критериями

Question

Я пытаюсь разделить предложения на основе разных критериев. Я хочу разделить некоторые предложения после «есть», а некоторые после «никогда». Я смог разделить предложения на основе любого из этих условий, но не обоих.

str <- matrix(c("This is line one", "This is not line one", 
       "This can never be line one"), nrow = 3, ncol = 1) 

>str 
    [,1]       
[1,] "This is line one"   
[2,] "This is not line one"  
[3,] "This can never be line one" 

str2 <- apply(str, 1, function (x) strsplit(x, " is", fixed = TRUE)) 

> str2 
[[1]] 
[[1]][[1]] 
[1] "This"  " line one" 


[[2]] 
[[2]][[1]] 
[1] "This"   " not line one" 


[[3]] 
[[3]][[1]] 
[1] "This can never be line one" 

Я хотел бы разделить последнее предложение после «никогда». Я не уверен, как это сделать.

Answer 1

Мы можем использовать регулярные выражения для разделения строк в пространстве после «есть» или «никогда». Здесь (?<=\\bis)\\s+ соответствует одному или нескольким пробелам (\\s+), которые следуют за is или |, чтобы соответствовать пробелам (\\s+), которые следуют за словом «никогда».

strsplit(str[,1], "(?<=\\bis)\\s+|(?<=\\bnever)\\s+", perl = TRUE) 
#[[1]] 
#[1] "This is" "line one" 

#[[2]] 
#[1] "This is"  "not line one" 

#[[3]] 
#[1] "This can never" "be line one" 

Если мы хотим, чтобы удалить 'есть' и 'никогда' также

strsplit(str[,1], "(?:\\s+(is|never)\\s+)") 
#[[1]] 
#[1] "This"  "line one" 

#[[2]] 
#[1] "This"   "not line one" 

#[[3]] 
#[1] "This can" "be line one"