rushgeo

#!/bin/sh
# Simplified template based on a script from Jonathan Heiss

# create batchtools.lsf.tmpl in the working directory - this template used for child jobs
cat <<'TEMPLATE' > batchtools.lsf.tmpl
## Default resources can be set in your .batchtools.conf.R by defining the variable
## 'default.resources' as a named list.

#BSUB-J <%= job.name %>                             # Name of the job
#BSUB-o <%= log.file %>                             # Output is sent to logfile, stdout + stderr by default

rushgeo

# ipak function: install and load multiple R packages.
# check to see if packages are installed. Install them if they are not, then load them into the R session.
# originally from https://gist.github.com/stevenworthington/3178163, which did not specify a license

ipak <- function(pkg){
    new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
    if (length(new.pkg)) 
        install.packages(new.pkg, dependencies = TRUE)
    sapply(pkg, require, character.only = TRUE)
}