R/ipak.R

In hyunyulhenry/HenryQuant: Favorite R Functions for Henry's Quantopia <http://henryquant.blogspot.kr/>

#' Download & Load Packages
#'
#' ipak function will Download unpacked packages, then load packages.
#'
#' @param pkg List of packages to install.
#' @return Download & Install packages
#' @importFrom utils install.packages installed.packages
#' @examples
#' \dontrun{
#'   pkg = c("PerformanceAnalytics", "quantmod")
#'   ipak(pkg)
#'   }
#' @export
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)
}