R/install_packages.R

In hbc/CHBUtils: "Useful utility functions used at the core"

# adapted from http://stackoverflow.com/questions/4090169/elegant-way-to-check-for-missing-packages-and-install-them
is_package_installed = function(package) {
    available = suppressMessages(suppressWarnings(sapply(package, require,
        quietly = TRUE, character.only = TRUE, warn.conflicts = FALSE)))
    missing = package[!available]
    if (length(missing) > 0) return(FALSE)
    return(TRUE)
}

install.cran = function(packages, default_mirror="http://cran.at.r-project.org") {
    for(i in packages) {
        if(!is_package_installed(i)) {
            options(repos = c(CRAN = defaultCRANmirror))
            suppressMessage(suppressWarnings(install.packages(i, dependencies = TRUE, default_mirror)))
        }
    }
}

install.bioconductor = function(packages) {
  source("http://bioconductor.org/biocLite.R")
  for(i in packages) {
    #  require returns TRUE invisibly if it was able to load package
    if(!is_package_installed(i)) {
      options(repos = c(CRAN = defaultCRANmirror))
      suppressMessage(suppressWarnings(biocLite(i, ask=FALSE)))
    }
  }
}

install.github = function(packages, username) {
    install.cran(c("devtools"))
    for(i in packages) {
        if(!is_package_installed(i)) {
            options(repos = c(CRAN = defaultCRANmirror))
            suppressMessage(suppressWarnings(biocLite(i, ask=FALSE)))
        }
    }
}