library(stringr) x <- c('horccaeon', 'coleon', 'volues', 'mol', 'nao', 'tom', 'nada', 'auio', 'aqoio') str_subset(string = x, regex(pattern = '.o[^o]')) str_subset(string = x, regex(pattern = '.(?=o)'))
Standard input is empty
[1] "horccaeon" "coleon" "volues" "mol" "tom" "aqoio" [1] "horccaeon" "coleon" "volues" "mol" "nao" "tom" [7] "auio" "aqoio"