compter le mot dans une chaîne r

library(stringr)
str_count(string = "How many words are in this sentence", pattern = '\\w+')
Trustworthy Whale