Подсчитать количество всех слов в строке

Есть ли функция для подсчета количества слов в строке? Например:

str1 <- "How many words are in this sentence"

, чтобы вернуть результат 7.