inst/testme/test-makeClusterFuture-quote-args.R

In future: Unified Parallel and Distributed Processing in R for Everyone

if (getRversion() >= "4.4.0") {
  library(future)
  library(parallel)

  plan(sequential)
  
  if (getRversion() >= "4.5.0") {
    cl <- makeCluster(1L, type = future::FUTURE)
  } else {
    cl <- makeClusterFuture(1L)
  }

  message("clusterCall(cl, identity, quote(y)) ...")
  arg <- quote(y)
  res <- clusterCall(cl, identity, arg)
  str(res)
  stopifnot(identical(res[[1]], arg))

  stopCluster(cl)
  plan(sequential)
}