R/getpkgs.R

In JVAdams/jvamisc: A Collection of Utility Functions

#' Get Packages
#'
#' Installs (if necessary) and attaches the specified packages.
#' @param want
#'   A character vector of package names.
#' @param ...
#'   Additional arguments to \code{\link{library}}.
#' @export

getpkgs <- function(want, ...) {
  # install (if necessary) and attach wanted packages
  have <- row.names(installed.packages())
  need <- want[!(want %in% have)]
  if (length(need)>0) {
    install.packages(need, repos="http://cran.r-project.org")
  }
  lapply(want, library, character.only=TRUE, quietly=TRUE, ...)
  invisible()
}