fork download
  1. examples <- c('Ben likes bananas. I have a banana.','Ben likes mangoes. I have a mango.','Ben likes plums. I have a plum.')
  2.  
  3. words <- c('bananas', 'mangoes', 'plums')
  4. regex <- paste0('\\b(', paste(words, collapse='|'), ')\\b')
  5.  
  6. unlist(regmatches(examples, gregexpr(regex, examples)))
Success #stdin #stdout 0.25s 39612KB
stdin
Standard input is empty
stdout
[1] "bananas" "mangoes" "plums"