fork download
  1. library(stringr)
  2.  
  3. x <- c('horccaeon', 'coleon', 'volues', 'mol', 'nao', 'tom', 'nada',
  4. 'auio', 'aqoio')
  5. str_subset(string = x, regex(pattern = '.o[^o]'))
  6.  
  7. str_subset(string = x, regex(pattern = '.(?=o)'))
Success #stdin #stdout 0.24s 42552KB
stdin
Standard input is empty
stdout
[1] "horccaeon" "coleon"    "volues"    "mol"       "tom"       "aqoio"    
[1] "horccaeon" "coleon"    "volues"    "mol"       "nao"       "tom"      
[7] "auio"      "aqoio"