R/capitalize.s

In harrelfe/Hmisc: Harrell Miscellaneous

Defines functions capitalize

Documented in capitalize

capitalize <- function(string) {
  capped <- grep("^[A-Z]", string, invert = TRUE)
  substr(string[capped], 1, 1) <- toupper(substr(string[capped], 1, 1))
  return(string)
}