R/package.R
future.mirai.Rd
The future.mirai package implements the Future API using the mirai package.
if (FALSE) { # \dontrun{
plan(mirai_multisession)
# A function that returns a future
# (note that N is a global variable)
f <- function() future({
4 * sum((runif(N) ^ 2 + runif(N) ^ 2) < 1) / N
}, seed = TRUE)
# Run a simple sampling approximation of pi in parallel using M * N points:
N <- 1e6 # samples per worker
M <- 10 # iterations
pi_est <- Reduce(sum, Map(value, replicate(M, f()))) / M
print(pi_est)
## Switch back to sequential processing, which also
## shuts down the automatically launched mirai workers
plan(sequential)
} # }