1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
source("incl/start.R")
message("*** batchtools_template() ...")
## NOTE: Here we use invalid 'workers = FALSE' in order to
## prevent the batchtools 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(batchtools_lsf({ 42L }, workers = FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchtools_openlava({ 42L }, workers = FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchtools_sge({ 42L }, workers = FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchtools_slurm({ 42L }, workers = FALSE))
stopifnot(inherits(res, "try-error"))
res <- try(batchtools_torque({ 42L }, workers = FALSE))
stopifnot(inherits(res, "try-error"))
message("*** batchtools_template() ... DONE")
source("incl/end.R")
|
