Capitalize a primeira letra de ambas as palavras em uma sequência de duas palavras

Digamos que eu tenho uma sequência de duas palavras e quero colocar as duas em maiúscula

name <- c("zip code", "state", "final count")

OHmisc pacote tem uma funçãocapitalize que colocou em maiúscula a primeira palavra, mas não sei como obter a segunda palavra em maiúscula. A página de ajuda paracapitalize não sugere que ele possa executar essa taref

library(Hmisc)
capitalize(name)
# [1] "Zip code"    "State"       "Final count"

Quero obter:

c("Zip Code", "State", "Final Count")

E quanto às strings de três palavras:

name2 <- c("I like pizza")

questionAnswers(11)

yourAnswerToTheQuestion