apreshill

# ipak function: install and load multiple R packages.
# check to see if packages are installed. Install them if they are not, then load them into the R session.

ipak <- function(pkg){
    new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
    if (length(new.pkg)) 
        install.packages(new.pkg, dependencies = TRUE)
    sapply(pkg, require, character.only = TRUE)
}

apreshill

# 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

apreshill

apreshill