if (FALSE) { # interactive() && requireNamespace("promises", quietly = TRUE)
library(promises)
with(daemons(1), {
mp <- mirai_map(1:3, function(x) { Sys.sleep(1); x })
p <- as.promise(mp)
print(p)
p %...>% print
mp[.flat]
})
}
Run the code above in your browser using DataLab