cancel() ignores 'interrupt = TRUE', if interrupts are disabled for the backend

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.58.0-9015
+Version: 1.58.0-9016
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Depends:
     R (>= 3.2.0)

R/core_api-cancel.R

@@ -96,13 +96,17 @@ cancel.Future <- function(x, interrupt = TRUE, ...) {
     if (is.null(backend)) {
       stop(FutureError(sprintf("Interruption of futures require a backend implementing the FutureBackend API: %s", sQuote(class(future)[1]))))
     }
-    local({
-      if (debug) {
-        mdebugf_push("interruptFuture(<%s>, future = <%s>, ...) ...", class(backend)[1], class(future)[1])
-        on.exit(mdebug_pop())
-      }
-      interruptFuture(backend, future = future, ...)
-    })
+    if (isTRUE(backend[["interrupts"]])) {
+      local({
+        if (debug) {
+          mdebugf_push("interruptFuture(<%s>, future = <%s>, ...) ...", class(backend)[1], class(future)[1])
+          on.exit(mdebug_pop())
+        }
+        interruptFuture(backend, future = future, ...)
+      })
+    } else {
+      if (debug) mdebugf("Ignoring the interrupt request, because interrupts have been disabled for this backend")
+    }
   }
 
   future[["state"]] <- "canceled"