R/tidycols.R

In randallhelms/cakeR: Calculate cake ingredients and prices

tidycols <- function(df) {
  require(snakecase)

  dfnames <- colnames(df)

  dfnames <- to_snake_case(dfnames,sep_out = "_")

  dfnames <- tolower(gsub(" ","_",dfnames))

  dfnames <- gsub(".","_",dfnames,fixed=TRUE)

  dfnames <- gsub("/","_per_",dfnames,fixed=TRUE)

  colnames(df) <- dfnames

  return(df)
}