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)'))