send mirai cancellation on interrupt

tidyverse · Jan 23, 2025 · 0e08a8d · 0e08a8d
1 parent 1fa33c2
commit 0e08a8d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/map.R b/R/map.R
@@ -229,6 +229,9 @@ mmap_ <- function(.x, .f, .args, .parallel, .progress, .type, error_call) {
         call = error_call,
         class = "purrr_error_indexed"
       )
+    },
+    interrupt = function(cnd) {
+      mirai::stop_mirai(m)
     }
   )
   if (.type != "list") {