R/cap_first.R

In martinctc/textworks: All-in-one package for working with text data

#' Capitalise the first letter of all words
#'
#' @param string String or character vector to pass through.
#'
#' @examples
#' cap_first("steeles pots and pans")
#'
#' @export
cap_first <- function(string) {
  gsub("(^|[[:space:]])([[:alpha:]])", "\\1\\U\\2", string, perl = TRUE)
}