R/capwords.R

In gpaux/Mediana: Clinical Trial Simulations

######################################################################################################################

# Function: capwords.
# Argument: String.
# Description: This function is used to capitalize every first letter of a word

capwords <- function(s, strict = FALSE) {
  cap <- function(s) paste(toupper(substring(s, 1, 1)),
                           {s <- substring(s, 2); if(strict) tolower(s) else s},
                           sep = "", collapse = " " )
  sapply(strsplit(s, split = " "), cap, USE.NAMES = !is.null(names(s)))
}