R/titlecase.R

In helophilus/ColsTools: A variety of convenience tools and short-cuts

#' sentence case for single character string
#'
#' \code{titlecase(name)}
#'
#' @details converts case of a text string; first letter is upper case,
#' others are lower case.
#'
#' @param \code{name} name or vector of names.


titlecase=function(text){
  L=nchar(text)
  paste(toupper(substr(text,1,1)),tolower(substr(text,2,L)),sep='')
}