R/zzz.R

In dirmeier/enviRonment: An R environment

#' @import devtools
.onAttach <- function(libname, pkgname)
{
  dat <- read.csv(system.file("packages.csv", package="enviRonment"),
                  header=F,
                  stringsAsFactors=F)
  source("https://bioconductor.org/biocLite.R")
  try({
    biocLite("BiocUpgrade")
    biocLite()
  })
  for (row in seq_len(nrow(dat)))
  {
    src  <- dat[row, 1]
    name <- dat[row, 2]
    url  <- dat[row, 3]
    if (!name %in% rownames(installed.packages()))
    {
      message(src)
      try(switch(
        src, "CRAN"   = install.packages(url, repos = "http://cran.us.r-project.org"),
             "github" = devtools::install_github(url),
             "bioc"   = biocLite(url),
             stop(paste("Wrong src", src))))
    }
  }
}