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
28
29
|
.onLoad <- function(libname, pkgname) {
inRCmdCheck <- import_future("inRCmdCheck")
if (inRCmdCheck()) {
## Don't write to current working directory when running R CMD check.
path <- Sys.getenv("R_FUTURE_CACHE_PATH", file.path(tempdir(), ".future"))
Sys.setenv("R_FUTURE_CACHE_PATH" = path)
}
}
#' @importFrom utils file_test
.onUnload <- function(libpath) {
## (a) Force finalizer of Future objects to run such
## that their batchtools directories are removed
gc()
## (b) Remove batchtools root directory if only a set
## of known files exists, i.e. not any directories etc.
path <- future_cache_path(create = FALSE)
## Only known files left?
files <- dir(path = path)
known_files <- c("sessioninfo.txt")
if (all(files %in% known_files)) {
for (file in known_files) {
pathname_tmp <- file.path(path, file)
if (file_test("-f", pathname_tmp)) try(file.remove(pathname_tmp))
}
try(unlink(path, recursive = FALSE, force = TRUE), silent = TRUE)
}
}
|
