Finding the rhyming words in a corpus with R, regex

Question

I have the following corpus:

corpus_rhyme <- c("helter-skelter", "lovey-dovey", "riff-raff", "hunter-gatherer", "day-t