Use tryInvokeRestart() instead of invokeRestart(), because these conditions might not be signaled via the standard mechanisms and therefore not have restarts

Author: HenrikBengtsson

DESCRIPTION

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

R/backend_api-evalFuture.R

@@ -36,7 +36,7 @@ attachPackages <- function(packages) {
       }
       NULL
     }, packageStartupMessage = function(m) {
-      invokeRestart("muffleMessage")
+      tryInvokeRestart("muffleMessage")
     })
   }, error = identity)
 } ## attachPackages()

R/protected_api-signalConditions.R

@@ -278,10 +278,10 @@ muffleCondition <- function(cond, pattern = "^muffle") {
   muffled <- FALSE
   if (inherits(cond, "message")) {
     muffled <- grepl(pattern, "muffleMessage")
-    if (muffled) invokeRestart("muffleMessage")
+    if (muffled) tryInvokeRestart("muffleMessage")
   } else if (inherits(cond, "warning")) {
     muffled <- grepl(pattern, "muffleWarning")
-    if (muffled) invokeRestart("muffleWarning")
+    if (muffled) tryInvokeRestart("muffleWarning")
   } else if (inherits(cond, "condition")) {
     if (!is.null(pattern)) {
       ## If there is a "muffle" restart for this condition,
@@ -291,7 +291,7 @@ muffleCondition <- function(cond, pattern = "^muffle") {
         name <- restart[["name"]]
         if (is.null(name)) next
         if (!grepl(pattern, name)) next
-        invokeRestart(restart)
+        tryInvokeRestart(restart)
         muffled <- TRUE
         break
       }