Function to load a list of packages and install package if absent

ipak.R

# Function to load a list of packages
# Installs if package is absent
#
# Pass character vector
# E.g. ipak(c("beepr", "dplyr", "adehabitat"))
#
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)
}