R/tc_names.R

In sbha/dfnames: Functions for Working with Data Frame Names

#' @title Convert data frame column names to Title Case
#'
#' @name to_title_case
#'
#' @description Function to convert data frame names to title names for export
#'
#' @param names data frame column names
#'
#' @examples to_title_case(names(iris))
#'
#' @export
to_title_case <- function(names){
  x <- to_snake_case(names)
  x <- make.unique(x, sep = "_")
  x <- gsub('_', ' ', x)
  x <- gsub("(^|[[:space:]])([[:alpha:]])", "\\1\\U\\2", x, perl=TRUE)
  x
}