many_words <- c("apple", "banana", "Pig", "string")
substr
(many_words
, 1, 1) <- toupper(substr
(many_words
, 1, 1))many_words
bWFueV93b3JkcyA8LSBjKCJhcHBsZSIsICJiYW5hbmEiLCAiUGlnIiwgInN0cmluZyIpIApzdWJzdHIobWFueV93b3JkcywgMSwgMSkgPC0gdG91cHBlcihzdWJzdHIobWFueV93b3JkcywgMSwgMSkpCm1hbnlfd29yZHMK