R/simple_cap.R

In jfq3/RDPutils: R Utilities for Processing RDPTool Output

Defines functions simple_cap

Documented in simple_cap

simple_cap <- function(x) {
  s <- strsplit(x, " ")[[1]]
  paste(toupper(substring(s, 1,1)), substring(s, 2),
        sep="", collapse=" ")
}