library(stringr)

x <- c('ondaX', 'ondasX', 'ondasssX', 'onda', 'ondas')

str_extract(x, regex('ondas??X'))

str_extract(x, regex('ondas*?X'))