fork download
copy 
  1. actions <- c("taking","using")
  2. nouns <- c("medication","prescription")
  3. phrases <- c("he was using medication","medication using it","finding medication","taking the left","using prescription medication","taking medication drug")
  4. grep(paste0("(",paste(actions, collapse="|"), ")\\s+(", paste(nouns,collapse="|"),")"), phrases, value=FALSE)
  5. ## and a visual check
  6. grep(paste0("(",paste(actions, collapse="|"), ")\\s+(", paste(nouns,collapse="|"),")"), phrases, value=TRUE)
  7.  
Success #stdin #stdout 0.22s 60752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] 1 5 6
[1] "he was using medication"       "using prescription medication"
[3] "taking medication drug"
https://ideone.com/e7Ae5S
language:
R (R 3.5.2)
created:
7 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!