CLEANUP: Don't have R CMD check leave files behind [#30]

Author: HenrikBengtsson

NEWS

@@ -1,7 +1,7 @@
 Package: future.batchtools
 ==========================
 
-Version: 0.8.0-9000 [2019-05-05]
+Version: 0.8.0-9000 [2019-06-07]
 
  * ...
 

R/future_cache_path.R

@@ -1,22 +1,23 @@
 #' @importFrom utils file_test sessionInfo
 future_cache_path <- local({
-  ## The path used for this session
-  path <- NULL
+  ## The subfolder used for this session
+  dir <- NULL
 
   function(root_path = Sys.getenv("R_FUTURE_CACHE_PATH", ".future"), absolute = TRUE, create = TRUE) {
-    if (is.null(path)) {
+    if (is.null(dir)) {
       id <- basename(tempdir())
       id <- gsub("Rtmp", "", id, fixed = TRUE)
       timestamp <- format(Sys.time(), format = "%Y%m%d_%H%M%S")
-      dir <- sprintf("%s-%s", timestamp, id)
-      path_tmp <- file.path(root_path, dir)
-      if (create && !file_test("-d", path_tmp)) {
-        dir.create(path_tmp, recursive = TRUE)
-        pathname_tmp <- file.path(path_tmp, "sessioninfo.txt")
-        writeLines(capture_output(print(sessionInfo())), con = pathname_tmp)
-      }
-      path <<- path_tmp
+      dir <<- sprintf("%s-%s", timestamp, id)
     }
+    
+    path <- file.path(root_path, dir)
+    if (create && !file_test("-d", path)) {
+      dir.create(path, recursive = TRUE)
+      pathname <- file.path(path, "sessioninfo.txt")
+      writeLines(capture_output(print(sessionInfo())), con = pathname)
+    }
+
     if (absolute) path <- normalizePath(path, mustWork = FALSE)
 
     path

R/zzz.R

@@ -1,3 +1,10 @@
+.onLoad <- function(libname, pkgname) {
+  inRCmdCheck <- import_future("inRCmdCheck")
+  if (inRCmdCheck()) {
+    Sys.setenv("R_FUTURE_CACHE_PATH" = file.path(tempdir(), ".future"))
+  }
+}
+
 #' @importFrom utils file_test
 .onUnload <- function(libpath) {
   ## (a) Force finalizer of Future objects to run such

tests/incl/start,load-only.R

@@ -12,6 +12,8 @@ oplan <- future::plan()
 ## Use local batchtools futures by default
 future::plan(future.batchtools::batchtools_local)
 
+Sys.setenv("R_FUTURE_CACHE_PATH" = file.path(tempdir(), ".future"))
+
 fullTest <- (Sys.getenv("_R_CHECK_FULL_") != "")
 
 isWin32 <- (.Platform$OS.type == "windows" && .Platform$r_arch == "i386")