R/simpleCap.R

Defines functions simpleCap

simpleCap = function(x) {
  s <- strsplit(x, " ")[[1]]
  paste(toupper(substring(s, 1,1)), substring(s, 2),
        sep="", collapse=" ")
}
douve/UEMR documentation built on Aug. 28, 2023, 2:30 p.m.