source("incl/start.R")
message("*** batchjobs_template() ...")
## NOTE: Here we use invalid 'workers=FALSE' in order to
## prevent the BatchJobs future from actually starting,
## because we cannot assume that system has these schedulers.
## NOTE: Some of them will give an earlier error because
## no default template file was found.
res <- try(batchjobs_lsf({ 42L }, workers=FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchjobs_openlava({ 42L }, workers=FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchjobs_sge({ 42L }, workers=FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchjobs_slurm({ 42L }, workers=FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchjobs_torque({ 42L }, workers=FALSE))
stopifnot(inherits(res, "try-error"))
message("*** batchjobs_template() ... DONE")
source("incl/end.R")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.