library(future)
strategy <- "future::multisession"
plan(strategy)
inter <- AsyncInterruptor$new()
fut <- future({
for(i in 1:100){
Sys.sleep(.01)
inter$execInterrupts()
}
})
inter$interrupt("Error: Stop Future")
try(value(fut))
inter$destroy()
# Clean up multisession cluster
plan(sequential)
Run the code above in your browser using DataLab