Regex Lastes Wort in String R.

library(stringr)

sentence <- "The quick brown fox"
word(sentence,-1)
[1] "fox"
Trustworthy Whale