R/tcase.R

Defines functions tcase

tcase <- function(x) {
  sapply(x, function(y) {
    ly <- nchar(y)
    paste0(toupper(substr(y, 1, 1)), substr(y, 2, ly))
  }, USE.NAMES = FALSE)
}
cszang/treeclim documentation built on Feb. 18, 2022, 4:54 a.m.