### BATCHJOBS INTEGRATION

library(BiocParallel)

param <- BatchJobsParam()

numbers <- 10:20
ans <- bplapply(numbers, function(x) mean(rnorm(x)), BPPARAM = param)
unlist(ans)

### ERROR HANDLING (not just for BatchJobs)

# oops
numbers <- -20:20
ans <- bplapply(numbers, function(x) mean(rnorm(x)), BPPARAM = param)
unlist(ans)

LastError # global symbol

# resubmission
ans <- bplapply(LastError, function(x) mean(rnorm(abs(x))), BPPARAM = param)
unlist(ans)