regex dernier mot dans la chaîne r

library(stringr)

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