R/utils-capitalize.R

capitalize <- function(x) {

  var <- paste0(
    toupper(substr(x, 1, 1)),
    substr(x, 2, nchar(x))
  )

  return(var)

}
tyluRp/treeco documentation built on May 26, 2019, 5:40 p.m.