R/proper.R

In DataScienceSalon/j2Rtools:

#' proper
#'
#' \code{proper} Converts text string to proper case
#'
#' @author John James, \email{jjames@@DataScienceSalon.org}
#' @family Text Functions
#' @export
proper <- function(x) {
  s <- strsplit(x, " ")[[1]]
  paste(toupper(substring(s, 1,1)), substring(s, 2),
        sep="", collapse=" ")
}