gistfile1.txt

# Reload the suite of Syberia packages. This will be automated later.
require(devtools)
pkgs <- strsplit("Ramd productivus stagerunner statsUtils mungebitsTransformations mungebits tundra syberia", " ")[[1]]
lapply(list(
  list(function(x) if(x %in% loadedNamespaces()) unloadNamespace(x), rev = TRUE),
  list(install_github, 'robertzk'),
  list(library, character.only = TRUE)
), function(x) { r <- x$rev; x$rev <- NULL; do.call(lapply, append(list(if (is.null(r)) pkgs else rev(pkgs)), x)) })