option(future.delete=FALSE) now prevents the batchtools registry folder from being deleted [#37]

Author: HenrikBengtsson

NEWS

@@ -1,7 +1,7 @@
 Package: future.batchtools
 ==========================
 
-Version: 0.7.2-9000 [2019-04-25]
+Version: 0.7.2-9000 [2019-05-02]
 
 NEW FEATURES:
 
@@ -10,6 +10,9 @@ NEW FEATURES:
  * Now a more informative error message is produced if a batchtools *.tmpl
    template file was not found.
 
+ * Setting option 'future.delete' to FALSE will now prevent removal of the
+   batchtools registry folders.
+
 BUG FIXES:
 
  * Argument 'workers' could not be a function.

R/BatchtoolsFuture-class.R

@@ -640,6 +640,13 @@ delete.BatchtoolsFuture <- function(future,
     }
   }
 
+  ## Have user disabled deletions?
+  if (!getOption("future.delete", TRUE)) {
+    msg <- sprintf("Option 'future.delete' is FALSE - will not delete batchtools registry: %s", sQuote(path))
+    mdebugf("delete(): %s", msg)
+    return(invisible(FALSE))
+  }
+
   ## Control batchtools info output
   oopts <- options(batchtools.verbose = debug)
   on.exit(options(oopts))