R/capitalize.R

Defines functions capitalize

####################################################################################################################################
################################## capitalize ######################################################################################
# >>
capitalize  <- function(text) {
    s <- strsplit(text, " ")[[1]]
    paste(toupper(substring(s, 1,1)), substring(s, 2),
          sep="", collapse=" ")
}
# <<
################################## capitalize ######################################################################################
####################################################################################################################################


####################################################################################################################################
################################## Help Code #######################################################################################
# >>
# Text = capitalize(text)
# <<
################################## Help Code #######################################################################################
####################################################################################################################################
ShashankKumbhare/paramonteR documentation built on April 25, 2022, 12:08 a.m.