Introducing internal evalFuture()

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future
-Version: 1.34.0-9003
+Version: 1.34.0-9093
 Title: Unified Parallel and Distributed Processing in R for Everyone
 Imports:
     digest,

R/ClusterFuture-class.R

@@ -606,7 +606,7 @@ requestNode <- function(await, workers, timeout = getOption("future.wait.timeout
 
 #' @export
 getExpression.ClusterFuture <- local({
-  tmpl_expr_conditions <- bquote_compile({
+  tmpl_expr_conditions <- future:::bquote_compile({
     ...future.makeSendCondition <- base::local({
       sendCondition <- NULL
 

R/Future-class.R

@@ -658,7 +658,7 @@ getExpression <- function(future, ...) UseMethod("getExpression")
 #' @export
 getExpression.Future <- local({
 
-  tmpl_enter <- bquote_compile({
+  tmpl_enter <- future:::bquote_compile({
     base::local({
       ## covr: skip=4
       ## If 'future' is not installed on the worker, or a too old version
@@ -693,20 +693,20 @@ getExpression.Future <- local({
     })
   })
 
-  tmpl_enter_mccores <- bquote_compile({
+  tmpl_enter_mccores <- future:::bquote_compile({
     ## covr: skip=3
     .(enter)
     ...future.mc.cores.old <- base::getOption("mc.cores")
     base::options(mc.cores = .(mc.cores))
   })
 
-  tmpl_exit_mccores <- bquote_compile({
+  tmpl_exit_mccores <- future:::bquote_compile({
     ## covr: skip=2
     base::options(mc.cores = ...future.mc.cores.old)
     .(exit)
   })
 
-  tmpl_enter_rng <- bquote_compile({
+  tmpl_enter_rng <- future:::bquote_compile({
     ## covr: skip=2
     .(enter)
     ## NOTE: It is not needed to call RNGkind("L'Ecuyer-CMRG") here
@@ -715,7 +715,7 @@ getExpression.Future <- local({
     base::assign(".Random.seed", .(future$seed), envir = base::globalenv(), inherits = FALSE)
   })
 
-  tmpl_enter_packages <- bquote_compile({
+  tmpl_enter_packages <- future:::bquote_compile({
     ## covr: skip=3
     .(enter)      
     ## TROUBLESHOOTING: If the package fails to load, then library()
@@ -733,7 +733,7 @@ getExpression.Future <- local({
     })
   })
 
-  tmpl_enter_plan <- bquote_compile({
+  tmpl_enter_plan <- future:::bquote_compile({
     ## covr: skip=2
     .(enter)
 
@@ -749,7 +749,7 @@ getExpression.Future <- local({
   })
 
   ## Reset future strategies when done
-  tmpl_exit_plan <- bquote_compile({
+  tmpl_exit_plan <- future:::bquote_compile({
     ## covr: skip=2
     .(exit)
     ## Reset option 'future.plan' and env var 'R_FUTURE_PLAN'
@@ -765,7 +765,7 @@ getExpression.Future <- local({
     ## .(exit)
   })
 
-  function(future, expr = future$expr, local = future$local, stdout = future$stdout, conditionClasses = future$conditions, split = future$split, mc.cores = NULL, exit = NULL, ...) {
+  function(future, expr = future$expr, local = future$local, stdout = future$stdout, conditionClasses = future$conditions, seed = future$seed, split = future$split, mc.cores = NULL, exit = NULL, ...) {
     debug <- getOption("future.debug", FALSE)
     ##  mdebug("getExpression() ...")
 
@@ -835,11 +835,11 @@ getExpression.Future <- local({
     exit <- bquote_apply(tmpl_exit_plan)
 
     ## Set RNG seed?
-    if (is.numeric(future$seed)) {
+    if (is.numeric(seed)) {
       enter <- bquote_apply(tmpl_enter_rng)
     }
-  
-    expr <- makeExpression(expr = expr, local = local, stdout = stdout, conditionClasses = conditionClasses, split = split, enter = enter, exit = exit, ..., version = version)
+
+    expr <- makeExpression(expr = expr, local = local, stdout = stdout, conditionClasses = conditionClasses, split = split, enter = enter, exit = exit, ..., seed = seed, packages = pkgs, mc.cores = mc.cores, version = version)
     if (getOption("future.debug", FALSE)) mprint(expr)
 
   ##  mdebug("getExpression() ... DONE")

R/MulticoreFuture-class.R

@@ -299,7 +299,7 @@ result.MulticoreFuture <- function(future, ...) {
 
 #' @export
 getExpression.MulticoreFuture <- local({
-  tmpl_expr_disable_multithreading <- bquote_compile({
+  tmpl_expr_disable_multithreading <- future:::bquote_compile({
     ## Force single-threaded OpenMP, iff needed
     old_omp_threads <- RhpcBLASctl::omp_get_max_threads()
     if (old_omp_threads > 1L) {

R/UniprocessFuture-class.R

@@ -101,13 +101,13 @@ resolved.UniprocessFuture <- function(x, ...) {
 
 #' @export
 getExpression.UniprocessFuture <- local({
-  tmpl_exit_rng_remove <- bquote_compile({
+  tmpl_exit_rng_remove <- future:::bquote_compile({
     .(exit)
     RNGkind(.(okind))
     base::rm(list = ".Random.seed", envir = base::globalenv(), inherits = FALSE)
   })
 
-  tmpl_exit_rng_undo <- bquote_compile({
+  tmpl_exit_rng_undo <- future:::bquote_compile({
     base::assign(".Random.seed", .(oseed), envir = base::globalenv(), inherits = FALSE)
     .(exit)
   })