pmtools.Rcheck/00_pkg_src/pmtools/R/miscFuncs.r

In PDXChris/pmtools: Tools for Working with PAWMAP Data

#' A Set of Miscellaneous Functions for Working with Data.
#'
#' @param x  A string to convert to title case.
#' @return A string in title case
#' @examples
#' simpleCap('a lower case string')


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