names2snake

# convert all column names to snake case
# make all column names lower case
# replace all . with _
names2snake <- function(data){
  require(stringr)
  require(dplyr)
  names(data) = names(data) %>%
    tolower() %>%
    str_replace_all(., "[.]", "_")
  data
}