R/ptd_capitalise.R

Defines functions ptd_title_case ptd_capitalise

ptd_capitalise <- function(x) {
  substr(x, 1, 1) <- toupper(substr(x, 1, 1))
  x
}

ptd_title_case <- function(x) {
  ptd_capitalise(gsub("_(.)", " \\U\\1", x, perl = TRUE))
}

Try the NHSRplotthedots package in your browser

Any scripts or data that you put into this service are public.

NHSRplotthedots documentation built on Nov. 4, 2021, 1:07 a.m.