fork download
copy 
  1. text <- c("This tree is veeeeery tall")
  2. words2keep <- c("tree", "tall")
  3. p <- paste0('\\b(?:',paste(collapse='|',words2keep),')\\b(*SKIP)(*F)|([A-Za-z])\\1+')
  4. ## OR: p <- paste0('(*UCP)\\b(?:',paste(collapse='|',words2keep),')\\b(*SKIP)(*F)|(\\p{L})\\1+')
  5. p
  6. gsub(p, '\\1',text, perl=TRUE)
Success #stdin #stdout 0.16s 175424KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1] "\\b(?:tree|tall)\\b(*SKIP)(*F)|([A-Za-z])\\1+"
[1] "This tree is very tall"
https://ideone.com/jRX9mM
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

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!