R/propercase.R

In shug0131/cctu: In-House Functions for Report Writing at Cambridge Clinical Trials Unit

#' Function to convert text to proper case
#'
#' @param text a character vector
#' @return a character vector converted to "proper" case, where each word
#' starts with a capital, and all subsequent letters are lower case
#'
#' @export



propercase <- function(text) {
  gsub("(\\w)([\\w|']*)", "\\U\\1\\L\\2", text, perl = TRUE)
}