inst/testScripts/R/installUtils.R

installPkg <- function(pkg, ...) {
  # Parse 'pkg'
  pattern <- "^([^:]*):([^:]*)$"
  if (regexpr(pattern, pkg) != -1) {
    repos <- gsub(pattern, "\\1", pkg)
    pkg <- gsub(pattern, "\\2", pkg)
  } else {
    repos <- "CRAN"
  }

  # Nothing to do?
  if (isPackageInstalled(pkg)) return()

  # Assert known repository
  repos <- match.arg(repos, choices=c("CRAN", "BioC", "R-Forge"))

  tryCatch({
    if (repos == "CRAN") {
      install.packages(pkg)
    } else if (repos == "BioC") {
      if (getRversion() < "3.5.0") {
        source("https://www.bioconductor.org/biocLite.R")
        biocLite(pkg, suppressUpdates=TRUE, ask=FALSE)
      } else {
        if (!requireNamespace("BiocManager", quietly = TRUE)) {
          install.packages("BiocManager")
        }
        BiocManager::install(pkg)
      }
    } else if (repos == "R-Forge") {
      install.packages(pkg, repos="https://R-Forge.R-project.org")
    }
  }, error = function(ex) {
    print(ex)
  })
} # installPkg()


############################################################################
# HISTORY:
# 2012-09-01
# o Added installPkg(), which installs *some* known packages by their
#   names without having to specify the repository.
# o Created.
############################################################################
HenrikBengtsson/aroma.affymetrix documentation built on Feb. 20, 2024, 9:07 p.m.