Capture 'interrupt' conditions while evaluation the future expression

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.34.0-9210
+Version: 1.34.0-9301
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Imports:
     digest,

NEWS.md

@@ -10,6 +10,13 @@
 
  * Add new FutureBackend API for writing future backends.
 
+## Bug Fixes
+
+ * Now 'interrupt' conditions are captured during the evaluation of
+   the future, and results in the evaluation being terminated
+   nicely. Previously, it would result in un-determistic behavior
+   depending of future backend.
+
 ## Documentation
 
  * Updated the future topology vignette with information on the

R/backend_api-evalFuture.R

@@ -793,6 +793,13 @@ evalFuture <- function(
         }
       } ## function(cond)
     ) ## withCallingHandlers()
+  }, interrupt = function(ex) {
+    FutureResult(
+      conditions = ...future.conditions,
+      rng = !identical(globalenv()[[".Random.seed"]], ...future.rng),
+      globalenv = if (globalenv) list(added = setdiff(names(.GlobalEnv), ...future.globalenv.names)) else NULL,
+      started = ...future.startTime
+    )
   }, error = function(ex) {
     FutureResult(
       conditions = ...future.conditions,