Add support for logical attribute 'dispose' of hidden, internal R option 'future.disposable'

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.apply
-Version: 1.20.1-9004
+Version: 1.20.1-9005
 Title: Apply Function to Elements in Parallel using Futures
 Depends:
     R (>= 3.2.0),

R/future_apply.R

@@ -95,7 +95,9 @@ future_apply <- function(X, MARGIN, FUN, ..., simplify = TRUE, future.envir = pa
       var <- sprintf("future.%s", name)
       assign(var, opts[[name]], envir = environment(), inherits = FALSE)
     }
-    options(future.disposable = NULL)
+    if (!identical(attr(opts, "dispose"), FALSE)) {
+      options(future.disposable = NULL)
+    }
 
 
     ## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

R/future_mapply.R

@@ -108,7 +108,9 @@ future_mapply <- function(FUN, ..., MoreArgs = NULL, SIMPLIFY = TRUE, USE.NAMES
     var <- sprintf("future.%s", name)
     assign(var, opts[[name]], envir = environment(), inherits = FALSE)
   }
-  options(future.disposable = NULL)
+  if (!identical(attr(opts, "dispose"), FALSE)) {
+    options(future.disposable = NULL)
+  }
 
 
   ## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

R/future_xapply.R

@@ -34,7 +34,9 @@ future_xapply <- local({
       var <- sprintf("future.%s", name)
       assign(var, opts[[name]], envir = environment(), inherits = FALSE)
     }
-    options(future.disposable = NULL)
+    if (!identical(attr(opts, "dispose"), FALSE)) {
+      options(future.disposable = NULL)
+    }
 
 
     ## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -