Report on batchtools cache folder [#97]

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.batchtools
-Version: 0.12.2-9911
+Version: 0.12.2-9912
 Depends:
     R (>= 3.2.0),
     parallelly,

R/BatchtoolsFutureBackend-class.R

@@ -140,6 +140,9 @@ print.BatchtoolsFutureBackend <- function(x, ...) {
   printf("batchtools resources:\n")
   str(resources)
 
+  path <- future_cache_path()
+  printf("Cache directory: %s\n", dir_info(path))
+
   invisible(x)
 }
 

R/utils.R

@@ -165,6 +165,27 @@ file_info <- function(file) {
 }
 
 
+#' @importFrom utils file_test
+dir_info <- function(dir) {
+  if (is.null(dir) || is.na(dir)) return("<NA>")
+  if (file_test("-d", dir)) {
+    files <- dir(path = dir, full.names = TRUE)
+    info <- file.info(files)
+    info <- info[info[["isdir"]], "mtime"]
+    if (length(info) == 0) {
+      info <- "0 folders"
+    } else {
+      period <- range(info)
+      period <- format(period, "%FT%T")
+      info <- sprintf("%d folders; %s/%s", length(info), period[1], period[2])
+    }
+  } else {
+    info <- "<non-existing>"
+  }
+  sprintf("%s (%s)", sQuote(dir), info)
+}
+
+
 assert_no_positional_args_but_first <- function(call = sys.call(sys.parent())) {
   ast <- as.list(call)
   if (length(ast) <= 2L) return()