R/load_pkg.R

In MikhaelManurung/mdmisc: MDM's Miscellaneous

load_pkg <- function(...){
    pkg <- c(...)
    new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
    if (length(new.pkg))
        install.packages(new.pkg, dependencies = TRUE)
    invisible(sapply(pkg, function(x) {
        suppressPackageStartupMessages(library(x, quietly = TRUE, verbose = FALSE, warn.conflicts = FALSE, character.only = TRUE))}
    ))
}