R/upcase_string.r

Defines functions upcase_string

# name:upcase_string
upcase_string <- function(x, tosplit = " ") {
  s <- strsplit(x, tosplit)[[1]]
  paste(toupper(substring(s, 1,1)), substring(s, 2),
      sep="", collapse=tosplit)
}
ivanhanigan/disentangle documentation built on Feb. 19, 2022, 9:22 a.m.