複数の基準を持つR strsplit（）

Question

異なる基準に基づいて文を分割しようとしています。私はいくつかの文を "is"の後に分割し、 "never"の後に分割することを検討しています。私はこれらの条件のどちらかに基づいて文を分割することができましたが、両方を分割することはできませんでした。

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" 

"never"の後に最後の文を分割したいと思います。私はそれを行う方法がわかりません。

Answer 1

正規表現のルックアラウンドを使用して、 'is'または 'never'の後のスペースで行を分割することができます。ここで、(?<=\\bis)\\s+は、isまたは|に続く1つまたは複数のスペース（\\s+）と、「never」という単語に続くスペース（\\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"