Nothing
source("incl/start.R")
message("*** BatchtoolsFuture() and garbage collection ...")
plan(batchtools_local)
for (how in c("resolve", "value")) {
f <- future({ 1 })
if (how == "value") {
v <- value(f)
print(v)
} else if (how == "resolve") {
resolve(f)
}
stopifnot(resolved(f))
reg <- f$config$reg
## Force removal of batchtools registry files
rm(list = "f")
gc()
## Assert removal of files only happens if there was not
## a failure and option future.delete is not TRUE.
stopifnot(!file_test("-d", reg$file.dir))
fail <- try(checkIds(reg, ids = 1L), silent = TRUE)
stopifnot(inherits(fail, "try-error"))
} ## for (how ...)
message("*** BatchtoolsFuture() and garbage collection ... DONE")
source("incl/end.R")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.