fork(2) download
  1. # https://es.stackoverflow.com/q/130214/127
  2.  
  3. data <- c("CASOSO"," ARBOSO","TOCO","POCO","LEJOS")
  4. gsub("O(?:S(O))?\\b", "\\1", data, perl=TRUE)
Success #stdin #stdout 0.19s 175424KB
stdin
Standard input is empty
stdout
[1] "CASO"  " ARBO" "TOC"   "POC"   "LEJOS"