## Install packages to a local library.
local.lib <- file.path(getwd(), "library")
old.path.vec <- .libPaths()
if(! local.lib %in% old.path.vec){
  dir.create(local.lib, showWarnings=FALSE, recursive=TRUE)
  .libPaths(local.lib)
}
## Download packages from R-Forge.
r.forge <- "http://r-forge.r-project.org"
old.repos.vec <- getOption("repos")
if(!r.forge %in% old.repos.vec){
  options(repos=c(r.forge, old.repos.vec))
}
## Install a new version if we have old versions of these packages.
install.if.old <- function(pkg, vers){
  unloadNamespace(pkg)
  if(packageVersion(pkg) < vers){
    install.packages(pkg)
  }
}
unloadNamespace("penaltyLearning")
install.if.old("survival", "2.41.2")
install.if.old("data.table", "1.9.8")
### Write down what package versions work with your R code, and
### attempt to download and load those packages. The first argument is
### the version of R that you used, e.g. "3.0.2" and then the rest of
### the arguments are package versions. For
### CRAN/Bioconductor/R-Forge/etc packages, write
### e.g. RColorBrewer="1.0.5" and if RColorBrewer is not installed
### then we use install.packages to get the most recent version, and
### warn if the installed version is not the indicated version. For
### GitHub packages, write "user/repo@commit"
### e.g. "tdhock/animint@f877163cd181f390de3ef9a38bb8bdd0396d08a4" and
### we use install_github to get it, if necessary.
works_with_R <- function(Rvers,...){
  pkg_ok_have <- function(pkg,ok,have){
    stopifnot(is.character(ok))
    if(!as.character(have) %in% ok){
      warning("works with ",pkg," version ",
              paste(ok,collapse=" or "),
              ", have ",have)
    }
  }
  pkg_ok_have("R",Rvers,getRversion())
  pkg.vers <- list(...)
  for(pkg.i in seq_along(pkg.vers)){
    vers <- pkg.vers[[pkg.i]]
    pkg <- if(is.null(names(pkg.vers))){
      ""
    }else{
      names(pkg.vers)[[pkg.i]]
    }
    if(pkg == ""){# Then it is from GitHub.
      ## suppressWarnings is quieter than quiet.
      if(!suppressWarnings(require(requireGitHub))){
        ## If requireGitHub is not available, then install it using
        ## devtools.
        if(!suppressWarnings(require(devtools))){
          install.packages("devtools")
          require(devtools)
        }
        install_github("tdhock/requireGitHub")
        require(requireGitHub)
      }
      requireGitHub(vers)
    }else{# it is from a CRAN-like repos.
      if(!suppressWarnings(require(pkg, character.only=TRUE))){
        install.packages(pkg)
      }
      pkg_ok_have(pkg, vers, packageVersion(pkg))
      library(pkg, character.only=TRUE)
    }
  }
}
works_with_R(
  c("3.3.3", "3.4.0"),
  neuroblastoma="1.0",
  future="1.4.0",
  Segmentor3IsBack="2.0",
  changepoint="2.2",
  directlabels="2017.3.31",
  data.table=c("1.10.4", "1.10.5"),
  survival=c("2.41.2", "2.41.3"),
  ggplot2=c("2.1.0", "2.2.1"),
  ##penaltyLearning="2017.5.8"
  "tdhock/penaltyLearning@dcdf16147ed9be1689e2b8e120cd3135165eaafd"
  )
future::plan(multiprocess)