R/unsnakecols.R

In neugelb/neugelbtools: Various small Neugelb tools

#' unsnakecols
#'
#' An easy function to unsnake column names - useful for displaying tables in reports
#' @param df Your data frame
#' @export

unsnakecols <- function(df) {

  dfnames <- colnames(df)

  dfnames <- unsnake(dfnames)

  colnames(df) <- dfnames

  return(df)
  
}