inst/testme/test-globals,nested.R

In future.mirai: A 'Future' API for Parallel Processing using 'mirai'

#' @tags globals
#' @tags detritus-files
#' @tags mirai_multisession

library(future.mirai)

plan(mirai_multisession)

g <- function() 42
h <- function() g()

f <- future(h())
v <- value(f)
print(v)
stopifnot(v == h())

plan(sequential)