R/unsnake.R

In neugelb/neugelbtools: Various small Neugelb tools

#' unsnake
#'
#' Quickly convert a snake case value to a title case value. Useful for plotting charts and for presentation tables
#' @param element The element you want to unsnake - it could be a vector, an individual value or a column(s)
#' @export

unsnake <- function(element) {

  x <- str_to_title(gsub('_',' ',element,fixed=TRUE))

  return(x)
}