frollapply: let the interrupt continue

Instead of calling invokeRestart("abort") in the interrupt handler,
return from it. This continues the dispatch of the interrupt and lets an
outer handler catch it:

tryCatch(
  frollapply(1:1e6, 1, \(.) { Sys.sleep(ret <- sum(.)); ret}),
  interrupt = \(e) 'interrupted'
)
^C[1] "interrupted"

With invokeRestart("abort"), the interrupt cannot be handled further.

Author: aitap

R/frollapply.R

@@ -414,8 +414,8 @@ frollapply = function(X, N, FUN, ..., by.column=TRUE, fill=NA, align=c("right","
                 lapply(jobs, function(pid) try(tools::pskill(pid), silent = TRUE))
                 parallel::mccollect(jobs, wait = FALSE)
               })
-              invokeRestart("abort") ## raise SIGINT
               # nocov end
+              # Let the interrupt continue without invoking restarts
             }
           )
           ## check for any errors in FUN, warnings are silently ignored