Conta il numero di tutte le parole in una stringa

Esiste una funzione per contare il numero di parole in una stringa? per esempio

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

per restituire un risultato di 7

Grazie.