fork download
copy 
  1. go <- c("go after it", "here we go", "he went bust", "go get it go", "i 'm gon na go", "she 's going berserk")
  2. lemma_GO <- c("go", "goes", "going", "gone", "went", "gon na")
  3. pattern_GO <- paste0("\\b(", paste0(lemma_GO, collapse = "|"), ")\\b")
  4. library(stringr)
  5. str_extract_all(go, paste0("('?\\b[a-z']+\\b|^)(?=\\s?", pattern_GO, ")"))
  6.  
Success #stdin #stdout 0.32s 41820KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[[1]]
[1] ""

[[2]]
[1] "we"

[[3]]
[1] "he"

[[4]]
[1] ""   "it"

[[5]]
[1] "'m" "na"

[[6]]
[1] "'s"
https://ideone.com/z1podT
language:
R (R 3.5.2)
created:
5 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!