R/development/review/spawnr/cluster_template.R

In bfatemi/ninjar: Data Science Utility Belt

# REQUIRED PREPROCESS FOR ALL CLUSTERS ------------------------------------

#!@CLUSTER_DIR:
#!@KEEP_OBJECTS:
#!@NS_FILE:
#!@STATUS_BOOL:

.Last <- function() {
  save(ls(.GlobalEnv)[ls(.GlobalEnv) %in% KEEP_OBJECTS])
  if(STATUS_BOOL){
    file.create(".done")
  }
}

setwd(CLUSTER_DIR)

# attach and load libraries
nsList <- readRDS(NS_FILE_NAME)
pkgNam <- names(nsList)

for(i in 1:length(nsList)){
  try(attachNamespace(nsList[[i]]), silent = TRUE)
  try(loadNamespace(pkgNam[[i]]))
}


if(STATUS_BOOL){
  file.create(".status")
}

#!@START USER SCRIPT BELOW ---------------------------------------------------