capitalize<-function(string) {
sub("^(.)","\\U\\1", string, perl=TRUE)
}
x <- c("i like chicken.", "mmh so good", NA)
capitalize(x)
Y2FwaXRhbGl6ZTwtZnVuY3Rpb24oc3RyaW5nKSB7CiAgIHN1YigiXiguKSIsIlxcVVxcMSIsIHN0cmluZywgcGVybD1UUlVFKQp9ICAKCnggPC0gYygiaSBsaWtlIGNoaWNrZW4uIiwgIm1taCBzbyBnb29kIiwgTkEpCmNhcGl0YWxpemUoeCk=