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)
}

Try the treeclim package in your browser

Any scripts or data that you put into this service are public.

treeclim documentation built on March 18, 2022, 7:22 p.m.