Split строка рекурсивно

Question

Скажем, у меня есть текст, как это:

pattern = "This_is some word/expression I'd like to parse:intelligently(using special symbols-like '.')" 

Задача состоит в том, чтобы разбить его на слова, используя разделители слов из семейства

c(" ","-","/","\\","_",":","(",")",".",",") 

.

Желаемый результат:

"This" "is" "some" "word" "expression" "I'd" "like" "to" "parse" "intelligently" "using" "special" "symbols" "like" 

Методы:

я мог бы сделать sapply или for петлю с помощью:

keywords = unlist(strsplit(pattern," ")) 
keywords = unlist(strsplit(keywords,"-")) 

# т.д.

Вопрос:

Но какое решение использует Reduce(f, x, init, accummulate=TRUE)?

Answer 1

Вы можете использовать опцию perl = TRUE, а затем разделить на пунктуации или пространстве

> strsplit(pattern, '[[:punct:]]|[[:space:]]', perl = TRUE) 
[[1]] 
[1] "This"   "is"   "some"   "word"   "expression" 
[6] "I"    "d"    "like"   "to"   "parse"   
[11] "intelligently" "using"   "special"  "symbols"  "like"   
[16] ""  

Answer 2

Здесь не нужно Reduce. Вы должны быть в состоянии сделать что-то вроде следующего:

splitters <- c(" ","/","\\","_",":","(",")",".",",","-") # dash should come last 
pattern <- paste0("[", paste(splitters, collapse = ""), "]") 
string <- "This_is some word/expression I'd like to parse:intelligently(using special symbols-like '.')" 
strsplit(string, pattern)[[1]] 
# [1] "This"   "is"   "some"   "word"   
# [5] "expression" "I'd"   "like"   "to"   
# [9] "parse"   "intelligently" "using"   "special"  
# [13] "symbols"  "like"   "'"    "'" 

Обратите внимание, что в регулярных выражений класса персонажу - должен прийти первым или последним, поэтому я отредактировали вектор «раскольников» соответственно. Кроме того, вы можете добавить + в конце вашего «шаблона», если вы хотите свернуть, скажем, несколько пробелов в один.

Answer 3

Я бы с (Он будет держать "I'd" вместе)

strsplit(pattern, "[^[:alnum:][:digit:]']") 
## [[1]] 
## [1] "This"   "is"   "some"   "word"   "expression" "I'd"   "like"   "to"   "parse"   
## [10] "intelligently" "using"   "special"  "symbols"  "like"   "'"    "'"