Сделать первые буквы обоих слов заглавными в строке из двух слов

Допустим, у меня есть строка из двух слов, и я хочу использовать заглавные буквы оба.

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

В пакете Hmisc есть функция capitalize , которая использует первое слово с большой буквы, но я не уверен как сделать второе слово заглавным. Страница справки для capitalize не предполагает, что он может выполнить эту задачу.

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

Я хочу получить:

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

А как насчет строк из трех слов:

name2 <- c("I like pizza")