Прописать первую букву обоих слов в строке из двух слов

Question

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

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")

Answer 1

Это дает заглавные буквы всем основным словам

library(lettercase)
xString = str_title_case(xString)