R version 4.6.0 alpha (2026-03-31 r89747 ucrt) Copyright (C) 2026 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > #! /usr/bin/env Rscript > ## This runs testme test script inst/testme/test-futurize-base-stats.R > ## Don't edit - it was autogenerated by inst/testme/deploy.R > futurize:::testme("futurize-base-stats") Test 'futurize-base-stats' ... chr "none" > if (requireNamespace("future.apply")) { + library(futurize) + library(stats) + library(datasets) + options(future.rng.onMisuse = "er ..." ... [TRUNCATED] Loading required package: future [07:33:24.375] futurize() ... [07:33:24.377] | transpile() ... [07:33:24.378] | : get_transpiler() ... [07:33:24.378] | : . Finding call to be transpiled ... [07:33:24.379] | : . | descend_wrappers() ... [07:33:24.380] | : . | : Call: [07:33:24.381] | : . | : lapply [07:33:24.382] | : . | : parse_call() ... [07:33:24.383] | : . | : . Function: lapply(...) [07:33:24.384] | : . | : . Locate function ... [07:33:24.386] | : . | : . | Function located in: 'base' [07:33:24.387] | : . | : . Locate function ... done [07:33:24.387] | : . | : parse_call() ... done [07:33:24.388] | : . | descend_wrappers() ... done [07:33:24.389] | : . | parse_call() ... [07:33:24.389] | : . | : Function: lapply(...) [07:33:24.390] | : . | : Locate function ... [07:33:24.390] | : . | : . Function located in: 'base' [07:33:24.391] | : . | : Locate function ... done [07:33:24.392] | : . | parse_call() ... done [07:33:24.392] | : . | Position of call to be transpiled in expression: c(1) [07:33:24.393] | : . | lapply [07:33:24.394] | : . Finding call to be transpiled ... done [07:33:24.395] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:24.395] | : . | transpilers_for_package(action = 'make', type = 'futurize::add-on') ... [07:33:24.396] | : . | : - package: 'base' [07:33:24.397] | : . | : $fcns [07:33:24.397] | : . | : $fcns[[1]] [07:33:24.397] | : . | : function () [07:33:24.397] | : . | : { [07:33:24.397] | : . | : append_transpilers("futurize::add-on", make_addon_transpilers("base", [07:33:24.397] | : . | : "future.apply", make_options = make_options_for_future.apply)) [07:33:24.397] | : . | : append_transpilers("futurize::add-on", make_addon_transpilers("stats", [07:33:24.397] | : . | : "future.apply", make_options = make_options_for_future.apply)) [07:33:24.397] | : . | : c("future.apply") [07:33:24.397] | : . | : } [07:33:24.397] | : . | : [07:33:24.397] | : . | : [07:33:24.397] | : . | : [07:33:24.397] | : . | : [07:33:24.405] | : . | transpilers_for_package(action = 'make', type = 'futurize::add-on') ... done [07:33:24.406] | : . | Required packages: [n=1] 'future.apply' [07:33:24.407] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:24.407] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:24.408] | : . | Transpiler function: [07:33:24.409] | : . | function (expr, options = NULL) [07:33:24.409] | : . | { [07:33:24.409] | : . | call <- make_call("future_lapply") [07:33:24.409] | : . | fcn <- eval(call) [07:33:24.409] | : . | expr[[1]] <- call [07:33:24.409] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:24.409] | : . | { [07:33:24.409] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:24.409] | : . | if (is.null(defaults_base)) { [07:33:24.409] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:24.409] | : . | } [07:33:24.409] | : . | if (length(defaults) > 0) { [07:33:24.409] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:24.409] | : . | } [07:33:24.409] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:24.409] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:24.409] | : . | defaults <- defaults[keep] [07:33:24.409] | : . | specified <- attr(options, "specified") [07:33:24.409] | : . | if (length(specified) > 0) { [07:33:24.409] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:24.409] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:24.409] | : . | names(options)) [07:33:24.409] | : . | } [07:33:24.409] | : . | specified <- sprintf("future.%s", specified) [07:33:24.409] | : . | names <- setdiff(names(defaults), specified) [07:33:24.409] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:24.409] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:24.409] | : . | keep <- intersect(names(options), names(defaults)) [07:33:24.409] | : . | options <- options[keep] [07:33:24.409] | : . | options [07:33:24.409] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:24.409] | : . | prefix = "fz:base::lapply"))) [07:33:24.409] | : . | expr <- as.call(parts) [07:33:24.409] | : . | expr [07:33:24.409] | : . | } [07:33:24.409] | : . | [07:33:24.410] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:24.411] | : get_transpiler() ... done [07:33:24.413] | : Transpile call expression ... [07:33:24.415] | : . future.apply::future_lapply(X = 1:3, FUN = function(x) { [07:33:24.415] | : . print(x) [07:33:24.415] | : . }, future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:24.415] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:24.418] | : Transpile call expression ... done [07:33:24.419] | : Evaluate transpiled call expression [07:33:24.621] | transpile() ... done [07:33:24.622] futurize() ... done Futures created: 2 [[1]] [1] 1 [[2]] [1] 2 [[3]] [1] 3 === lapply ========================== lapply(X = xs, FUN = FUN) --------------------------------- [07:33:24.712] futurize() ... [07:33:24.713] | transpile() ... [07:33:24.714] | : get_transpiler() ... [07:33:24.715] | : . Finding call to be transpiled ... [07:33:24.716] | : . | descend_wrappers() ... [07:33:24.716] | : . | : Call: [07:33:24.717] | : . | : lapply [07:33:24.718] | : . | : parse_call() ... [07:33:24.719] | : . | : . Function: lapply(...) [07:33:24.720] | : . | : . Locate function ... [07:33:24.721] | : . | : . | Function located in: 'base' [07:33:24.722] | : . | : . Locate function ... done [07:33:24.723] | : . | : parse_call() ... done [07:33:24.724] | : . | descend_wrappers() ... done [07:33:24.725] | : . | parse_call() ... [07:33:24.726] | : . | : Function: lapply(...) [07:33:24.727] | : . | : Locate function ... [07:33:24.728] | : . | : . Function located in: 'base' [07:33:24.729] | : . | : Locate function ... done [07:33:24.729] | : . | parse_call() ... done [07:33:24.730] | : . | Position of call to be transpiled in expression: c(1) [07:33:24.731] | : . | lapply [07:33:24.732] | : . Finding call to be transpiled ... done [07:33:24.733] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:24.734] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:24.735] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:24.736] | : . | Transpiler function: [07:33:24.737] | : . | function (expr, options = NULL) [07:33:24.737] | : . | { [07:33:24.737] | : . | call <- make_call("future_lapply") [07:33:24.737] | : . | fcn <- eval(call) [07:33:24.737] | : . | expr[[1]] <- call [07:33:24.737] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:24.737] | : . | { [07:33:24.737] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:24.737] | : . | if (is.null(defaults_base)) { [07:33:24.737] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:24.737] | : . | } [07:33:24.737] | : . | if (length(defaults) > 0) { [07:33:24.737] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:24.737] | : . | } [07:33:24.737] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:24.737] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:24.737] | : . | defaults <- defaults[keep] [07:33:24.737] | : . | specified <- attr(options, "specified") [07:33:24.737] | : . | if (length(specified) > 0) { [07:33:24.737] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:24.737] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:24.737] | : . | names(options)) [07:33:24.737] | : . | } [07:33:24.737] | : . | specified <- sprintf("future.%s", specified) [07:33:24.737] | : . | names <- setdiff(names(defaults), specified) [07:33:24.737] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:24.737] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:24.737] | : . | keep <- intersect(names(options), names(defaults)) [07:33:24.737] | : . | options <- options[keep] [07:33:24.737] | : . | options [07:33:24.737] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:24.737] | : . | prefix = "fz:base::lapply"))) [07:33:24.737] | : . | expr <- as.call(parts) [07:33:24.737] | : . | expr [07:33:24.737] | : . | } [07:33:24.737] | : . | [07:33:24.739] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:24.739] | : get_transpiler() ... done [07:33:24.740] | : Transpile call expression ... [07:33:24.742] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:24.742] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:24.742] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:24.744] | : Transpile call expression ... done [07:33:24.745] | : Evaluate transpiled call expression [07:33:24.808] | transpile() ... done [07:33:24.809] futurize() ... done Futures created: 2 [07:33:24.811] futurize() ... [07:33:24.812] | transpile() ... [07:33:24.813] | : get_transpiler() ... [07:33:24.814] | : . Finding call to be transpiled ... [07:33:24.815] | : . | descend_wrappers() ... [07:33:24.816] | : . | : Call: [07:33:24.817] | : . | : lapply [07:33:24.818] | : . | : parse_call() ... [07:33:24.818] | : . | : . Function: lapply(...) [07:33:24.819] | : . | : . Locate function ... [07:33:24.820] | : . | : . | Function located in: 'base' [07:33:24.820] | : . | : . Locate function ... done [07:33:24.821] | : . | : parse_call() ... done [07:33:24.821] | : . | descend_wrappers() ... done [07:33:24.822] | : . | parse_call() ... [07:33:24.823] | : . | : Function: lapply(...) [07:33:24.823] | : . | : Locate function ... [07:33:24.824] | : . | : . Function located in: 'base' [07:33:24.824] | : . | : Locate function ... done [07:33:24.825] | : . | parse_call() ... done [07:33:24.825] | : . | Position of call to be transpiled in expression: c(1) [07:33:24.826] | : . | lapply [07:33:24.826] | : . Finding call to be transpiled ... done [07:33:24.827] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:24.828] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:24.828] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:24.829] | : . | Transpiler function: [07:33:24.829] | : . | function (expr, options = NULL) [07:33:24.829] | : . | { [07:33:24.829] | : . | call <- make_call("future_lapply") [07:33:24.829] | : . | fcn <- eval(call) [07:33:24.829] | : . | expr[[1]] <- call [07:33:24.829] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:24.829] | : . | { [07:33:24.829] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:24.829] | : . | if (is.null(defaults_base)) { [07:33:24.829] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:24.829] | : . | } [07:33:24.829] | : . | if (length(defaults) > 0) { [07:33:24.829] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:24.829] | : . | } [07:33:24.829] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:24.829] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:24.829] | : . | defaults <- defaults[keep] [07:33:24.829] | : . | specified <- attr(options, "specified") [07:33:24.829] | : . | if (length(specified) > 0) { [07:33:24.829] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:24.829] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:24.829] | : . | names(options)) [07:33:24.829] | : . | } [07:33:24.829] | : . | specified <- sprintf("future.%s", specified) [07:33:24.829] | : . | names <- setdiff(names(defaults), specified) [07:33:24.829] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:24.829] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:24.829] | : . | keep <- intersect(names(options), names(defaults)) [07:33:24.829] | : . | options <- options[keep] [07:33:24.829] | : . | options [07:33:24.829] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:24.829] | : . | prefix = "fz:base::lapply"))) [07:33:24.829] | : . | expr <- as.call(parts) [07:33:24.829] | : . | expr [07:33:24.829] | : . | } [07:33:24.829] | : . | [07:33:24.830] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:24.831] | : get_transpiler() ... done [07:33:24.831] | : Transpile call expression ... [07:33:24.832] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:24.832] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:24.832] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:24.834] | : Transpile call expression ... done [07:33:24.834] | : Evaluate transpiled call expression [07:33:24.895] | transpile() ... done [07:33:24.896] futurize() ... done character(0) [07:33:24.896] futurize() ... [07:33:24.897] | transpile() ... [07:33:24.898] | : get_transpiler() ... [07:33:24.898] | : . Finding call to be transpiled ... [07:33:24.899] | : . | descend_wrappers() ... [07:33:24.899] | : . | : Call: [07:33:24.900] | : . | : lapply [07:33:24.901] | : . | : parse_call() ... [07:33:24.901] | : . | : . Function: lapply(...) [07:33:24.902] | : . | : . Locate function ... [07:33:24.903] | : . | : . | Function located in: 'base' [07:33:24.904] | : . | : . Locate function ... done [07:33:24.905] | : . | : parse_call() ... done [07:33:24.906] | : . | descend_wrappers() ... done [07:33:24.906] | : . | parse_call() ... [07:33:24.907] | : . | : Function: lapply(...) [07:33:24.907] | : . | : Locate function ... [07:33:24.908] | : . | : . Function located in: 'base' [07:33:24.909] | : . | : Locate function ... done [07:33:24.909] | : . | parse_call() ... done [07:33:24.910] | : . | Position of call to be transpiled in expression: c(1) [07:33:24.910] | : . | lapply [07:33:24.911] | : . Finding call to be transpiled ... done [07:33:24.912] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:24.913] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:24.914] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:24.915] | : . | Transpiler function: [07:33:24.915] | : . | function (expr, options = NULL) [07:33:24.915] | : . | { [07:33:24.915] | : . | call <- make_call("future_lapply") [07:33:24.915] | : . | fcn <- eval(call) [07:33:24.915] | : . | expr[[1]] <- call [07:33:24.915] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:24.915] | : . | { [07:33:24.915] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:24.915] | : . | if (is.null(defaults_base)) { [07:33:24.915] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:24.915] | : . | } [07:33:24.915] | : . | if (length(defaults) > 0) { [07:33:24.915] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:24.915] | : . | } [07:33:24.915] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:24.915] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:24.915] | : . | defaults <- defaults[keep] [07:33:24.915] | : . | specified <- attr(options, "specified") [07:33:24.915] | : . | if (length(specified) > 0) { [07:33:24.915] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:24.915] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:24.915] | : . | names(options)) [07:33:24.915] | : . | } [07:33:24.915] | : . | specified <- sprintf("future.%s", specified) [07:33:24.915] | : . | names <- setdiff(names(defaults), specified) [07:33:24.915] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:24.915] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:24.915] | : . | keep <- intersect(names(options), names(defaults)) [07:33:24.915] | : . | options <- options[keep] [07:33:24.915] | : . | options [07:33:24.915] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:24.915] | : . | prefix = "fz:base::lapply"))) [07:33:24.915] | : . | expr <- as.call(parts) [07:33:24.915] | : . | expr [07:33:24.915] | : . | } [07:33:24.915] | : . | [07:33:24.917] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:24.918] | : get_transpiler() ... done [07:33:24.919] | : Transpile call expression ... [07:33:24.920] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:24.920] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:24.920] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::lapply-%d") [07:33:24.922] | : Transpile call expression ... done [07:33:24.923] | : Evaluate transpiled call expression [07:33:25.112] | transpile() ... done [07:33:25.112] futurize() ... done Test with RNG: futurize(lapply(X = xs, FUN = FUN), seed = TRUE, flavor = "add-on") [07:33:25.113] futurize() ... [07:33:25.114] | transpile() ... [07:33:25.114] | : get_transpiler() ... [07:33:25.115] | : . Finding call to be transpiled ... [07:33:25.115] | : . | descend_wrappers() ... [07:33:25.116] | : . | : Call: [07:33:25.116] | : . | : lapply [07:33:25.117] | : . | : parse_call() ... [07:33:25.118] | : . | : . Function: lapply(...) [07:33:25.118] | : . | : . Locate function ... [07:33:25.119] | : . | : . | Function located in: 'base' [07:33:25.120] | : . | : . Locate function ... done [07:33:25.121] | : . | : parse_call() ... done [07:33:25.122] | : . | descend_wrappers() ... done [07:33:25.123] | : . | parse_call() ... [07:33:25.124] | : . | : Function: lapply(...) [07:33:25.125] | : . | : Locate function ... [07:33:25.126] | : . | : . Function located in: 'base' [07:33:25.126] | : . | : Locate function ... done [07:33:25.130] | : . | parse_call() ... done [07:33:25.131] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.132] | : . | lapply [07:33:25.133] | : . Finding call to be transpiled ... done [07:33:25.134] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:25.135] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.136] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:25.137] | : . | Transpiler function: [07:33:25.137] | : . | function (expr, options = NULL) [07:33:25.137] | : . | { [07:33:25.137] | : . | call <- make_call("future_lapply") [07:33:25.137] | : . | fcn <- eval(call) [07:33:25.137] | : . | expr[[1]] <- call [07:33:25.137] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.137] | : . | { [07:33:25.137] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.137] | : . | if (is.null(defaults_base)) { [07:33:25.137] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.137] | : . | } [07:33:25.137] | : . | if (length(defaults) > 0) { [07:33:25.137] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.137] | : . | } [07:33:25.137] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.137] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.137] | : . | defaults <- defaults[keep] [07:33:25.137] | : . | specified <- attr(options, "specified") [07:33:25.137] | : . | if (length(specified) > 0) { [07:33:25.137] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.137] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.137] | : . | names(options)) [07:33:25.137] | : . | } [07:33:25.137] | : . | specified <- sprintf("future.%s", specified) [07:33:25.137] | : . | names <- setdiff(names(defaults), specified) [07:33:25.137] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.137] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.137] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.137] | : . | options <- options[keep] [07:33:25.137] | : . | options [07:33:25.137] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:25.137] | : . | prefix = "fz:base::lapply"))) [07:33:25.137] | : . | expr <- as.call(parts) [07:33:25.137] | : . | expr [07:33:25.137] | : . | } [07:33:25.137] | : . | [07:33:25.139] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:25.140] | : get_transpiler() ... done [07:33:25.141] | : Transpile call expression ... [07:33:25.142] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:25.142] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:25.142] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:25.144] | : Transpile call expression ... done [07:33:25.145] | : Evaluate transpiled call expression [07:33:25.205] | transpile() ... done [07:33:25.206] futurize() ... done === lapply ========================== base::lapply(X = xs, FUN = FUN) --------------------------------- [07:33:25.207] futurize() ... [07:33:25.208] | transpile() ... [07:33:25.209] | : get_transpiler() ... [07:33:25.210] | : . Finding call to be transpiled ... [07:33:25.211] | : . | descend_wrappers() ... [07:33:25.211] | : . | : Call: [07:33:25.212] | : . | : base::lapply [07:33:25.213] | : . | : parse_call() ... [07:33:25.213] | : . | : . Function: base::lapply(...) [07:33:25.214] | : . | : parse_call() ... done [07:33:25.214] | : . | descend_wrappers() ... done [07:33:25.215] | : . | parse_call() ... [07:33:25.215] | : . | : Function: base::lapply(...) [07:33:25.216] | : . | parse_call() ... done [07:33:25.217] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.218] | : . | base::lapply [07:33:25.219] | : . Finding call to be transpiled ... done [07:33:25.220] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:25.221] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.222] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:25.222] | : . | Transpiler function: [07:33:25.223] | : . | function (expr, options = NULL) [07:33:25.223] | : . | { [07:33:25.223] | : . | call <- make_call("future_lapply") [07:33:25.223] | : . | fcn <- eval(call) [07:33:25.223] | : . | expr[[1]] <- call [07:33:25.223] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.223] | : . | { [07:33:25.223] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.223] | : . | if (is.null(defaults_base)) { [07:33:25.223] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.223] | : . | } [07:33:25.223] | : . | if (length(defaults) > 0) { [07:33:25.223] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.223] | : . | } [07:33:25.223] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.223] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.223] | : . | defaults <- defaults[keep] [07:33:25.223] | : . | specified <- attr(options, "specified") [07:33:25.223] | : . | if (length(specified) > 0) { [07:33:25.223] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.223] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.223] | : . | names(options)) [07:33:25.223] | : . | } [07:33:25.223] | : . | specified <- sprintf("future.%s", specified) [07:33:25.223] | : . | names <- setdiff(names(defaults), specified) [07:33:25.223] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.223] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.223] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.223] | : . | options <- options[keep] [07:33:25.223] | : . | options [07:33:25.223] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:25.223] | : . | prefix = "fz:base::lapply"))) [07:33:25.223] | : . | expr <- as.call(parts) [07:33:25.223] | : . | expr [07:33:25.223] | : . | } [07:33:25.223] | : . | [07:33:25.225] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:25.226] | : get_transpiler() ... done [07:33:25.227] | : Transpile call expression ... [07:33:25.228] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:25.228] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:25.228] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:25.229] | : Transpile call expression ... done [07:33:25.230] | : Evaluate transpiled call expression [07:33:25.286] | transpile() ... done [07:33:25.287] futurize() ... done Futures created: 2 [07:33:25.289] futurize() ... [07:33:25.290] | transpile() ... [07:33:25.291] | : get_transpiler() ... [07:33:25.292] | : . Finding call to be transpiled ... [07:33:25.293] | : . | descend_wrappers() ... [07:33:25.294] | : . | : Call: [07:33:25.295] | : . | : base::lapply [07:33:25.296] | : . | : parse_call() ... [07:33:25.297] | : . | : . Function: base::lapply(...) [07:33:25.298] | : . | : parse_call() ... done [07:33:25.299] | : . | descend_wrappers() ... done [07:33:25.300] | : . | parse_call() ... [07:33:25.301] | : . | : Function: base::lapply(...) [07:33:25.302] | : . | parse_call() ... done [07:33:25.303] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.304] | : . | base::lapply [07:33:25.305] | : . Finding call to be transpiled ... done [07:33:25.306] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:25.307] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.308] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:25.309] | : . | Transpiler function: [07:33:25.310] | : . | function (expr, options = NULL) [07:33:25.310] | : . | { [07:33:25.310] | : . | call <- make_call("future_lapply") [07:33:25.310] | : . | fcn <- eval(call) [07:33:25.310] | : . | expr[[1]] <- call [07:33:25.310] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.310] | : . | { [07:33:25.310] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.310] | : . | if (is.null(defaults_base)) { [07:33:25.310] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.310] | : . | } [07:33:25.310] | : . | if (length(defaults) > 0) { [07:33:25.310] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.310] | : . | } [07:33:25.310] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.310] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.310] | : . | defaults <- defaults[keep] [07:33:25.310] | : . | specified <- attr(options, "specified") [07:33:25.310] | : . | if (length(specified) > 0) { [07:33:25.310] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.310] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.310] | : . | names(options)) [07:33:25.310] | : . | } [07:33:25.310] | : . | specified <- sprintf("future.%s", specified) [07:33:25.310] | : . | names <- setdiff(names(defaults), specified) [07:33:25.310] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.310] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.310] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.310] | : . | options <- options[keep] [07:33:25.310] | : . | options [07:33:25.310] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:25.310] | : . | prefix = "fz:base::lapply"))) [07:33:25.310] | : . | expr <- as.call(parts) [07:33:25.310] | : . | expr [07:33:25.310] | : . | } [07:33:25.310] | : . | [07:33:25.312] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:25.313] | : get_transpiler() ... done [07:33:25.314] | : Transpile call expression ... [07:33:25.315] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:25.315] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:25.315] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:25.317] | : Transpile call expression ... done [07:33:25.318] | : Evaluate transpiled call expression [07:33:25.377] | transpile() ... done [07:33:25.378] futurize() ... done character(0) [07:33:25.379] futurize() ... [07:33:25.380] | transpile() ... [07:33:25.381] | : get_transpiler() ... [07:33:25.382] | : . Finding call to be transpiled ... [07:33:25.383] | : . | descend_wrappers() ... [07:33:25.384] | : . | : Call: [07:33:25.385] | : . | : base::lapply [07:33:25.386] | : . | : parse_call() ... [07:33:25.387] | : . | : . Function: base::lapply(...) [07:33:25.388] | : . | : parse_call() ... done [07:33:25.389] | : . | descend_wrappers() ... done [07:33:25.390] | : . | parse_call() ... [07:33:25.391] | : . | : Function: base::lapply(...) [07:33:25.392] | : . | parse_call() ... done [07:33:25.393] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.394] | : . | base::lapply [07:33:25.395] | : . Finding call to be transpiled ... done [07:33:25.396] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:25.397] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.398] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:25.399] | : . | Transpiler function: [07:33:25.400] | : . | function (expr, options = NULL) [07:33:25.400] | : . | { [07:33:25.400] | : . | call <- make_call("future_lapply") [07:33:25.400] | : . | fcn <- eval(call) [07:33:25.400] | : . | expr[[1]] <- call [07:33:25.400] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.400] | : . | { [07:33:25.400] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.400] | : . | if (is.null(defaults_base)) { [07:33:25.400] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.400] | : . | } [07:33:25.400] | : . | if (length(defaults) > 0) { [07:33:25.400] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.400] | : . | } [07:33:25.400] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.400] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.400] | : . | defaults <- defaults[keep] [07:33:25.400] | : . | specified <- attr(options, "specified") [07:33:25.400] | : . | if (length(specified) > 0) { [07:33:25.400] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.400] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.400] | : . | names(options)) [07:33:25.400] | : . | } [07:33:25.400] | : . | specified <- sprintf("future.%s", specified) [07:33:25.400] | : . | names <- setdiff(names(defaults), specified) [07:33:25.400] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.400] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.400] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.400] | : . | options <- options[keep] [07:33:25.400] | : . | options [07:33:25.400] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:25.400] | : . | prefix = "fz:base::lapply"))) [07:33:25.400] | : . | expr <- as.call(parts) [07:33:25.400] | : . | expr [07:33:25.400] | : . | } [07:33:25.400] | : . | [07:33:25.402] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:25.403] | : get_transpiler() ... done [07:33:25.404] | : Transpile call expression ... [07:33:25.405] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:25.405] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:25.405] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::lapply-%d") [07:33:25.407] | : Transpile call expression ... done [07:33:25.408] | : Evaluate transpiled call expression [07:33:25.534] | transpile() ... done [07:33:25.535] futurize() ... done Test with RNG: futurize(base::lapply(X = xs, FUN = FUN), seed = TRUE, flavor = "add-on") [07:33:25.536] futurize() ... [07:33:25.536] | transpile() ... [07:33:25.537] | : get_transpiler() ... [07:33:25.538] | : . Finding call to be transpiled ... [07:33:25.539] | : . | descend_wrappers() ... [07:33:25.539] | : . | : Call: [07:33:25.540] | : . | : base::lapply [07:33:25.541] | : . | : parse_call() ... [07:33:25.542] | : . | : . Function: base::lapply(...) [07:33:25.542] | : . | : parse_call() ... done [07:33:25.543] | : . | descend_wrappers() ... done [07:33:25.544] | : . | parse_call() ... [07:33:25.544] | : . | : Function: base::lapply(...) [07:33:25.545] | : . | parse_call() ... done [07:33:25.546] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.547] | : . | base::lapply [07:33:25.548] | : . Finding call to be transpiled ... done [07:33:25.548] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:25.549] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.550] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:25.551] | : . | Transpiler function: [07:33:25.551] | : . | function (expr, options = NULL) [07:33:25.551] | : . | { [07:33:25.551] | : . | call <- make_call("future_lapply") [07:33:25.551] | : . | fcn <- eval(call) [07:33:25.551] | : . | expr[[1]] <- call [07:33:25.551] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.551] | : . | { [07:33:25.551] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.551] | : . | if (is.null(defaults_base)) { [07:33:25.551] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.551] | : . | } [07:33:25.551] | : . | if (length(defaults) > 0) { [07:33:25.551] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.551] | : . | } [07:33:25.551] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.551] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.551] | : . | defaults <- defaults[keep] [07:33:25.551] | : . | specified <- attr(options, "specified") [07:33:25.551] | : . | if (length(specified) > 0) { [07:33:25.551] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.551] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.551] | : . | names(options)) [07:33:25.551] | : . | } [07:33:25.551] | : . | specified <- sprintf("future.%s", specified) [07:33:25.551] | : . | names <- setdiff(names(defaults), specified) [07:33:25.551] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.551] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.551] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.551] | : . | options <- options[keep] [07:33:25.551] | : . | options [07:33:25.551] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:25.551] | : . | prefix = "fz:base::lapply"))) [07:33:25.551] | : . | expr <- as.call(parts) [07:33:25.551] | : . | expr [07:33:25.551] | : . | } [07:33:25.551] | : . | [07:33:25.553] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:25.554] | : get_transpiler() ... done [07:33:25.554] | : Transpile call expression ... [07:33:25.556] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:25.556] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:25.556] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:25.557] | : Transpile call expression ... done [07:33:25.558] | : Evaluate transpiled call expression [07:33:25.644] | transpile() ... done [07:33:25.645] futurize() ... done === sapply ========================== sapply(X = xs, FUN = FUN) --------------------------------- [07:33:25.647] futurize() ... [07:33:25.648] | transpile() ... [07:33:25.649] | : get_transpiler() ... [07:33:25.650] | : . Finding call to be transpiled ... [07:33:25.650] | : . | descend_wrappers() ... [07:33:25.651] | : . | : Call: [07:33:25.652] | : . | : sapply [07:33:25.653] | : . | : parse_call() ... [07:33:25.654] | : . | : . Function: sapply(...) [07:33:25.655] | : . | : . Locate function ... [07:33:25.655] | : . | : . | Function located in: 'base' [07:33:25.656] | : . | : . Locate function ... done [07:33:25.657] | : . | : parse_call() ... done [07:33:25.658] | : . | descend_wrappers() ... done [07:33:25.659] | : . | parse_call() ... [07:33:25.660] | : . | : Function: sapply(...) [07:33:25.660] | : . | : Locate function ... [07:33:25.661] | : . | : . Function located in: 'base' [07:33:25.662] | : . | : Locate function ... done [07:33:25.663] | : . | parse_call() ... done [07:33:25.663] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.664] | : . | sapply [07:33:25.664] | : . Finding call to be transpiled ... done [07:33:25.665] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:25.666] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.666] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:25.667] | : . | Transpiler function: [07:33:25.667] | : . | function (expr, options = NULL) [07:33:25.667] | : . | { [07:33:25.667] | : . | call <- make_call("future_sapply") [07:33:25.667] | : . | fcn <- eval(call) [07:33:25.667] | : . | expr[[1]] <- call [07:33:25.667] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.667] | : . | { [07:33:25.667] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.667] | : . | if (is.null(defaults_base)) { [07:33:25.667] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.667] | : . | } [07:33:25.667] | : . | if (length(defaults) > 0) { [07:33:25.667] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.667] | : . | } [07:33:25.667] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.667] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.667] | : . | defaults <- defaults[keep] [07:33:25.667] | : . | specified <- attr(options, "specified") [07:33:25.667] | : . | if (length(specified) > 0) { [07:33:25.667] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.667] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.667] | : . | names(options)) [07:33:25.667] | : . | } [07:33:25.667] | : . | specified <- sprintf("future.%s", specified) [07:33:25.667] | : . | names <- setdiff(names(defaults), specified) [07:33:25.667] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.667] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.667] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.667] | : . | options <- options[keep] [07:33:25.667] | : . | options [07:33:25.667] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:25.667] | : . | prefix = "fz:base::sapply"))) [07:33:25.667] | : . | expr <- as.call(parts) [07:33:25.667] | : . | expr [07:33:25.667] | : . | } [07:33:25.667] | : . | [07:33:25.669] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:25.669] | : get_transpiler() ... done [07:33:25.670] | : Transpile call expression ... [07:33:25.671] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:25.671] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:25.671] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:25.672] | : Transpile call expression ... done [07:33:25.673] | : Evaluate transpiled call expression [07:33:25.713] | transpile() ... done [07:33:25.714] futurize() ... done Futures created: 2 [07:33:25.715] futurize() ... [07:33:25.719] | transpile() ... [07:33:25.720] | : get_transpiler() ... [07:33:25.720] | : . Finding call to be transpiled ... [07:33:25.721] | : . | descend_wrappers() ... [07:33:25.722] | : . | : Call: [07:33:25.723] | : . | : sapply [07:33:25.724] | : . | : parse_call() ... [07:33:25.725] | : . | : . Function: sapply(...) [07:33:25.726] | : . | : . Locate function ... [07:33:25.726] | : . | : . | Function located in: 'base' [07:33:25.727] | : . | : . Locate function ... done [07:33:25.728] | : . | : parse_call() ... done [07:33:25.729] | : . | descend_wrappers() ... done [07:33:25.730] | : . | parse_call() ... [07:33:25.731] | : . | : Function: sapply(...) [07:33:25.732] | : . | : Locate function ... [07:33:25.732] | : . | : . Function located in: 'base' [07:33:25.733] | : . | : Locate function ... done [07:33:25.734] | : . | parse_call() ... done [07:33:25.735] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.736] | : . | sapply [07:33:25.737] | : . Finding call to be transpiled ... done [07:33:25.738] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:25.738] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.739] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:25.740] | : . | Transpiler function: [07:33:25.741] | : . | function (expr, options = NULL) [07:33:25.741] | : . | { [07:33:25.741] | : . | call <- make_call("future_sapply") [07:33:25.741] | : . | fcn <- eval(call) [07:33:25.741] | : . | expr[[1]] <- call [07:33:25.741] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.741] | : . | { [07:33:25.741] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.741] | : . | if (is.null(defaults_base)) { [07:33:25.741] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.741] | : . | } [07:33:25.741] | : . | if (length(defaults) > 0) { [07:33:25.741] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.741] | : . | } [07:33:25.741] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.741] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.741] | : . | defaults <- defaults[keep] [07:33:25.741] | : . | specified <- attr(options, "specified") [07:33:25.741] | : . | if (length(specified) > 0) { [07:33:25.741] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.741] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.741] | : . | names(options)) [07:33:25.741] | : . | } [07:33:25.741] | : . | specified <- sprintf("future.%s", specified) [07:33:25.741] | : . | names <- setdiff(names(defaults), specified) [07:33:25.741] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.741] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.741] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.741] | : . | options <- options[keep] [07:33:25.741] | : . | options [07:33:25.741] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:25.741] | : . | prefix = "fz:base::sapply"))) [07:33:25.741] | : . | expr <- as.call(parts) [07:33:25.741] | : . | expr [07:33:25.741] | : . | } [07:33:25.741] | : . | [07:33:25.743] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:25.743] | : get_transpiler() ... done [07:33:25.744] | : Transpile call expression ... [07:33:25.746] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:25.746] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:25.746] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:25.747] | : Transpile call expression ... done [07:33:25.748] | : Evaluate transpiled call expression [07:33:25.805] | transpile() ... done [07:33:25.806] futurize() ... done character(0) [07:33:25.808] futurize() ... [07:33:25.809] | transpile() ... [07:33:25.810] | : get_transpiler() ... [07:33:25.811] | : . Finding call to be transpiled ... [07:33:25.812] | : . | descend_wrappers() ... [07:33:25.813] | : . | : Call: [07:33:25.813] | : . | : sapply [07:33:25.815] | : . | : parse_call() ... [07:33:25.816] | : . | : . Function: sapply(...) [07:33:25.817] | : . | : . Locate function ... [07:33:25.818] | : . | : . | Function located in: 'base' [07:33:25.819] | : . | : . Locate function ... done [07:33:25.820] | : . | : parse_call() ... done [07:33:25.821] | : . | descend_wrappers() ... done [07:33:25.823] | : . | parse_call() ... [07:33:25.824] | : . | : Function: sapply(...) [07:33:25.825] | : . | : Locate function ... [07:33:25.826] | : . | : . Function located in: 'base' [07:33:25.827] | : . | : Locate function ... done [07:33:25.828] | : . | parse_call() ... done [07:33:25.829] | : . | Position of call to be transpiled in expression: c(1) [07:33:25.830] | : . | sapply [07:33:25.831] | : . Finding call to be transpiled ... done [07:33:25.832] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:25.833] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:25.834] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:25.835] | : . | Transpiler function: [07:33:25.836] | : . | function (expr, options = NULL) [07:33:25.836] | : . | { [07:33:25.836] | : . | call <- make_call("future_sapply") [07:33:25.836] | : . | fcn <- eval(call) [07:33:25.836] | : . | expr[[1]] <- call [07:33:25.836] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:25.836] | : . | { [07:33:25.836] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:25.836] | : . | if (is.null(defaults_base)) { [07:33:25.836] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:25.836] | : . | } [07:33:25.836] | : . | if (length(defaults) > 0) { [07:33:25.836] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:25.836] | : . | } [07:33:25.836] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:25.836] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:25.836] | : . | defaults <- defaults[keep] [07:33:25.836] | : . | specified <- attr(options, "specified") [07:33:25.836] | : . | if (length(specified) > 0) { [07:33:25.836] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:25.836] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:25.836] | : . | names(options)) [07:33:25.836] | : . | } [07:33:25.836] | : . | specified <- sprintf("future.%s", specified) [07:33:25.836] | : . | names <- setdiff(names(defaults), specified) [07:33:25.836] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:25.836] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:25.836] | : . | keep <- intersect(names(options), names(defaults)) [07:33:25.836] | : . | options <- options[keep] [07:33:25.836] | : . | options [07:33:25.836] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:25.836] | : . | prefix = "fz:base::sapply"))) [07:33:25.836] | : . | expr <- as.call(parts) [07:33:25.836] | : . | expr [07:33:25.836] | : . | } [07:33:25.836] | : . | [07:33:25.838] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:25.839] | : get_transpiler() ... done [07:33:25.840] | : Transpile call expression ... [07:33:25.842] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:25.842] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:25.842] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::sapply-%d") [07:33:25.844] | : Transpile call expression ... done [07:33:25.845] | : Evaluate transpiled call expression [07:33:26.002] | transpile() ... done [07:33:26.003] futurize() ... done Test with RNG: futurize(sapply(X = xs, FUN = FUN), seed = TRUE, flavor = "add-on") [07:33:26.004] futurize() ... [07:33:26.005] | transpile() ... [07:33:26.006] | : get_transpiler() ... [07:33:26.007] | : . Finding call to be transpiled ... [07:33:26.008] | : . | descend_wrappers() ... [07:33:26.009] | : . | : Call: [07:33:26.010] | : . | : sapply [07:33:26.011] | : . | : parse_call() ... [07:33:26.012] | : . | : . Function: sapply(...) [07:33:26.013] | : . | : . Locate function ... [07:33:26.014] | : . | : . | Function located in: 'base' [07:33:26.015] | : . | : . Locate function ... done [07:33:26.016] | : . | : parse_call() ... done [07:33:26.017] | : . | descend_wrappers() ... done [07:33:26.018] | : . | parse_call() ... [07:33:26.019] | : . | : Function: sapply(...) [07:33:26.020] | : . | : Locate function ... [07:33:26.021] | : . | : . Function located in: 'base' [07:33:26.022] | : . | : Locate function ... done [07:33:26.023] | : . | parse_call() ... done [07:33:26.024] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.024] | : . | sapply [07:33:26.026] | : . Finding call to be transpiled ... done [07:33:26.027] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.028] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.029] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.029] | : . | Transpiler function: [07:33:26.030] | : . | function (expr, options = NULL) [07:33:26.030] | : . | { [07:33:26.030] | : . | call <- make_call("future_sapply") [07:33:26.030] | : . | fcn <- eval(call) [07:33:26.030] | : . | expr[[1]] <- call [07:33:26.030] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.030] | : . | { [07:33:26.030] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.030] | : . | if (is.null(defaults_base)) { [07:33:26.030] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.030] | : . | } [07:33:26.030] | : . | if (length(defaults) > 0) { [07:33:26.030] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.030] | : . | } [07:33:26.030] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.030] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.030] | : . | defaults <- defaults[keep] [07:33:26.030] | : . | specified <- attr(options, "specified") [07:33:26.030] | : . | if (length(specified) > 0) { [07:33:26.030] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.030] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.030] | : . | names(options)) [07:33:26.030] | : . | } [07:33:26.030] | : . | specified <- sprintf("future.%s", specified) [07:33:26.030] | : . | names <- setdiff(names(defaults), specified) [07:33:26.030] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.030] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.030] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.030] | : . | options <- options[keep] [07:33:26.030] | : . | options [07:33:26.030] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.030] | : . | prefix = "fz:base::sapply"))) [07:33:26.030] | : . | expr <- as.call(parts) [07:33:26.030] | : . | expr [07:33:26.030] | : . | } [07:33:26.030] | : . | [07:33:26.032] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.033] | : get_transpiler() ... done [07:33:26.034] | : Transpile call expression ... [07:33:26.035] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:26.035] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:26.035] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:26.038] | : Transpile call expression ... done [07:33:26.039] | : Evaluate transpiled call expression [07:33:26.113] | transpile() ... done [07:33:26.115] futurize() ... done === sapply ========================== base::sapply(X = xs, FUN = FUN) --------------------------------- [07:33:26.116] futurize() ... [07:33:26.117] | transpile() ... [07:33:26.118] | : get_transpiler() ... [07:33:26.118] | : . Finding call to be transpiled ... [07:33:26.119] | : . | descend_wrappers() ... [07:33:26.120] | : . | : Call: [07:33:26.120] | : . | : base::sapply [07:33:26.121] | : . | : parse_call() ... [07:33:26.122] | : . | : . Function: base::sapply(...) [07:33:26.123] | : . | : parse_call() ... done [07:33:26.123] | : . | descend_wrappers() ... done [07:33:26.124] | : . | parse_call() ... [07:33:26.125] | : . | : Function: base::sapply(...) [07:33:26.126] | : . | parse_call() ... done [07:33:26.127] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.127] | : . | base::sapply [07:33:26.128] | : . Finding call to be transpiled ... done [07:33:26.129] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.130] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.130] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.131] | : . | Transpiler function: [07:33:26.132] | : . | function (expr, options = NULL) [07:33:26.132] | : . | { [07:33:26.132] | : . | call <- make_call("future_sapply") [07:33:26.132] | : . | fcn <- eval(call) [07:33:26.132] | : . | expr[[1]] <- call [07:33:26.132] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.132] | : . | { [07:33:26.132] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.132] | : . | if (is.null(defaults_base)) { [07:33:26.132] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.132] | : . | } [07:33:26.132] | : . | if (length(defaults) > 0) { [07:33:26.132] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.132] | : . | } [07:33:26.132] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.132] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.132] | : . | defaults <- defaults[keep] [07:33:26.132] | : . | specified <- attr(options, "specified") [07:33:26.132] | : . | if (length(specified) > 0) { [07:33:26.132] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.132] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.132] | : . | names(options)) [07:33:26.132] | : . | } [07:33:26.132] | : . | specified <- sprintf("future.%s", specified) [07:33:26.132] | : . | names <- setdiff(names(defaults), specified) [07:33:26.132] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.132] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.132] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.132] | : . | options <- options[keep] [07:33:26.132] | : . | options [07:33:26.132] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.132] | : . | prefix = "fz:base::sapply"))) [07:33:26.132] | : . | expr <- as.call(parts) [07:33:26.132] | : . | expr [07:33:26.132] | : . | } [07:33:26.132] | : . | [07:33:26.133] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.134] | : get_transpiler() ... done [07:33:26.134] | : Transpile call expression ... [07:33:26.136] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:26.136] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:26.136] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:26.137] | : Transpile call expression ... done [07:33:26.138] | : Evaluate transpiled call expression [07:33:26.187] | transpile() ... done [07:33:26.188] futurize() ... done Futures created: 2 [07:33:26.189] futurize() ... [07:33:26.190] | transpile() ... [07:33:26.191] | : get_transpiler() ... [07:33:26.192] | : . Finding call to be transpiled ... [07:33:26.193] | : . | descend_wrappers() ... [07:33:26.194] | : . | : Call: [07:33:26.195] | : . | : base::sapply [07:33:26.196] | : . | : parse_call() ... [07:33:26.197] | : . | : . Function: base::sapply(...) [07:33:26.198] | : . | : parse_call() ... done [07:33:26.199] | : . | descend_wrappers() ... done [07:33:26.199] | : . | parse_call() ... [07:33:26.200] | : . | : Function: base::sapply(...) [07:33:26.201] | : . | parse_call() ... done [07:33:26.202] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.203] | : . | base::sapply [07:33:26.204] | : . Finding call to be transpiled ... done [07:33:26.205] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.206] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.207] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.207] | : . | Transpiler function: [07:33:26.208] | : . | function (expr, options = NULL) [07:33:26.208] | : . | { [07:33:26.208] | : . | call <- make_call("future_sapply") [07:33:26.208] | : . | fcn <- eval(call) [07:33:26.208] | : . | expr[[1]] <- call [07:33:26.208] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.208] | : . | { [07:33:26.208] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.208] | : . | if (is.null(defaults_base)) { [07:33:26.208] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.208] | : . | } [07:33:26.208] | : . | if (length(defaults) > 0) { [07:33:26.208] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.208] | : . | } [07:33:26.208] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.208] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.208] | : . | defaults <- defaults[keep] [07:33:26.208] | : . | specified <- attr(options, "specified") [07:33:26.208] | : . | if (length(specified) > 0) { [07:33:26.208] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.208] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.208] | : . | names(options)) [07:33:26.208] | : . | } [07:33:26.208] | : . | specified <- sprintf("future.%s", specified) [07:33:26.208] | : . | names <- setdiff(names(defaults), specified) [07:33:26.208] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.208] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.208] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.208] | : . | options <- options[keep] [07:33:26.208] | : . | options [07:33:26.208] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.208] | : . | prefix = "fz:base::sapply"))) [07:33:26.208] | : . | expr <- as.call(parts) [07:33:26.208] | : . | expr [07:33:26.208] | : . | } [07:33:26.208] | : . | [07:33:26.210] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.211] | : get_transpiler() ... done [07:33:26.212] | : Transpile call expression ... [07:33:26.213] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:26.213] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:26.213] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:26.215] | : Transpile call expression ... done [07:33:26.216] | : Evaluate transpiled call expression [07:33:26.295] | transpile() ... done [07:33:26.296] futurize() ... done character(0) [07:33:26.297] futurize() ... [07:33:26.298] | transpile() ... [07:33:26.300] | : get_transpiler() ... [07:33:26.301] | : . Finding call to be transpiled ... [07:33:26.302] | : . | descend_wrappers() ... [07:33:26.303] | : . | : Call: [07:33:26.304] | : . | : base::sapply [07:33:26.305] | : . | : parse_call() ... [07:33:26.306] | : . | : . Function: base::sapply(...) [07:33:26.307] | : . | : parse_call() ... done [07:33:26.308] | : . | descend_wrappers() ... done [07:33:26.310] | : . | parse_call() ... [07:33:26.311] | : . | : Function: base::sapply(...) [07:33:26.312] | : . | parse_call() ... done [07:33:26.313] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.314] | : . | base::sapply [07:33:26.315] | : . Finding call to be transpiled ... done [07:33:26.317] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.318] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.319] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.320] | : . | Transpiler function: [07:33:26.321] | : . | function (expr, options = NULL) [07:33:26.321] | : . | { [07:33:26.321] | : . | call <- make_call("future_sapply") [07:33:26.321] | : . | fcn <- eval(call) [07:33:26.321] | : . | expr[[1]] <- call [07:33:26.321] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.321] | : . | { [07:33:26.321] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.321] | : . | if (is.null(defaults_base)) { [07:33:26.321] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.321] | : . | } [07:33:26.321] | : . | if (length(defaults) > 0) { [07:33:26.321] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.321] | : . | } [07:33:26.321] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.321] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.321] | : . | defaults <- defaults[keep] [07:33:26.321] | : . | specified <- attr(options, "specified") [07:33:26.321] | : . | if (length(specified) > 0) { [07:33:26.321] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.321] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.321] | : . | names(options)) [07:33:26.321] | : . | } [07:33:26.321] | : . | specified <- sprintf("future.%s", specified) [07:33:26.321] | : . | names <- setdiff(names(defaults), specified) [07:33:26.321] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.321] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.321] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.321] | : . | options <- options[keep] [07:33:26.321] | : . | options [07:33:26.321] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.321] | : . | prefix = "fz:base::sapply"))) [07:33:26.321] | : . | expr <- as.call(parts) [07:33:26.321] | : . | expr [07:33:26.321] | : . | } [07:33:26.321] | : . | [07:33:26.323] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.323] | : get_transpiler() ... done [07:33:26.324] | : Transpile call expression ... [07:33:26.325] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:26.325] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:26.325] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::sapply-%d") [07:33:26.327] | : Transpile call expression ... done [07:33:26.328] | : Evaluate transpiled call expression [07:33:26.472] | transpile() ... done [07:33:26.474] futurize() ... done Test with RNG: futurize(base::sapply(X = xs, FUN = FUN), seed = TRUE, flavor = "add-on") [07:33:26.475] futurize() ... [07:33:26.477] | transpile() ... [07:33:26.478] | : get_transpiler() ... [07:33:26.479] | : . Finding call to be transpiled ... [07:33:26.480] | : . | descend_wrappers() ... [07:33:26.481] | : . | : Call: [07:33:26.482] | : . | : base::sapply [07:33:26.483] | : . | : parse_call() ... [07:33:26.484] | : . | : . Function: base::sapply(...) [07:33:26.485] | : . | : parse_call() ... done [07:33:26.486] | : . | descend_wrappers() ... done [07:33:26.487] | : . | parse_call() ... [07:33:26.488] | : . | : Function: base::sapply(...) [07:33:26.489] | : . | parse_call() ... done [07:33:26.490] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.491] | : . | base::sapply [07:33:26.492] | : . Finding call to be transpiled ... done [07:33:26.493] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.494] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.495] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.496] | : . | Transpiler function: [07:33:26.497] | : . | function (expr, options = NULL) [07:33:26.497] | : . | { [07:33:26.497] | : . | call <- make_call("future_sapply") [07:33:26.497] | : . | fcn <- eval(call) [07:33:26.497] | : . | expr[[1]] <- call [07:33:26.497] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.497] | : . | { [07:33:26.497] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.497] | : . | if (is.null(defaults_base)) { [07:33:26.497] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.497] | : . | } [07:33:26.497] | : . | if (length(defaults) > 0) { [07:33:26.497] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.497] | : . | } [07:33:26.497] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.497] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.497] | : . | defaults <- defaults[keep] [07:33:26.497] | : . | specified <- attr(options, "specified") [07:33:26.497] | : . | if (length(specified) > 0) { [07:33:26.497] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.497] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.497] | : . | names(options)) [07:33:26.497] | : . | } [07:33:26.497] | : . | specified <- sprintf("future.%s", specified) [07:33:26.497] | : . | names <- setdiff(names(defaults), specified) [07:33:26.497] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.497] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.497] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.497] | : . | options <- options[keep] [07:33:26.497] | : . | options [07:33:26.497] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.497] | : . | prefix = "fz:base::sapply"))) [07:33:26.497] | : . | expr <- as.call(parts) [07:33:26.497] | : . | expr [07:33:26.497] | : . | } [07:33:26.497] | : . | [07:33:26.499] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.500] | : get_transpiler() ... done [07:33:26.501] | : Transpile call expression ... [07:33:26.502] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:26.502] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:26.502] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:26.504] | : Transpile call expression ... done [07:33:26.505] | : Evaluate transpiled call expression [07:33:26.582] | transpile() ... done [07:33:26.583] futurize() ... done === sapply ========================== base::sapply(X = xs, FUN = FUN, simplify = FALSE) --------------------------------- [07:33:26.585] futurize() ... [07:33:26.586] | transpile() ... [07:33:26.587] | : get_transpiler() ... [07:33:26.588] | : . Finding call to be transpiled ... [07:33:26.589] | : . | descend_wrappers() ... [07:33:26.590] | : . | : Call: [07:33:26.591] | : . | : base::sapply [07:33:26.592] | : . | : parse_call() ... [07:33:26.593] | : . | : . Function: base::sapply(...) [07:33:26.593] | : . | : parse_call() ... done [07:33:26.594] | : . | descend_wrappers() ... done [07:33:26.595] | : . | parse_call() ... [07:33:26.596] | : . | : Function: base::sapply(...) [07:33:26.597] | : . | parse_call() ... done [07:33:26.598] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.598] | : . | base::sapply [07:33:26.599] | : . Finding call to be transpiled ... done [07:33:26.600] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.601] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.602] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.603] | : . | Transpiler function: [07:33:26.604] | : . | function (expr, options = NULL) [07:33:26.604] | : . | { [07:33:26.604] | : . | call <- make_call("future_sapply") [07:33:26.604] | : . | fcn <- eval(call) [07:33:26.604] | : . | expr[[1]] <- call [07:33:26.604] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.604] | : . | { [07:33:26.604] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.604] | : . | if (is.null(defaults_base)) { [07:33:26.604] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.604] | : . | } [07:33:26.604] | : . | if (length(defaults) > 0) { [07:33:26.604] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.604] | : . | } [07:33:26.604] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.604] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.604] | : . | defaults <- defaults[keep] [07:33:26.604] | : . | specified <- attr(options, "specified") [07:33:26.604] | : . | if (length(specified) > 0) { [07:33:26.604] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.604] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.604] | : . | names(options)) [07:33:26.604] | : . | } [07:33:26.604] | : . | specified <- sprintf("future.%s", specified) [07:33:26.604] | : . | names <- setdiff(names(defaults), specified) [07:33:26.604] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.604] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.604] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.604] | : . | options <- options[keep] [07:33:26.604] | : . | options [07:33:26.604] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.604] | : . | prefix = "fz:base::sapply"))) [07:33:26.604] | : . | expr <- as.call(parts) [07:33:26.604] | : . | expr [07:33:26.604] | : . | } [07:33:26.604] | : . | [07:33:26.605] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.606] | : get_transpiler() ... done [07:33:26.607] | : Transpile call expression ... [07:33:26.608] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:26.608] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:26.608] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:26.610] | : Transpile call expression ... done [07:33:26.611] | : Evaluate transpiled call expression [07:33:26.667] | transpile() ... done [07:33:26.669] futurize() ... done Futures created: 2 [07:33:26.670] futurize() ... [07:33:26.671] | transpile() ... [07:33:26.672] | : get_transpiler() ... [07:33:26.673] | : . Finding call to be transpiled ... [07:33:26.674] | : . | descend_wrappers() ... [07:33:26.675] | : . | : Call: [07:33:26.676] | : . | : base::sapply [07:33:26.677] | : . | : parse_call() ... [07:33:26.678] | : . | : . Function: base::sapply(...) [07:33:26.679] | : . | : parse_call() ... done [07:33:26.680] | : . | descend_wrappers() ... done [07:33:26.681] | : . | parse_call() ... [07:33:26.682] | : . | : Function: base::sapply(...) [07:33:26.683] | : . | parse_call() ... done [07:33:26.684] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.685] | : . | base::sapply [07:33:26.686] | : . Finding call to be transpiled ... done [07:33:26.687] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.688] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.689] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.690] | : . | Transpiler function: [07:33:26.691] | : . | function (expr, options = NULL) [07:33:26.691] | : . | { [07:33:26.691] | : . | call <- make_call("future_sapply") [07:33:26.691] | : . | fcn <- eval(call) [07:33:26.691] | : . | expr[[1]] <- call [07:33:26.691] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.691] | : . | { [07:33:26.691] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.691] | : . | if (is.null(defaults_base)) { [07:33:26.691] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.691] | : . | } [07:33:26.691] | : . | if (length(defaults) > 0) { [07:33:26.691] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.691] | : . | } [07:33:26.691] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.691] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.691] | : . | defaults <- defaults[keep] [07:33:26.691] | : . | specified <- attr(options, "specified") [07:33:26.691] | : . | if (length(specified) > 0) { [07:33:26.691] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.691] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.691] | : . | names(options)) [07:33:26.691] | : . | } [07:33:26.691] | : . | specified <- sprintf("future.%s", specified) [07:33:26.691] | : . | names <- setdiff(names(defaults), specified) [07:33:26.691] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.691] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.691] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.691] | : . | options <- options[keep] [07:33:26.691] | : . | options [07:33:26.691] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.691] | : . | prefix = "fz:base::sapply"))) [07:33:26.691] | : . | expr <- as.call(parts) [07:33:26.691] | : . | expr [07:33:26.691] | : . | } [07:33:26.691] | : . | [07:33:26.693] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.694] | : get_transpiler() ... done [07:33:26.695] | : Transpile call expression ... [07:33:26.696] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:26.696] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:26.696] | : . future.conditions = character(0), future.scheduling = 1, [07:33:26.696] | : . future.label = "fz:base::sapply-%d") [07:33:26.699] | : Transpile call expression ... done [07:33:26.700] | : Evaluate transpiled call expression [07:33:26.763] | transpile() ... done [07:33:26.764] futurize() ... done character(0) [07:33:26.765] futurize() ... [07:33:26.766] | transpile() ... [07:33:26.766] | : get_transpiler() ... [07:33:26.767] | : . Finding call to be transpiled ... [07:33:26.768] | : . | descend_wrappers() ... [07:33:26.769] | : . | : Call: [07:33:26.770] | : . | : base::sapply [07:33:26.771] | : . | : parse_call() ... [07:33:26.771] | : . | : . Function: base::sapply(...) [07:33:26.772] | : . | : parse_call() ... done [07:33:26.773] | : . | descend_wrappers() ... done [07:33:26.774] | : . | parse_call() ... [07:33:26.775] | : . | : Function: base::sapply(...) [07:33:26.775] | : . | parse_call() ... done [07:33:26.776] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.777] | : . | base::sapply [07:33:26.778] | : . Finding call to be transpiled ... done [07:33:26.779] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.779] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.780] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.781] | : . | Transpiler function: [07:33:26.782] | : . | function (expr, options = NULL) [07:33:26.782] | : . | { [07:33:26.782] | : . | call <- make_call("future_sapply") [07:33:26.782] | : . | fcn <- eval(call) [07:33:26.782] | : . | expr[[1]] <- call [07:33:26.782] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.782] | : . | { [07:33:26.782] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.782] | : . | if (is.null(defaults_base)) { [07:33:26.782] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.782] | : . | } [07:33:26.782] | : . | if (length(defaults) > 0) { [07:33:26.782] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.782] | : . | } [07:33:26.782] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.782] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.782] | : . | defaults <- defaults[keep] [07:33:26.782] | : . | specified <- attr(options, "specified") [07:33:26.782] | : . | if (length(specified) > 0) { [07:33:26.782] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.782] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.782] | : . | names(options)) [07:33:26.782] | : . | } [07:33:26.782] | : . | specified <- sprintf("future.%s", specified) [07:33:26.782] | : . | names <- setdiff(names(defaults), specified) [07:33:26.782] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.782] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.782] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.782] | : . | options <- options[keep] [07:33:26.782] | : . | options [07:33:26.782] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.782] | : . | prefix = "fz:base::sapply"))) [07:33:26.782] | : . | expr <- as.call(parts) [07:33:26.782] | : . | expr [07:33:26.782] | : . | } [07:33:26.782] | : . | [07:33:26.783] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.784] | : get_transpiler() ... done [07:33:26.785] | : Transpile call expression ... [07:33:26.786] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:26.786] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:26.786] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:26.786] | : . future.label = "fz:base::sapply-%d") [07:33:26.788] | : Transpile call expression ... done [07:33:26.789] | : Evaluate transpiled call expression [07:33:26.926] | transpile() ... done [07:33:26.927] futurize() ... done Test with RNG: futurize(base::sapply(X = xs, FUN = FUN, simplify = FALSE), seed = TRUE, flavor = "add-on") [07:33:26.929] futurize() ... [07:33:26.930] | transpile() ... [07:33:26.931] | : get_transpiler() ... [07:33:26.932] | : . Finding call to be transpiled ... [07:33:26.933] | : . | descend_wrappers() ... [07:33:26.934] | : . | : Call: [07:33:26.935] | : . | : base::sapply [07:33:26.936] | : . | : parse_call() ... [07:33:26.937] | : . | : . Function: base::sapply(...) [07:33:26.938] | : . | : parse_call() ... done [07:33:26.939] | : . | descend_wrappers() ... done [07:33:26.940] | : . | parse_call() ... [07:33:26.942] | : . | : Function: base::sapply(...) [07:33:26.943] | : . | parse_call() ... done [07:33:26.944] | : . | Position of call to be transpiled in expression: c(1) [07:33:26.945] | : . | base::sapply [07:33:26.946] | : . Finding call to be transpiled ... done [07:33:26.947] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:26.948] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:26.949] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:26.950] | : . | Transpiler function: [07:33:26.951] | : . | function (expr, options = NULL) [07:33:26.951] | : . | { [07:33:26.951] | : . | call <- make_call("future_sapply") [07:33:26.951] | : . | fcn <- eval(call) [07:33:26.951] | : . | expr[[1]] <- call [07:33:26.951] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:26.951] | : . | { [07:33:26.951] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:26.951] | : . | if (is.null(defaults_base)) { [07:33:26.951] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:26.951] | : . | } [07:33:26.951] | : . | if (length(defaults) > 0) { [07:33:26.951] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:26.951] | : . | } [07:33:26.951] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:26.951] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:26.951] | : . | defaults <- defaults[keep] [07:33:26.951] | : . | specified <- attr(options, "specified") [07:33:26.951] | : . | if (length(specified) > 0) { [07:33:26.951] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:26.951] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:26.951] | : . | names(options)) [07:33:26.951] | : . | } [07:33:26.951] | : . | specified <- sprintf("future.%s", specified) [07:33:26.951] | : . | names <- setdiff(names(defaults), specified) [07:33:26.951] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:26.951] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:26.951] | : . | keep <- intersect(names(options), names(defaults)) [07:33:26.951] | : . | options <- options[keep] [07:33:26.951] | : . | options [07:33:26.951] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:26.951] | : . | prefix = "fz:base::sapply"))) [07:33:26.951] | : . | expr <- as.call(parts) [07:33:26.951] | : . | expr [07:33:26.951] | : . | } [07:33:26.951] | : . | [07:33:26.952] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:26.954] | : get_transpiler() ... done [07:33:26.954] | : Transpile call expression ... [07:33:26.956] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:26.956] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:26.956] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:26.958] | : Transpile call expression ... done [07:33:26.959] | : Evaluate transpiled call expression [07:33:27.015] | transpile() ... done [07:33:27.016] futurize() ... done === sapply ========================== base::sapply(X = xs, FUN = FUN, USE.NAMES = FALSE) --------------------------------- [07:33:27.018] futurize() ... [07:33:27.019] | transpile() ... [07:33:27.020] | : get_transpiler() ... [07:33:27.021] | : . Finding call to be transpiled ... [07:33:27.022] | : . | descend_wrappers() ... [07:33:27.023] | : . | : Call: [07:33:27.024] | : . | : base::sapply [07:33:27.025] | : . | : parse_call() ... [07:33:27.026] | : . | : . Function: base::sapply(...) [07:33:27.027] | : . | : parse_call() ... done [07:33:27.028] | : . | descend_wrappers() ... done [07:33:27.029] | : . | parse_call() ... [07:33:27.030] | : . | : Function: base::sapply(...) [07:33:27.030] | : . | parse_call() ... done [07:33:27.031] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.032] | : . | base::sapply [07:33:27.033] | : . Finding call to be transpiled ... done [07:33:27.034] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:27.035] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.036] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:27.037] | : . | Transpiler function: [07:33:27.038] | : . | function (expr, options = NULL) [07:33:27.038] | : . | { [07:33:27.038] | : . | call <- make_call("future_sapply") [07:33:27.038] | : . | fcn <- eval(call) [07:33:27.038] | : . | expr[[1]] <- call [07:33:27.038] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.038] | : . | { [07:33:27.038] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.038] | : . | if (is.null(defaults_base)) { [07:33:27.038] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.038] | : . | } [07:33:27.038] | : . | if (length(defaults) > 0) { [07:33:27.038] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.038] | : . | } [07:33:27.038] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.038] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.038] | : . | defaults <- defaults[keep] [07:33:27.038] | : . | specified <- attr(options, "specified") [07:33:27.038] | : . | if (length(specified) > 0) { [07:33:27.038] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.038] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.038] | : . | names(options)) [07:33:27.038] | : . | } [07:33:27.038] | : . | specified <- sprintf("future.%s", specified) [07:33:27.038] | : . | names <- setdiff(names(defaults), specified) [07:33:27.038] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.038] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.038] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.038] | : . | options <- options[keep] [07:33:27.038] | : . | options [07:33:27.038] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:27.038] | : . | prefix = "fz:base::sapply"))) [07:33:27.038] | : . | expr <- as.call(parts) [07:33:27.038] | : . | expr [07:33:27.038] | : . | } [07:33:27.038] | : . | [07:33:27.040] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:27.041] | : get_transpiler() ... done [07:33:27.042] | : Transpile call expression ... [07:33:27.043] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:27.043] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:27.043] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:27.045] | : Transpile call expression ... done [07:33:27.046] | : Evaluate transpiled call expression [07:33:27.106] | transpile() ... done [07:33:27.107] futurize() ... done Futures created: 2 [07:33:27.109] futurize() ... [07:33:27.110] | transpile() ... [07:33:27.111] | : get_transpiler() ... [07:33:27.112] | : . Finding call to be transpiled ... [07:33:27.113] | : . | descend_wrappers() ... [07:33:27.114] | : . | : Call: [07:33:27.115] | : . | : base::sapply [07:33:27.117] | : . | : parse_call() ... [07:33:27.118] | : . | : . Function: base::sapply(...) [07:33:27.119] | : . | : parse_call() ... done [07:33:27.120] | : . | descend_wrappers() ... done [07:33:27.121] | : . | parse_call() ... [07:33:27.122] | : . | : Function: base::sapply(...) [07:33:27.123] | : . | parse_call() ... done [07:33:27.123] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.124] | : . | base::sapply [07:33:27.126] | : . Finding call to be transpiled ... done [07:33:27.127] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:27.128] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.129] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:27.130] | : . | Transpiler function: [07:33:27.131] | : . | function (expr, options = NULL) [07:33:27.131] | : . | { [07:33:27.131] | : . | call <- make_call("future_sapply") [07:33:27.131] | : . | fcn <- eval(call) [07:33:27.131] | : . | expr[[1]] <- call [07:33:27.131] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.131] | : . | { [07:33:27.131] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.131] | : . | if (is.null(defaults_base)) { [07:33:27.131] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.131] | : . | } [07:33:27.131] | : . | if (length(defaults) > 0) { [07:33:27.131] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.131] | : . | } [07:33:27.131] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.131] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.131] | : . | defaults <- defaults[keep] [07:33:27.131] | : . | specified <- attr(options, "specified") [07:33:27.131] | : . | if (length(specified) > 0) { [07:33:27.131] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.131] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.131] | : . | names(options)) [07:33:27.131] | : . | } [07:33:27.131] | : . | specified <- sprintf("future.%s", specified) [07:33:27.131] | : . | names <- setdiff(names(defaults), specified) [07:33:27.131] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.131] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.131] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.131] | : . | options <- options[keep] [07:33:27.131] | : . | options [07:33:27.131] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:27.131] | : . | prefix = "fz:base::sapply"))) [07:33:27.131] | : . | expr <- as.call(parts) [07:33:27.131] | : . | expr [07:33:27.131] | : . | } [07:33:27.131] | : . | [07:33:27.133] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:27.134] | : get_transpiler() ... done [07:33:27.135] | : Transpile call expression ... [07:33:27.137] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:27.137] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:27.137] | : . future.conditions = character(0), future.scheduling = 1, [07:33:27.137] | : . future.label = "fz:base::sapply-%d") [07:33:27.139] | : Transpile call expression ... done [07:33:27.140] | : Evaluate transpiled call expression [07:33:27.207] | transpile() ... done [07:33:27.209] futurize() ... done character(0) [07:33:27.210] futurize() ... [07:33:27.211] | transpile() ... [07:33:27.212] | : get_transpiler() ... [07:33:27.213] | : . Finding call to be transpiled ... [07:33:27.215] | : . | descend_wrappers() ... [07:33:27.216] | : . | : Call: [07:33:27.217] | : . | : base::sapply [07:33:27.218] | : . | : parse_call() ... [07:33:27.219] | : . | : . Function: base::sapply(...) [07:33:27.220] | : . | : parse_call() ... done [07:33:27.222] | : . | descend_wrappers() ... done [07:33:27.223] | : . | parse_call() ... [07:33:27.224] | : . | : Function: base::sapply(...) [07:33:27.225] | : . | parse_call() ... done [07:33:27.226] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.227] | : . | base::sapply [07:33:27.229] | : . Finding call to be transpiled ... done [07:33:27.230] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:27.231] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.232] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:27.233] | : . | Transpiler function: [07:33:27.234] | : . | function (expr, options = NULL) [07:33:27.234] | : . | { [07:33:27.234] | : . | call <- make_call("future_sapply") [07:33:27.234] | : . | fcn <- eval(call) [07:33:27.234] | : . | expr[[1]] <- call [07:33:27.234] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.234] | : . | { [07:33:27.234] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.234] | : . | if (is.null(defaults_base)) { [07:33:27.234] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.234] | : . | } [07:33:27.234] | : . | if (length(defaults) > 0) { [07:33:27.234] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.234] | : . | } [07:33:27.234] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.234] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.234] | : . | defaults <- defaults[keep] [07:33:27.234] | : . | specified <- attr(options, "specified") [07:33:27.234] | : . | if (length(specified) > 0) { [07:33:27.234] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.234] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.234] | : . | names(options)) [07:33:27.234] | : . | } [07:33:27.234] | : . | specified <- sprintf("future.%s", specified) [07:33:27.234] | : . | names <- setdiff(names(defaults), specified) [07:33:27.234] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.234] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.234] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.234] | : . | options <- options[keep] [07:33:27.234] | : . | options [07:33:27.234] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:27.234] | : . | prefix = "fz:base::sapply"))) [07:33:27.234] | : . | expr <- as.call(parts) [07:33:27.234] | : . | expr [07:33:27.234] | : . | } [07:33:27.234] | : . | [07:33:27.236] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:27.237] | : get_transpiler() ... done [07:33:27.239] | : Transpile call expression ... [07:33:27.240] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:27.240] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:27.240] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:27.240] | : . future.label = "fz:base::sapply-%d") [07:33:27.243] | : Transpile call expression ... done [07:33:27.244] | : Evaluate transpiled call expression [07:33:27.395] | transpile() ... done [07:33:27.396] futurize() ... done Test with RNG: futurize(base::sapply(X = xs, FUN = FUN, USE.NAMES = FALSE), seed = TRUE, flavor = "add-on") [07:33:27.397] futurize() ... [07:33:27.398] | transpile() ... [07:33:27.399] | : get_transpiler() ... [07:33:27.400] | : . Finding call to be transpiled ... [07:33:27.400] | : . | descend_wrappers() ... [07:33:27.401] | : . | : Call: [07:33:27.402] | : . | : base::sapply [07:33:27.403] | : . | : parse_call() ... [07:33:27.403] | : . | : . Function: base::sapply(...) [07:33:27.404] | : . | : parse_call() ... done [07:33:27.405] | : . | descend_wrappers() ... done [07:33:27.406] | : . | parse_call() ... [07:33:27.407] | : . | : Function: base::sapply(...) [07:33:27.408] | : . | parse_call() ... done [07:33:27.409] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.410] | : . | base::sapply [07:33:27.412] | : . Finding call to be transpiled ... done [07:33:27.413] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:27.414] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.415] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:27.416] | : . | Transpiler function: [07:33:27.417] | : . | function (expr, options = NULL) [07:33:27.417] | : . | { [07:33:27.417] | : . | call <- make_call("future_sapply") [07:33:27.417] | : . | fcn <- eval(call) [07:33:27.417] | : . | expr[[1]] <- call [07:33:27.417] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.417] | : . | { [07:33:27.417] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.417] | : . | if (is.null(defaults_base)) { [07:33:27.417] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.417] | : . | } [07:33:27.417] | : . | if (length(defaults) > 0) { [07:33:27.417] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.417] | : . | } [07:33:27.417] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.417] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.417] | : . | defaults <- defaults[keep] [07:33:27.417] | : . | specified <- attr(options, "specified") [07:33:27.417] | : . | if (length(specified) > 0) { [07:33:27.417] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.417] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.417] | : . | names(options)) [07:33:27.417] | : . | } [07:33:27.417] | : . | specified <- sprintf("future.%s", specified) [07:33:27.417] | : . | names <- setdiff(names(defaults), specified) [07:33:27.417] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.417] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.417] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.417] | : . | options <- options[keep] [07:33:27.417] | : . | options [07:33:27.417] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:27.417] | : . | prefix = "fz:base::sapply"))) [07:33:27.417] | : . | expr <- as.call(parts) [07:33:27.417] | : . | expr [07:33:27.417] | : . | } [07:33:27.417] | : . | [07:33:27.419] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:27.420] | : get_transpiler() ... done [07:33:27.421] | : Transpile call expression ... [07:33:27.423] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:27.423] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:27.423] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:27.425] | : Transpile call expression ... done [07:33:27.426] | : Evaluate transpiled call expression [07:33:27.504] | transpile() ... done [07:33:27.505] futurize() ... done === vapply ========================== base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN) --------------------------------- [07:33:27.507] futurize() ... [07:33:27.508] | transpile() ... [07:33:27.508] | : get_transpiler() ... [07:33:27.509] | : . Finding call to be transpiled ... [07:33:27.510] | : . | descend_wrappers() ... [07:33:27.511] | : . | : Call: [07:33:27.512] | : . | : base::vapply [07:33:27.513] | : . | : parse_call() ... [07:33:27.513] | : . | : . Function: base::vapply(...) [07:33:27.514] | : . | : parse_call() ... done [07:33:27.515] | : . | descend_wrappers() ... done [07:33:27.516] | : . | parse_call() ... [07:33:27.517] | : . | : Function: base::vapply(...) [07:33:27.517] | : . | parse_call() ... done [07:33:27.518] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.519] | : . | base::vapply [07:33:27.520] | : . Finding call to be transpiled ... done [07:33:27.521] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:27.522] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.522] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:27.523] | : . | Transpiler function: [07:33:27.524] | : . | function (expr, options = NULL) [07:33:27.524] | : . | { [07:33:27.524] | : . | call <- make_call("future_vapply") [07:33:27.524] | : . | fcn <- eval(call) [07:33:27.524] | : . | expr[[1]] <- call [07:33:27.524] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.524] | : . | { [07:33:27.524] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.524] | : . | if (is.null(defaults_base)) { [07:33:27.524] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.524] | : . | } [07:33:27.524] | : . | if (length(defaults) > 0) { [07:33:27.524] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.524] | : . | } [07:33:27.524] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.524] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.524] | : . | defaults <- defaults[keep] [07:33:27.524] | : . | specified <- attr(options, "specified") [07:33:27.524] | : . | if (length(specified) > 0) { [07:33:27.524] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.524] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.524] | : . | names(options)) [07:33:27.524] | : . | } [07:33:27.524] | : . | specified <- sprintf("future.%s", specified) [07:33:27.524] | : . | names <- setdiff(names(defaults), specified) [07:33:27.524] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.524] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.524] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.524] | : . | options <- options[keep] [07:33:27.524] | : . | options [07:33:27.524] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:27.524] | : . | prefix = "fz:base::vapply"))) [07:33:27.524] | : . | expr <- as.call(parts) [07:33:27.524] | : . | expr [07:33:27.524] | : . | } [07:33:27.524] | : . | [07:33:27.526] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:27.526] | : get_transpiler() ... done [07:33:27.527] | : Transpile call expression ... [07:33:27.529] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:27.529] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:27.529] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::vapply-%d") [07:33:27.531] | : Transpile call expression ... done [07:33:27.532] | : Evaluate transpiled call expression [07:33:27.628] | transpile() ... done [07:33:27.629] futurize() ... done Futures created: 2 [07:33:27.631] futurize() ... [07:33:27.631] | transpile() ... [07:33:27.632] | : get_transpiler() ... [07:33:27.633] | : . Finding call to be transpiled ... [07:33:27.634] | : . | descend_wrappers() ... [07:33:27.635] | : . | : Call: [07:33:27.635] | : . | : base::vapply [07:33:27.637] | : . | : parse_call() ... [07:33:27.637] | : . | : . Function: base::vapply(...) [07:33:27.638] | : . | : parse_call() ... done [07:33:27.639] | : . | descend_wrappers() ... done [07:33:27.640] | : . | parse_call() ... [07:33:27.641] | : . | : Function: base::vapply(...) [07:33:27.641] | : . | parse_call() ... done [07:33:27.642] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.643] | : . | base::vapply [07:33:27.644] | : . Finding call to be transpiled ... done [07:33:27.645] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:27.646] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.647] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:27.648] | : . | Transpiler function: [07:33:27.648] | : . | function (expr, options = NULL) [07:33:27.648] | : . | { [07:33:27.648] | : . | call <- make_call("future_vapply") [07:33:27.648] | : . | fcn <- eval(call) [07:33:27.648] | : . | expr[[1]] <- call [07:33:27.648] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.648] | : . | { [07:33:27.648] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.648] | : . | if (is.null(defaults_base)) { [07:33:27.648] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.648] | : . | } [07:33:27.648] | : . | if (length(defaults) > 0) { [07:33:27.648] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.648] | : . | } [07:33:27.648] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.648] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.648] | : . | defaults <- defaults[keep] [07:33:27.648] | : . | specified <- attr(options, "specified") [07:33:27.648] | : . | if (length(specified) > 0) { [07:33:27.648] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.648] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.648] | : . | names(options)) [07:33:27.648] | : . | } [07:33:27.648] | : . | specified <- sprintf("future.%s", specified) [07:33:27.648] | : . | names <- setdiff(names(defaults), specified) [07:33:27.648] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.648] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.648] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.648] | : . | options <- options[keep] [07:33:27.648] | : . | options [07:33:27.648] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:27.648] | : . | prefix = "fz:base::vapply"))) [07:33:27.648] | : . | expr <- as.call(parts) [07:33:27.648] | : . | expr [07:33:27.648] | : . | } [07:33:27.648] | : . | [07:33:27.650] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:27.651] | : get_transpiler() ... done [07:33:27.652] | : Transpile call expression ... [07:33:27.653] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:27.653] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:27.653] | : . future.conditions = character(0), future.scheduling = 1, [07:33:27.653] | : . future.label = "fz:base::vapply-%d") [07:33:27.655] | : Transpile call expression ... done [07:33:27.655] | : Evaluate transpiled call expression [07:33:27.728] | transpile() ... done [07:33:27.729] futurize() ... done character(0) [07:33:27.731] futurize() ... [07:33:27.732] | transpile() ... [07:33:27.733] | : get_transpiler() ... [07:33:27.734] | : . Finding call to be transpiled ... [07:33:27.735] | : . | descend_wrappers() ... [07:33:27.735] | : . | : Call: [07:33:27.736] | : . | : base::vapply [07:33:27.738] | : . | : parse_call() ... [07:33:27.739] | : . | : . Function: base::vapply(...) [07:33:27.739] | : . | : parse_call() ... done [07:33:27.740] | : . | descend_wrappers() ... done [07:33:27.741] | : . | parse_call() ... [07:33:27.742] | : . | : Function: base::vapply(...) [07:33:27.743] | : . | parse_call() ... done [07:33:27.744] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.745] | : . | base::vapply [07:33:27.746] | : . Finding call to be transpiled ... done [07:33:27.747] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:27.748] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.749] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:27.750] | : . | Transpiler function: [07:33:27.751] | : . | function (expr, options = NULL) [07:33:27.751] | : . | { [07:33:27.751] | : . | call <- make_call("future_vapply") [07:33:27.751] | : . | fcn <- eval(call) [07:33:27.751] | : . | expr[[1]] <- call [07:33:27.751] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.751] | : . | { [07:33:27.751] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.751] | : . | if (is.null(defaults_base)) { [07:33:27.751] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.751] | : . | } [07:33:27.751] | : . | if (length(defaults) > 0) { [07:33:27.751] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.751] | : . | } [07:33:27.751] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.751] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.751] | : . | defaults <- defaults[keep] [07:33:27.751] | : . | specified <- attr(options, "specified") [07:33:27.751] | : . | if (length(specified) > 0) { [07:33:27.751] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.751] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.751] | : . | names(options)) [07:33:27.751] | : . | } [07:33:27.751] | : . | specified <- sprintf("future.%s", specified) [07:33:27.751] | : . | names <- setdiff(names(defaults), specified) [07:33:27.751] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.751] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.751] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.751] | : . | options <- options[keep] [07:33:27.751] | : . | options [07:33:27.751] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:27.751] | : . | prefix = "fz:base::vapply"))) [07:33:27.751] | : . | expr <- as.call(parts) [07:33:27.751] | : . | expr [07:33:27.751] | : . | } [07:33:27.751] | : . | [07:33:27.752] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:27.752] | : get_transpiler() ... done [07:33:27.753] | : Transpile call expression ... [07:33:27.754] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:27.754] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:27.754] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:27.754] | : . future.label = "fz:base::vapply-%d") [07:33:27.755] | : Transpile call expression ... done [07:33:27.756] | : Evaluate transpiled call expression [07:33:27.928] | transpile() ... done [07:33:27.929] futurize() ... done Test with RNG: futurize(base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN), seed = TRUE, flavor = "add-on") [07:33:27.930] futurize() ... [07:33:27.930] | transpile() ... [07:33:27.931] | : get_transpiler() ... [07:33:27.932] | : . Finding call to be transpiled ... [07:33:27.932] | : . | descend_wrappers() ... [07:33:27.933] | : . | : Call: [07:33:27.934] | : . | : base::vapply [07:33:27.935] | : . | : parse_call() ... [07:33:27.936] | : . | : . Function: base::vapply(...) [07:33:27.937] | : . | : parse_call() ... done [07:33:27.938] | : . | descend_wrappers() ... done [07:33:27.939] | : . | parse_call() ... [07:33:27.939] | : . | : Function: base::vapply(...) [07:33:27.940] | : . | parse_call() ... done [07:33:27.941] | : . | Position of call to be transpiled in expression: c(1) [07:33:27.941] | : . | base::vapply [07:33:27.942] | : . Finding call to be transpiled ... done [07:33:27.943] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:27.944] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:27.944] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:27.945] | : . | Transpiler function: [07:33:27.945] | : . | function (expr, options = NULL) [07:33:27.945] | : . | { [07:33:27.945] | : . | call <- make_call("future_vapply") [07:33:27.945] | : . | fcn <- eval(call) [07:33:27.945] | : . | expr[[1]] <- call [07:33:27.945] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:27.945] | : . | { [07:33:27.945] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:27.945] | : . | if (is.null(defaults_base)) { [07:33:27.945] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:27.945] | : . | } [07:33:27.945] | : . | if (length(defaults) > 0) { [07:33:27.945] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:27.945] | : . | } [07:33:27.945] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:27.945] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:27.945] | : . | defaults <- defaults[keep] [07:33:27.945] | : . | specified <- attr(options, "specified") [07:33:27.945] | : . | if (length(specified) > 0) { [07:33:27.945] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:27.945] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:27.945] | : . | names(options)) [07:33:27.945] | : . | } [07:33:27.945] | : . | specified <- sprintf("future.%s", specified) [07:33:27.945] | : . | names <- setdiff(names(defaults), specified) [07:33:27.945] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:27.945] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:27.945] | : . | keep <- intersect(names(options), names(defaults)) [07:33:27.945] | : . | options <- options[keep] [07:33:27.945] | : . | options [07:33:27.945] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:27.945] | : . | prefix = "fz:base::vapply"))) [07:33:27.945] | : . | expr <- as.call(parts) [07:33:27.945] | : . | expr [07:33:27.945] | : . | } [07:33:27.945] | : . | [07:33:27.947] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:27.948] | : get_transpiler() ... done [07:33:27.948] | : Transpile call expression ... [07:33:27.950] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:27.950] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:27.950] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::vapply-%d") [07:33:27.951] | : Transpile call expression ... done [07:33:27.952] | : Evaluate transpiled call expression [07:33:28.076] | transpile() ... done [07:33:28.077] futurize() ... done === vapply ========================== base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, USE.NAMES = FALSE) --------------------------------- [07:33:28.079] futurize() ... [07:33:28.080] | transpile() ... [07:33:28.081] | : get_transpiler() ... [07:33:28.082] | : . Finding call to be transpiled ... [07:33:28.083] | : . | descend_wrappers() ... [07:33:28.084] | : . | : Call: [07:33:28.084] | : . | : base::vapply [07:33:28.085] | : . | : parse_call() ... [07:33:28.086] | : . | : . Function: base::vapply(...) [07:33:28.087] | : . | : parse_call() ... done [07:33:28.088] | : . | descend_wrappers() ... done [07:33:28.089] | : . | parse_call() ... [07:33:28.090] | : . | : Function: base::vapply(...) [07:33:28.091] | : . | parse_call() ... done [07:33:28.091] | : . | Position of call to be transpiled in expression: c(1) [07:33:28.092] | : . | base::vapply [07:33:28.093] | : . Finding call to be transpiled ... done [07:33:28.094] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:28.095] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:28.096] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:28.097] | : . | Transpiler function: [07:33:28.098] | : . | function (expr, options = NULL) [07:33:28.098] | : . | { [07:33:28.098] | : . | call <- make_call("future_vapply") [07:33:28.098] | : . | fcn <- eval(call) [07:33:28.098] | : . | expr[[1]] <- call [07:33:28.098] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:28.098] | : . | { [07:33:28.098] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:28.098] | : . | if (is.null(defaults_base)) { [07:33:28.098] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:28.098] | : . | } [07:33:28.098] | : . | if (length(defaults) > 0) { [07:33:28.098] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:28.098] | : . | } [07:33:28.098] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:28.098] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:28.098] | : . | defaults <- defaults[keep] [07:33:28.098] | : . | specified <- attr(options, "specified") [07:33:28.098] | : . | if (length(specified) > 0) { [07:33:28.098] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:28.098] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:28.098] | : . | names(options)) [07:33:28.098] | : . | } [07:33:28.098] | : . | specified <- sprintf("future.%s", specified) [07:33:28.098] | : . | names <- setdiff(names(defaults), specified) [07:33:28.098] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:28.098] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:28.098] | : . | keep <- intersect(names(options), names(defaults)) [07:33:28.098] | : . | options <- options[keep] [07:33:28.098] | : . | options [07:33:28.098] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:28.098] | : . | prefix = "fz:base::vapply"))) [07:33:28.098] | : . | expr <- as.call(parts) [07:33:28.098] | : . | expr [07:33:28.098] | : . | } [07:33:28.098] | : . | [07:33:28.099] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:28.100] | : get_transpiler() ... done [07:33:28.101] | : Transpile call expression ... [07:33:28.103] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:28.103] | : . USE.NAMES = FALSE, future.seed = FALSE, future.globals = TRUE, [07:33:28.103] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:28.103] | : . future.label = "fz:base::vapply-%d") [07:33:28.105] | : Transpile call expression ... done [07:33:28.105] | : Evaluate transpiled call expression [07:33:28.209] | transpile() ... done [07:33:28.210] futurize() ... done Futures created: 2 [07:33:28.212] futurize() ... [07:33:28.213] | transpile() ... [07:33:28.214] | : get_transpiler() ... [07:33:28.215] | : . Finding call to be transpiled ... [07:33:28.216] | : . | descend_wrappers() ... [07:33:28.216] | : . | : Call: [07:33:28.217] | : . | : base::vapply [07:33:28.218] | : . | : parse_call() ... [07:33:28.219] | : . | : . Function: base::vapply(...) [07:33:28.220] | : . | : parse_call() ... done [07:33:28.221] | : . | descend_wrappers() ... done [07:33:28.222] | : . | parse_call() ... [07:33:28.223] | : . | : Function: base::vapply(...) [07:33:28.224] | : . | parse_call() ... done [07:33:28.225] | : . | Position of call to be transpiled in expression: c(1) [07:33:28.226] | : . | base::vapply [07:33:28.227] | : . Finding call to be transpiled ... done [07:33:28.228] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:28.229] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:28.229] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:28.230] | : . | Transpiler function: [07:33:28.231] | : . | function (expr, options = NULL) [07:33:28.231] | : . | { [07:33:28.231] | : . | call <- make_call("future_vapply") [07:33:28.231] | : . | fcn <- eval(call) [07:33:28.231] | : . | expr[[1]] <- call [07:33:28.231] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:28.231] | : . | { [07:33:28.231] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:28.231] | : . | if (is.null(defaults_base)) { [07:33:28.231] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:28.231] | : . | } [07:33:28.231] | : . | if (length(defaults) > 0) { [07:33:28.231] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:28.231] | : . | } [07:33:28.231] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:28.231] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:28.231] | : . | defaults <- defaults[keep] [07:33:28.231] | : . | specified <- attr(options, "specified") [07:33:28.231] | : . | if (length(specified) > 0) { [07:33:28.231] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:28.231] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:28.231] | : . | names(options)) [07:33:28.231] | : . | } [07:33:28.231] | : . | specified <- sprintf("future.%s", specified) [07:33:28.231] | : . | names <- setdiff(names(defaults), specified) [07:33:28.231] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:28.231] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:28.231] | : . | keep <- intersect(names(options), names(defaults)) [07:33:28.231] | : . | options <- options[keep] [07:33:28.231] | : . | options [07:33:28.231] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:28.231] | : . | prefix = "fz:base::vapply"))) [07:33:28.231] | : . | expr <- as.call(parts) [07:33:28.231] | : . | expr [07:33:28.231] | : . | } [07:33:28.231] | : . | [07:33:28.233] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:28.234] | : get_transpiler() ... done [07:33:28.235] | : Transpile call expression ... [07:33:28.236] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:28.236] | : . USE.NAMES = FALSE, future.seed = FALSE, future.globals = TRUE, [07:33:28.236] | : . future.stdout = FALSE, future.conditions = character(0), [07:33:28.236] | : . future.scheduling = 1, future.label = "fz:base::vapply-%d") [07:33:28.238] | : Transpile call expression ... done [07:33:28.239] | : Evaluate transpiled call expression [07:33:28.344] | transpile() ... done [07:33:28.346] futurize() ... done character(0) [07:33:28.347] futurize() ... [07:33:28.348] | transpile() ... [07:33:28.349] | : get_transpiler() ... [07:33:28.350] | : . Finding call to be transpiled ... [07:33:28.351] | : . | descend_wrappers() ... [07:33:28.352] | : . | : Call: [07:33:28.353] | : . | : base::vapply [07:33:28.354] | : . | : parse_call() ... [07:33:28.356] | : . | : . Function: base::vapply(...) [07:33:28.357] | : . | : parse_call() ... done [07:33:28.358] | : . | descend_wrappers() ... done [07:33:28.359] | : . | parse_call() ... [07:33:28.360] | : . | : Function: base::vapply(...) [07:33:28.361] | : . | parse_call() ... done [07:33:28.362] | : . | Position of call to be transpiled in expression: c(1) [07:33:28.363] | : . | base::vapply [07:33:28.364] | : . Finding call to be transpiled ... done [07:33:28.365] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:28.366] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:28.367] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:28.368] | : . | Transpiler function: [07:33:28.369] | : . | function (expr, options = NULL) [07:33:28.369] | : . | { [07:33:28.369] | : . | call <- make_call("future_vapply") [07:33:28.369] | : . | fcn <- eval(call) [07:33:28.369] | : . | expr[[1]] <- call [07:33:28.369] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:28.369] | : . | { [07:33:28.369] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:28.369] | : . | if (is.null(defaults_base)) { [07:33:28.369] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:28.369] | : . | } [07:33:28.369] | : . | if (length(defaults) > 0) { [07:33:28.369] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:28.369] | : . | } [07:33:28.369] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:28.369] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:28.369] | : . | defaults <- defaults[keep] [07:33:28.369] | : . | specified <- attr(options, "specified") [07:33:28.369] | : . | if (length(specified) > 0) { [07:33:28.369] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:28.369] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:28.369] | : . | names(options)) [07:33:28.369] | : . | } [07:33:28.369] | : . | specified <- sprintf("future.%s", specified) [07:33:28.369] | : . | names <- setdiff(names(defaults), specified) [07:33:28.369] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:28.369] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:28.369] | : . | keep <- intersect(names(options), names(defaults)) [07:33:28.369] | : . | options <- options[keep] [07:33:28.369] | : . | options [07:33:28.369] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:28.369] | : . | prefix = "fz:base::vapply"))) [07:33:28.369] | : . | expr <- as.call(parts) [07:33:28.369] | : . | expr [07:33:28.369] | : . | } [07:33:28.369] | : . | [07:33:28.371] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:28.372] | : get_transpiler() ... done [07:33:28.373] | : Transpile call expression ... [07:33:28.374] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:28.374] | : . USE.NAMES = FALSE, future.seed = FALSE, future.globals = TRUE, [07:33:28.374] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:28.374] | : . future.chunk.size = 1L, future.label = "fz:base::vapply-%d") [07:33:28.376] | : Transpile call expression ... done [07:33:28.378] | : Evaluate transpiled call expression [07:33:28.551] | transpile() ... done [07:33:28.551] futurize() ... done Test with RNG: futurize(base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, USE.NAMES = FALSE), seed = TRUE, flavor = "add-on") [07:33:28.553] futurize() ... [07:33:28.554] | transpile() ... [07:33:28.555] | : get_transpiler() ... [07:33:28.556] | : . Finding call to be transpiled ... [07:33:28.557] | : . | descend_wrappers() ... [07:33:28.558] | : . | : Call: [07:33:28.559] | : . | : base::vapply [07:33:28.560] | : . | : parse_call() ... [07:33:28.561] | : . | : . Function: base::vapply(...) [07:33:28.562] | : . | : parse_call() ... done [07:33:28.563] | : . | descend_wrappers() ... done [07:33:28.564] | : . | parse_call() ... [07:33:28.565] | : . | : Function: base::vapply(...) [07:33:28.565] | : . | parse_call() ... done [07:33:28.566] | : . | Position of call to be transpiled in expression: c(1) [07:33:28.567] | : . | base::vapply [07:33:28.568] | : . Finding call to be transpiled ... done [07:33:28.569] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:28.570] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:28.571] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:28.572] | : . | Transpiler function: [07:33:28.572] | : . | function (expr, options = NULL) [07:33:28.572] | : . | { [07:33:28.572] | : . | call <- make_call("future_vapply") [07:33:28.572] | : . | fcn <- eval(call) [07:33:28.572] | : . | expr[[1]] <- call [07:33:28.572] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:28.572] | : . | { [07:33:28.572] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:28.572] | : . | if (is.null(defaults_base)) { [07:33:28.572] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:28.572] | : . | } [07:33:28.572] | : . | if (length(defaults) > 0) { [07:33:28.572] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:28.572] | : . | } [07:33:28.572] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:28.572] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:28.572] | : . | defaults <- defaults[keep] [07:33:28.572] | : . | specified <- attr(options, "specified") [07:33:28.572] | : . | if (length(specified) > 0) { [07:33:28.572] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:28.572] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:28.572] | : . | names(options)) [07:33:28.572] | : . | } [07:33:28.572] | : . | specified <- sprintf("future.%s", specified) [07:33:28.572] | : . | names <- setdiff(names(defaults), specified) [07:33:28.572] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:28.572] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:28.572] | : . | keep <- intersect(names(options), names(defaults)) [07:33:28.572] | : . | options <- options[keep] [07:33:28.572] | : . | options [07:33:28.572] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:28.572] | : . | prefix = "fz:base::vapply"))) [07:33:28.572] | : . | expr <- as.call(parts) [07:33:28.572] | : . | expr [07:33:28.572] | : . | } [07:33:28.572] | : . | [07:33:28.574] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:28.575] | : get_transpiler() ... done [07:33:28.576] | : Transpile call expression ... [07:33:28.577] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:28.577] | : . USE.NAMES = FALSE, future.seed = TRUE, future.globals = TRUE, [07:33:28.577] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:28.577] | : . future.label = "fz:base::vapply-%d") [07:33:28.579] | : Transpile call expression ... done [07:33:28.580] | : Evaluate transpiled call expression [07:33:28.677] | transpile() ... done [07:33:28.678] futurize() ... done === eapply ========================== base::eapply(env = es, FUN = FUN) --------------------------------- [07:33:28.679] futurize() ... [07:33:28.680] | transpile() ... [07:33:28.680] | : get_transpiler() ... [07:33:28.681] | : . Finding call to be transpiled ... [07:33:28.681] | : . | descend_wrappers() ... [07:33:28.682] | : . | : Call: [07:33:28.682] | : . | : base::eapply [07:33:28.683] | : . | : parse_call() ... [07:33:28.684] | : . | : . Function: base::eapply(...) [07:33:28.685] | : . | : parse_call() ... done [07:33:28.686] | : . | descend_wrappers() ... done [07:33:28.687] | : . | parse_call() ... [07:33:28.688] | : . | : Function: base::eapply(...) [07:33:28.689] | : . | parse_call() ... done [07:33:28.690] | : . | Position of call to be transpiled in expression: c(1) [07:33:28.690] | : . | base::eapply [07:33:28.692] | : . Finding call to be transpiled ... done [07:33:28.692] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:28.693] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:28.694] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:28.695] | : . | Transpiler function: [07:33:28.696] | : . | function (expr, options = NULL) [07:33:28.696] | : . | { [07:33:28.696] | : . | call <- make_call("future_eapply") [07:33:28.696] | : . | fcn <- eval(call) [07:33:28.696] | : . | expr[[1]] <- call [07:33:28.696] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:28.696] | : . | { [07:33:28.696] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:28.696] | : . | if (is.null(defaults_base)) { [07:33:28.696] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:28.696] | : . | } [07:33:28.696] | : . | if (length(defaults) > 0) { [07:33:28.696] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:28.696] | : . | } [07:33:28.696] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:28.696] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:28.696] | : . | defaults <- defaults[keep] [07:33:28.696] | : . | specified <- attr(options, "specified") [07:33:28.696] | : . | if (length(specified) > 0) { [07:33:28.696] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:28.696] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:28.696] | : . | names(options)) [07:33:28.696] | : . | } [07:33:28.696] | : . | specified <- sprintf("future.%s", specified) [07:33:28.696] | : . | names <- setdiff(names(defaults), specified) [07:33:28.696] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:28.696] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:28.696] | : . | keep <- intersect(names(options), names(defaults)) [07:33:28.696] | : . | options <- options[keep] [07:33:28.696] | : . | options [07:33:28.696] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:28.696] | : . | prefix = "fz:base::eapply"))) [07:33:28.696] | : . | expr <- as.call(parts) [07:33:28.696] | : . | expr [07:33:28.696] | : . | } [07:33:28.696] | : . | [07:33:28.698] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:28.699] | : get_transpiler() ... done [07:33:28.700] | : Transpile call expression ... [07:33:28.701] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = FALSE, [07:33:28.701] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:28.701] | : . future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:28.703] | : Transpile call expression ... done [07:33:28.704] | : Evaluate transpiled call expression [07:33:28.764] | transpile() ... done [07:33:28.765] futurize() ... done Futures created: 2 [07:33:28.766] futurize() ... [07:33:28.767] | transpile() ... [07:33:28.768] | : get_transpiler() ... [07:33:28.769] | : . Finding call to be transpiled ... [07:33:28.769] | : . | descend_wrappers() ... [07:33:28.770] | : . | : Call: [07:33:28.771] | : . | : base::eapply [07:33:28.772] | : . | : parse_call() ... [07:33:28.773] | : . | : . Function: base::eapply(...) [07:33:28.774] | : . | : parse_call() ... done [07:33:28.775] | : . | descend_wrappers() ... done [07:33:28.776] | : . | parse_call() ... [07:33:28.777] | : . | : Function: base::eapply(...) [07:33:28.777] | : . | parse_call() ... done [07:33:28.778] | : . | Position of call to be transpiled in expression: c(1) [07:33:28.779] | : . | base::eapply [07:33:28.780] | : . Finding call to be transpiled ... done [07:33:28.781] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:28.782] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:28.783] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:28.784] | : . | Transpiler function: [07:33:28.785] | : . | function (expr, options = NULL) [07:33:28.785] | : . | { [07:33:28.785] | : . | call <- make_call("future_eapply") [07:33:28.785] | : . | fcn <- eval(call) [07:33:28.785] | : . | expr[[1]] <- call [07:33:28.785] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:28.785] | : . | { [07:33:28.785] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:28.785] | : . | if (is.null(defaults_base)) { [07:33:28.785] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:28.785] | : . | } [07:33:28.785] | : . | if (length(defaults) > 0) { [07:33:28.785] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:28.785] | : . | } [07:33:28.785] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:28.785] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:28.785] | : . | defaults <- defaults[keep] [07:33:28.785] | : . | specified <- attr(options, "specified") [07:33:28.785] | : . | if (length(specified) > 0) { [07:33:28.785] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:28.785] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:28.785] | : . | names(options)) [07:33:28.785] | : . | } [07:33:28.785] | : . | specified <- sprintf("future.%s", specified) [07:33:28.785] | : . | names <- setdiff(names(defaults), specified) [07:33:28.785] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:28.785] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:28.785] | : . | keep <- intersect(names(options), names(defaults)) [07:33:28.785] | : . | options <- options[keep] [07:33:28.785] | : . | options [07:33:28.785] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:28.785] | : . | prefix = "fz:base::eapply"))) [07:33:28.785] | : . | expr <- as.call(parts) [07:33:28.785] | : . | expr [07:33:28.785] | : . | } [07:33:28.785] | : . | [07:33:28.786] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:28.787] | : get_transpiler() ... done [07:33:28.788] | : Transpile call expression ... [07:33:28.789] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = FALSE, [07:33:28.789] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:28.789] | : . future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:28.791] | : Transpile call expression ... done [07:33:28.792] | : Evaluate transpiled call expression [07:33:28.847] | transpile() ... done [07:33:28.849] futurize() ... done character(0) [07:33:28.850] futurize() ... [07:33:28.851] | transpile() ... [07:33:28.855] | : get_transpiler() ... [07:33:28.856] | : . Finding call to be transpiled ... [07:33:28.857] | : . | descend_wrappers() ... [07:33:28.858] | : . | : Call: [07:33:28.858] | : . | : base::eapply [07:33:28.860] | : . | : parse_call() ... [07:33:28.860] | : . | : . Function: base::eapply(...) [07:33:28.861] | : . | : parse_call() ... done [07:33:28.862] | : . | descend_wrappers() ... done [07:33:28.863] | : . | parse_call() ... [07:33:28.864] | : . | : Function: base::eapply(...) [07:33:28.865] | : . | parse_call() ... done [07:33:28.866] | : . | Position of call to be transpiled in expression: c(1) [07:33:28.867] | : . | base::eapply [07:33:28.868] | : . Finding call to be transpiled ... done [07:33:28.869] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:28.870] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:28.871] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:28.872] | : . | Transpiler function: [07:33:28.873] | : . | function (expr, options = NULL) [07:33:28.873] | : . | { [07:33:28.873] | : . | call <- make_call("future_eapply") [07:33:28.873] | : . | fcn <- eval(call) [07:33:28.873] | : . | expr[[1]] <- call [07:33:28.873] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:28.873] | : . | { [07:33:28.873] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:28.873] | : . | if (is.null(defaults_base)) { [07:33:28.873] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:28.873] | : . | } [07:33:28.873] | : . | if (length(defaults) > 0) { [07:33:28.873] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:28.873] | : . | } [07:33:28.873] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:28.873] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:28.873] | : . | defaults <- defaults[keep] [07:33:28.873] | : . | specified <- attr(options, "specified") [07:33:28.873] | : . | if (length(specified) > 0) { [07:33:28.873] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:28.873] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:28.873] | : . | names(options)) [07:33:28.873] | : . | } [07:33:28.873] | : . | specified <- sprintf("future.%s", specified) [07:33:28.873] | : . | names <- setdiff(names(defaults), specified) [07:33:28.873] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:28.873] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:28.873] | : . | keep <- intersect(names(options), names(defaults)) [07:33:28.873] | : . | options <- options[keep] [07:33:28.873] | : . | options [07:33:28.873] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:28.873] | : . | prefix = "fz:base::eapply"))) [07:33:28.873] | : . | expr <- as.call(parts) [07:33:28.873] | : . | expr [07:33:28.873] | : . | } [07:33:28.873] | : . | [07:33:28.875] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:28.875] | : get_transpiler() ... done [07:33:28.876] | : Transpile call expression ... [07:33:28.878] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = FALSE, [07:33:28.878] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:28.878] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::eapply-%d") [07:33:28.880] | : Transpile call expression ... done [07:33:28.880] | : Evaluate transpiled call expression [07:33:28.988] | transpile() ... done [07:33:28.989] futurize() ... done Test with RNG: futurize(base::eapply(env = es, FUN = FUN), seed = TRUE, flavor = "add-on") [07:33:28.990] futurize() ... [07:33:28.991] | transpile() ... [07:33:28.992] | : get_transpiler() ... [07:33:28.993] | : . Finding call to be transpiled ... [07:33:28.994] | : . | descend_wrappers() ... [07:33:28.995] | : . | : Call: [07:33:28.996] | : . | : base::eapply [07:33:28.997] | : . | : parse_call() ... [07:33:28.998] | : . | : . Function: base::eapply(...) [07:33:28.999] | : . | : parse_call() ... done [07:33:29.000] | : . | descend_wrappers() ... done [07:33:29.000] | : . | parse_call() ... [07:33:29.001] | : . | : Function: base::eapply(...) [07:33:29.002] | : . | parse_call() ... done [07:33:29.003] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.004] | : . | base::eapply [07:33:29.005] | : . Finding call to be transpiled ... done [07:33:29.006] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.007] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.008] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.008] | : . | Transpiler function: [07:33:29.009] | : . | function (expr, options = NULL) [07:33:29.009] | : . | { [07:33:29.009] | : . | call <- make_call("future_eapply") [07:33:29.009] | : . | fcn <- eval(call) [07:33:29.009] | : . | expr[[1]] <- call [07:33:29.009] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.009] | : . | { [07:33:29.009] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.009] | : . | if (is.null(defaults_base)) { [07:33:29.009] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.009] | : . | } [07:33:29.009] | : . | if (length(defaults) > 0) { [07:33:29.009] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.009] | : . | } [07:33:29.009] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.009] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.009] | : . | defaults <- defaults[keep] [07:33:29.009] | : . | specified <- attr(options, "specified") [07:33:29.009] | : . | if (length(specified) > 0) { [07:33:29.009] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.009] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.009] | : . | names(options)) [07:33:29.009] | : . | } [07:33:29.009] | : . | specified <- sprintf("future.%s", specified) [07:33:29.009] | : . | names <- setdiff(names(defaults), specified) [07:33:29.009] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.009] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.009] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.009] | : . | options <- options[keep] [07:33:29.009] | : . | options [07:33:29.009] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.009] | : . | prefix = "fz:base::eapply"))) [07:33:29.009] | : . | expr <- as.call(parts) [07:33:29.009] | : . | expr [07:33:29.009] | : . | } [07:33:29.009] | : . | [07:33:29.011] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.012] | : get_transpiler() ... done [07:33:29.013] | : Transpile call expression ... [07:33:29.014] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = TRUE, [07:33:29.014] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:29.014] | : . future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:29.016] | : Transpile call expression ... done [07:33:29.017] | : Evaluate transpiled call expression [07:33:29.082] | transpile() ... done [07:33:29.083] futurize() ... done === eapply ========================== base::eapply(env = es, FUN = FUN, all.names = TRUE) --------------------------------- [07:33:29.085] futurize() ... [07:33:29.086] | transpile() ... [07:33:29.087] | : get_transpiler() ... [07:33:29.087] | : . Finding call to be transpiled ... [07:33:29.088] | : . | descend_wrappers() ... [07:33:29.089] | : . | : Call: [07:33:29.090] | : . | : base::eapply [07:33:29.091] | : . | : parse_call() ... [07:33:29.092] | : . | : . Function: base::eapply(...) [07:33:29.092] | : . | : parse_call() ... done [07:33:29.093] | : . | descend_wrappers() ... done [07:33:29.094] | : . | parse_call() ... [07:33:29.095] | : . | : Function: base::eapply(...) [07:33:29.095] | : . | parse_call() ... done [07:33:29.096] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.097] | : . | base::eapply [07:33:29.098] | : . Finding call to be transpiled ... done [07:33:29.099] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.099] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.100] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.101] | : . | Transpiler function: [07:33:29.102] | : . | function (expr, options = NULL) [07:33:29.102] | : . | { [07:33:29.102] | : . | call <- make_call("future_eapply") [07:33:29.102] | : . | fcn <- eval(call) [07:33:29.102] | : . | expr[[1]] <- call [07:33:29.102] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.102] | : . | { [07:33:29.102] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.102] | : . | if (is.null(defaults_base)) { [07:33:29.102] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.102] | : . | } [07:33:29.102] | : . | if (length(defaults) > 0) { [07:33:29.102] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.102] | : . | } [07:33:29.102] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.102] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.102] | : . | defaults <- defaults[keep] [07:33:29.102] | : . | specified <- attr(options, "specified") [07:33:29.102] | : . | if (length(specified) > 0) { [07:33:29.102] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.102] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.102] | : . | names(options)) [07:33:29.102] | : . | } [07:33:29.102] | : . | specified <- sprintf("future.%s", specified) [07:33:29.102] | : . | names <- setdiff(names(defaults), specified) [07:33:29.102] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.102] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.102] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.102] | : . | options <- options[keep] [07:33:29.102] | : . | options [07:33:29.102] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.102] | : . | prefix = "fz:base::eapply"))) [07:33:29.102] | : . | expr <- as.call(parts) [07:33:29.102] | : . | expr [07:33:29.102] | : . | } [07:33:29.102] | : . | [07:33:29.103] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.104] | : get_transpiler() ... done [07:33:29.105] | : Transpile call expression ... [07:33:29.106] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:29.106] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:29.106] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:29.108] | : Transpile call expression ... done [07:33:29.109] | : Evaluate transpiled call expression [07:33:29.173] | transpile() ... done [07:33:29.174] futurize() ... done Futures created: 2 [07:33:29.175] futurize() ... [07:33:29.176] | transpile() ... [07:33:29.177] | : get_transpiler() ... [07:33:29.178] | : . Finding call to be transpiled ... [07:33:29.179] | : . | descend_wrappers() ... [07:33:29.179] | : . | : Call: [07:33:29.180] | : . | : base::eapply [07:33:29.181] | : . | : parse_call() ... [07:33:29.182] | : . | : . Function: base::eapply(...) [07:33:29.183] | : . | : parse_call() ... done [07:33:29.184] | : . | descend_wrappers() ... done [07:33:29.185] | : . | parse_call() ... [07:33:29.185] | : . | : Function: base::eapply(...) [07:33:29.186] | : . | parse_call() ... done [07:33:29.187] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.188] | : . | base::eapply [07:33:29.189] | : . Finding call to be transpiled ... done [07:33:29.189] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.190] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.191] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.192] | : . | Transpiler function: [07:33:29.193] | : . | function (expr, options = NULL) [07:33:29.193] | : . | { [07:33:29.193] | : . | call <- make_call("future_eapply") [07:33:29.193] | : . | fcn <- eval(call) [07:33:29.193] | : . | expr[[1]] <- call [07:33:29.193] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.193] | : . | { [07:33:29.193] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.193] | : . | if (is.null(defaults_base)) { [07:33:29.193] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.193] | : . | } [07:33:29.193] | : . | if (length(defaults) > 0) { [07:33:29.193] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.193] | : . | } [07:33:29.193] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.193] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.193] | : . | defaults <- defaults[keep] [07:33:29.193] | : . | specified <- attr(options, "specified") [07:33:29.193] | : . | if (length(specified) > 0) { [07:33:29.193] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.193] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.193] | : . | names(options)) [07:33:29.193] | : . | } [07:33:29.193] | : . | specified <- sprintf("future.%s", specified) [07:33:29.193] | : . | names <- setdiff(names(defaults), specified) [07:33:29.193] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.193] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.193] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.193] | : . | options <- options[keep] [07:33:29.193] | : . | options [07:33:29.193] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.193] | : . | prefix = "fz:base::eapply"))) [07:33:29.193] | : . | expr <- as.call(parts) [07:33:29.193] | : . | expr [07:33:29.193] | : . | } [07:33:29.193] | : . | [07:33:29.194] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.195] | : get_transpiler() ... done [07:33:29.196] | : Transpile call expression ... [07:33:29.197] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:29.197] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:29.197] | : . future.conditions = character(0), future.scheduling = 1, [07:33:29.197] | : . future.label = "fz:base::eapply-%d") [07:33:29.199] | : Transpile call expression ... done [07:33:29.200] | : Evaluate transpiled call expression [07:33:29.257] | transpile() ... done [07:33:29.258] futurize() ... done character(0) [07:33:29.259] futurize() ... [07:33:29.260] | transpile() ... [07:33:29.261] | : get_transpiler() ... [07:33:29.261] | : . Finding call to be transpiled ... [07:33:29.262] | : . | descend_wrappers() ... [07:33:29.262] | : . | : Call: [07:33:29.263] | : . | : base::eapply [07:33:29.264] | : . | : parse_call() ... [07:33:29.265] | : . | : . Function: base::eapply(...) [07:33:29.266] | : . | : parse_call() ... done [07:33:29.267] | : . | descend_wrappers() ... done [07:33:29.268] | : . | parse_call() ... [07:33:29.270] | : . | : Function: base::eapply(...) [07:33:29.271] | : . | parse_call() ... done [07:33:29.272] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.273] | : . | base::eapply [07:33:29.274] | : . Finding call to be transpiled ... done [07:33:29.275] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.276] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.277] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.278] | : . | Transpiler function: [07:33:29.278] | : . | function (expr, options = NULL) [07:33:29.278] | : . | { [07:33:29.278] | : . | call <- make_call("future_eapply") [07:33:29.278] | : . | fcn <- eval(call) [07:33:29.278] | : . | expr[[1]] <- call [07:33:29.278] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.278] | : . | { [07:33:29.278] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.278] | : . | if (is.null(defaults_base)) { [07:33:29.278] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.278] | : . | } [07:33:29.278] | : . | if (length(defaults) > 0) { [07:33:29.278] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.278] | : . | } [07:33:29.278] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.278] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.278] | : . | defaults <- defaults[keep] [07:33:29.278] | : . | specified <- attr(options, "specified") [07:33:29.278] | : . | if (length(specified) > 0) { [07:33:29.278] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.278] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.278] | : . | names(options)) [07:33:29.278] | : . | } [07:33:29.278] | : . | specified <- sprintf("future.%s", specified) [07:33:29.278] | : . | names <- setdiff(names(defaults), specified) [07:33:29.278] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.278] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.278] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.278] | : . | options <- options[keep] [07:33:29.278] | : . | options [07:33:29.278] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.278] | : . | prefix = "fz:base::eapply"))) [07:33:29.278] | : . | expr <- as.call(parts) [07:33:29.278] | : . | expr [07:33:29.278] | : . | } [07:33:29.278] | : . | [07:33:29.280] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.281] | : get_transpiler() ... done [07:33:29.282] | : Transpile call expression ... [07:33:29.284] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:29.284] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:29.284] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:29.284] | : . future.label = "fz:base::eapply-%d") [07:33:29.286] | : Transpile call expression ... done [07:33:29.286] | : Evaluate transpiled call expression [07:33:29.423] | transpile() ... done [07:33:29.424] futurize() ... done Test with RNG: futurize(base::eapply(env = es, FUN = FUN, all.names = TRUE), seed = TRUE, flavor = "add-on") [07:33:29.425] futurize() ... [07:33:29.426] | transpile() ... [07:33:29.426] | : get_transpiler() ... [07:33:29.427] | : . Finding call to be transpiled ... [07:33:29.428] | : . | descend_wrappers() ... [07:33:29.429] | : . | : Call: [07:33:29.429] | : . | : base::eapply [07:33:29.430] | : . | : parse_call() ... [07:33:29.431] | : . | : . Function: base::eapply(...) [07:33:29.431] | : . | : parse_call() ... done [07:33:29.432] | : . | descend_wrappers() ... done [07:33:29.433] | : . | parse_call() ... [07:33:29.434] | : . | : Function: base::eapply(...) [07:33:29.434] | : . | parse_call() ... done [07:33:29.435] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.435] | : . | base::eapply [07:33:29.436] | : . Finding call to be transpiled ... done [07:33:29.437] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.438] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.439] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.439] | : . | Transpiler function: [07:33:29.440] | : . | function (expr, options = NULL) [07:33:29.440] | : . | { [07:33:29.440] | : . | call <- make_call("future_eapply") [07:33:29.440] | : . | fcn <- eval(call) [07:33:29.440] | : . | expr[[1]] <- call [07:33:29.440] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.440] | : . | { [07:33:29.440] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.440] | : . | if (is.null(defaults_base)) { [07:33:29.440] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.440] | : . | } [07:33:29.440] | : . | if (length(defaults) > 0) { [07:33:29.440] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.440] | : . | } [07:33:29.440] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.440] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.440] | : . | defaults <- defaults[keep] [07:33:29.440] | : . | specified <- attr(options, "specified") [07:33:29.440] | : . | if (length(specified) > 0) { [07:33:29.440] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.440] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.440] | : . | names(options)) [07:33:29.440] | : . | } [07:33:29.440] | : . | specified <- sprintf("future.%s", specified) [07:33:29.440] | : . | names <- setdiff(names(defaults), specified) [07:33:29.440] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.440] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.440] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.440] | : . | options <- options[keep] [07:33:29.440] | : . | options [07:33:29.440] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.440] | : . | prefix = "fz:base::eapply"))) [07:33:29.440] | : . | expr <- as.call(parts) [07:33:29.440] | : . | expr [07:33:29.440] | : . | } [07:33:29.440] | : . | [07:33:29.441] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.442] | : get_transpiler() ... done [07:33:29.443] | : Transpile call expression ... [07:33:29.444] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:29.444] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:29.444] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:29.446] | : Transpile call expression ... done [07:33:29.446] | : Evaluate transpiled call expression [07:33:29.521] | transpile() ... done [07:33:29.522] futurize() ... done === eapply ========================== base::eapply(env = es, FUN = FUN, USE.NAMES = FALSE) --------------------------------- [07:33:29.524] futurize() ... [07:33:29.525] | transpile() ... [07:33:29.526] | : get_transpiler() ... [07:33:29.527] | : . Finding call to be transpiled ... [07:33:29.528] | : . | descend_wrappers() ... [07:33:29.529] | : . | : Call: [07:33:29.530] | : . | : base::eapply [07:33:29.531] | : . | : parse_call() ... [07:33:29.532] | : . | : . Function: base::eapply(...) [07:33:29.533] | : . | : parse_call() ... done [07:33:29.534] | : . | descend_wrappers() ... done [07:33:29.535] | : . | parse_call() ... [07:33:29.536] | : . | : Function: base::eapply(...) [07:33:29.537] | : . | parse_call() ... done [07:33:29.537] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.538] | : . | base::eapply [07:33:29.540] | : . Finding call to be transpiled ... done [07:33:29.540] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.541] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.542] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.543] | : . | Transpiler function: [07:33:29.544] | : . | function (expr, options = NULL) [07:33:29.544] | : . | { [07:33:29.544] | : . | call <- make_call("future_eapply") [07:33:29.544] | : . | fcn <- eval(call) [07:33:29.544] | : . | expr[[1]] <- call [07:33:29.544] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.544] | : . | { [07:33:29.544] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.544] | : . | if (is.null(defaults_base)) { [07:33:29.544] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.544] | : . | } [07:33:29.544] | : . | if (length(defaults) > 0) { [07:33:29.544] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.544] | : . | } [07:33:29.544] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.544] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.544] | : . | defaults <- defaults[keep] [07:33:29.544] | : . | specified <- attr(options, "specified") [07:33:29.544] | : . | if (length(specified) > 0) { [07:33:29.544] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.544] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.544] | : . | names(options)) [07:33:29.544] | : . | } [07:33:29.544] | : . | specified <- sprintf("future.%s", specified) [07:33:29.544] | : . | names <- setdiff(names(defaults), specified) [07:33:29.544] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.544] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.544] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.544] | : . | options <- options[keep] [07:33:29.544] | : . | options [07:33:29.544] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.544] | : . | prefix = "fz:base::eapply"))) [07:33:29.544] | : . | expr <- as.call(parts) [07:33:29.544] | : . | expr [07:33:29.544] | : . | } [07:33:29.544] | : . | [07:33:29.546] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.547] | : get_transpiler() ... done [07:33:29.548] | : Transpile call expression ... [07:33:29.549] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:29.549] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:29.549] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:29.551] | : Transpile call expression ... done [07:33:29.552] | : Evaluate transpiled call expression [07:33:29.609] | transpile() ... done [07:33:29.610] futurize() ... done Futures created: 2 [07:33:29.611] futurize() ... [07:33:29.612] | transpile() ... [07:33:29.614] | : get_transpiler() ... [07:33:29.615] | : . Finding call to be transpiled ... [07:33:29.616] | : . | descend_wrappers() ... [07:33:29.616] | : . | : Call: [07:33:29.617] | : . | : base::eapply [07:33:29.618] | : . | : parse_call() ... [07:33:29.619] | : . | : . Function: base::eapply(...) [07:33:29.620] | : . | : parse_call() ... done [07:33:29.621] | : . | descend_wrappers() ... done [07:33:29.622] | : . | parse_call() ... [07:33:29.623] | : . | : Function: base::eapply(...) [07:33:29.624] | : . | parse_call() ... done [07:33:29.625] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.626] | : . | base::eapply [07:33:29.627] | : . Finding call to be transpiled ... done [07:33:29.628] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.629] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.630] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.631] | : . | Transpiler function: [07:33:29.632] | : . | function (expr, options = NULL) [07:33:29.632] | : . | { [07:33:29.632] | : . | call <- make_call("future_eapply") [07:33:29.632] | : . | fcn <- eval(call) [07:33:29.632] | : . | expr[[1]] <- call [07:33:29.632] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.632] | : . | { [07:33:29.632] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.632] | : . | if (is.null(defaults_base)) { [07:33:29.632] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.632] | : . | } [07:33:29.632] | : . | if (length(defaults) > 0) { [07:33:29.632] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.632] | : . | } [07:33:29.632] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.632] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.632] | : . | defaults <- defaults[keep] [07:33:29.632] | : . | specified <- attr(options, "specified") [07:33:29.632] | : . | if (length(specified) > 0) { [07:33:29.632] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.632] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.632] | : . | names(options)) [07:33:29.632] | : . | } [07:33:29.632] | : . | specified <- sprintf("future.%s", specified) [07:33:29.632] | : . | names <- setdiff(names(defaults), specified) [07:33:29.632] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.632] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.632] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.632] | : . | options <- options[keep] [07:33:29.632] | : . | options [07:33:29.632] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.632] | : . | prefix = "fz:base::eapply"))) [07:33:29.632] | : . | expr <- as.call(parts) [07:33:29.632] | : . | expr [07:33:29.632] | : . | } [07:33:29.632] | : . | [07:33:29.633] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.634] | : get_transpiler() ... done [07:33:29.635] | : Transpile call expression ... [07:33:29.637] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:29.637] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:29.637] | : . future.conditions = character(0), future.scheduling = 1, [07:33:29.637] | : . future.label = "fz:base::eapply-%d") [07:33:29.639] | : Transpile call expression ... done [07:33:29.640] | : Evaluate transpiled call expression [07:33:29.703] | transpile() ... done [07:33:29.705] futurize() ... done character(0) [07:33:29.706] futurize() ... [07:33:29.707] | transpile() ... [07:33:29.708] | : get_transpiler() ... [07:33:29.709] | : . Finding call to be transpiled ... [07:33:29.710] | : . | descend_wrappers() ... [07:33:29.710] | : . | : Call: [07:33:29.711] | : . | : base::eapply [07:33:29.712] | : . | : parse_call() ... [07:33:29.713] | : . | : . Function: base::eapply(...) [07:33:29.714] | : . | : parse_call() ... done [07:33:29.715] | : . | descend_wrappers() ... done [07:33:29.716] | : . | parse_call() ... [07:33:29.717] | : . | : Function: base::eapply(...) [07:33:29.717] | : . | parse_call() ... done [07:33:29.718] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.719] | : . | base::eapply [07:33:29.720] | : . Finding call to be transpiled ... done [07:33:29.721] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.722] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.723] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.724] | : . | Transpiler function: [07:33:29.725] | : . | function (expr, options = NULL) [07:33:29.725] | : . | { [07:33:29.725] | : . | call <- make_call("future_eapply") [07:33:29.725] | : . | fcn <- eval(call) [07:33:29.725] | : . | expr[[1]] <- call [07:33:29.725] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.725] | : . | { [07:33:29.725] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.725] | : . | if (is.null(defaults_base)) { [07:33:29.725] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.725] | : . | } [07:33:29.725] | : . | if (length(defaults) > 0) { [07:33:29.725] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.725] | : . | } [07:33:29.725] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.725] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.725] | : . | defaults <- defaults[keep] [07:33:29.725] | : . | specified <- attr(options, "specified") [07:33:29.725] | : . | if (length(specified) > 0) { [07:33:29.725] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.725] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.725] | : . | names(options)) [07:33:29.725] | : . | } [07:33:29.725] | : . | specified <- sprintf("future.%s", specified) [07:33:29.725] | : . | names <- setdiff(names(defaults), specified) [07:33:29.725] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.725] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.725] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.725] | : . | options <- options[keep] [07:33:29.725] | : . | options [07:33:29.725] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.725] | : . | prefix = "fz:base::eapply"))) [07:33:29.725] | : . | expr <- as.call(parts) [07:33:29.725] | : . | expr [07:33:29.725] | : . | } [07:33:29.725] | : . | [07:33:29.727] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.728] | : get_transpiler() ... done [07:33:29.729] | : Transpile call expression ... [07:33:29.730] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:29.730] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:29.730] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:29.730] | : . future.label = "fz:base::eapply-%d") [07:33:29.732] | : Transpile call expression ... done [07:33:29.733] | : Evaluate transpiled call expression [07:33:29.849] | transpile() ... done [07:33:29.850] futurize() ... done Test with RNG: futurize(base::eapply(env = es, FUN = FUN, USE.NAMES = FALSE), seed = TRUE, flavor = "add-on") [07:33:29.851] futurize() ... [07:33:29.852] | transpile() ... [07:33:29.853] | : get_transpiler() ... [07:33:29.854] | : . Finding call to be transpiled ... [07:33:29.855] | : . | descend_wrappers() ... [07:33:29.856] | : . | : Call: [07:33:29.857] | : . | : base::eapply [07:33:29.858] | : . | : parse_call() ... [07:33:29.859] | : . | : . Function: base::eapply(...) [07:33:29.860] | : . | : parse_call() ... done [07:33:29.863] | : . | descend_wrappers() ... done [07:33:29.864] | : . | parse_call() ... [07:33:29.865] | : . | : Function: base::eapply(...) [07:33:29.866] | : . | parse_call() ... done [07:33:29.867] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.868] | : . | base::eapply [07:33:29.869] | : . Finding call to be transpiled ... done [07:33:29.870] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:29.871] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.872] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:29.873] | : . | Transpiler function: [07:33:29.874] | : . | function (expr, options = NULL) [07:33:29.874] | : . | { [07:33:29.874] | : . | call <- make_call("future_eapply") [07:33:29.874] | : . | fcn <- eval(call) [07:33:29.874] | : . | expr[[1]] <- call [07:33:29.874] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.874] | : . | { [07:33:29.874] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.874] | : . | if (is.null(defaults_base)) { [07:33:29.874] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.874] | : . | } [07:33:29.874] | : . | if (length(defaults) > 0) { [07:33:29.874] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.874] | : . | } [07:33:29.874] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.874] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.874] | : . | defaults <- defaults[keep] [07:33:29.874] | : . | specified <- attr(options, "specified") [07:33:29.874] | : . | if (length(specified) > 0) { [07:33:29.874] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.874] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.874] | : . | names(options)) [07:33:29.874] | : . | } [07:33:29.874] | : . | specified <- sprintf("future.%s", specified) [07:33:29.874] | : . | names <- setdiff(names(defaults), specified) [07:33:29.874] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.874] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.874] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.874] | : . | options <- options[keep] [07:33:29.874] | : . | options [07:33:29.874] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:29.874] | : . | prefix = "fz:base::eapply"))) [07:33:29.874] | : . | expr <- as.call(parts) [07:33:29.874] | : . | expr [07:33:29.874] | : . | } [07:33:29.874] | : . | [07:33:29.875] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:29.876] | : get_transpiler() ... done [07:33:29.877] | : Transpile call expression ... [07:33:29.878] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:29.878] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:29.878] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:29.881] | : Transpile call expression ... done [07:33:29.882] | : Evaluate transpiled call expression [07:33:29.950] | transpile() ... done [07:33:29.951] futurize() ... done === replicate ========================== replicate(2, 42) --------------------------------- [07:33:29.954] futurize() ... [07:33:29.955] | transpile() ... [07:33:29.956] | : get_transpiler() ... [07:33:29.957] | : . Finding call to be transpiled ... [07:33:29.958] | : . | descend_wrappers() ... [07:33:29.959] | : . | : Call: [07:33:29.960] | : . | : replicate [07:33:29.961] | : . | : parse_call() ... [07:33:29.962] | : . | : . Function: replicate(...) [07:33:29.962] | : . | : . Locate function ... [07:33:29.963] | : . | : . | Function located in: 'base' [07:33:29.964] | : . | : . Locate function ... done [07:33:29.965] | : . | : parse_call() ... done [07:33:29.966] | : . | descend_wrappers() ... done [07:33:29.966] | : . | parse_call() ... [07:33:29.967] | : . | : Function: replicate(...) [07:33:29.968] | : . | : Locate function ... [07:33:29.969] | : . | : . Function located in: 'base' [07:33:29.969] | : . | : Locate function ... done [07:33:29.970] | : . | parse_call() ... done [07:33:29.971] | : . | Position of call to be transpiled in expression: c(1) [07:33:29.972] | : . | replicate [07:33:29.973] | : . Finding call to be transpiled ... done [07:33:29.973] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:29.974] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:29.975] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:29.975] | : . | Transpiler function: [07:33:29.976] | : . | function (expr, options = NULL) [07:33:29.976] | : . | { [07:33:29.976] | : . | call <- make_call("future_replicate") [07:33:29.976] | : . | fcn <- eval(call) [07:33:29.976] | : . | expr[[1]] <- call [07:33:29.976] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:29.976] | : . | { [07:33:29.976] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:29.976] | : . | if (is.null(defaults_base)) { [07:33:29.976] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:29.976] | : . | } [07:33:29.976] | : . | if (length(defaults) > 0) { [07:33:29.976] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:29.976] | : . | } [07:33:29.976] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:29.976] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:29.976] | : . | defaults <- defaults[keep] [07:33:29.976] | : . | specified <- attr(options, "specified") [07:33:29.976] | : . | if (length(specified) > 0) { [07:33:29.976] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:29.976] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:29.976] | : . | names(options)) [07:33:29.976] | : . | } [07:33:29.976] | : . | specified <- sprintf("future.%s", specified) [07:33:29.976] | : . | names <- setdiff(names(defaults), specified) [07:33:29.976] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:29.976] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:29.976] | : . | keep <- intersect(names(options), names(defaults)) [07:33:29.976] | : . | options <- options[keep] [07:33:29.976] | : . | options [07:33:29.976] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:29.976] | : . | prefix = "fz:base::replicate"))) [07:33:29.976] | : . | expr <- as.call(parts) [07:33:29.976] | : . | expr [07:33:29.976] | : . | } [07:33:29.976] | : . | [07:33:29.978] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:29.979] | : get_transpiler() ... done [07:33:29.979] | : Transpile call expression ... [07:33:29.981] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:29.981] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:29.981] | : . future.label = "fz:base::replicate-%d") [07:33:29.982] | : Transpile call expression ... done [07:33:29.983] | : Evaluate transpiled call expression [07:33:30.010] | transpile() ... done [07:33:30.012] futurize() ... done Futures created: 2 [07:33:30.013] futurize() ... [07:33:30.015] | transpile() ... [07:33:30.016] | : get_transpiler() ... [07:33:30.017] | : . Finding call to be transpiled ... [07:33:30.018] | : . | descend_wrappers() ... [07:33:30.019] | : . | : Call: [07:33:30.020] | : . | : replicate [07:33:30.022] | : . | : parse_call() ... [07:33:30.023] | : . | : . Function: replicate(...) [07:33:30.024] | : . | : . Locate function ... [07:33:30.025] | : . | : . | Function located in: 'base' [07:33:30.026] | : . | : . Locate function ... done [07:33:30.027] | : . | : parse_call() ... done [07:33:30.028] | : . | descend_wrappers() ... done [07:33:30.029] | : . | parse_call() ... [07:33:30.029] | : . | : Function: replicate(...) [07:33:30.030] | : . | : Locate function ... [07:33:30.031] | : . | : . Function located in: 'base' [07:33:30.032] | : . | : Locate function ... done [07:33:30.033] | : . | parse_call() ... done [07:33:30.034] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.035] | : . | replicate [07:33:30.036] | : . Finding call to be transpiled ... done [07:33:30.037] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:30.038] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.039] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:30.040] | : . | Transpiler function: [07:33:30.041] | : . | function (expr, options = NULL) [07:33:30.041] | : . | { [07:33:30.041] | : . | call <- make_call("future_replicate") [07:33:30.041] | : . | fcn <- eval(call) [07:33:30.041] | : . | expr[[1]] <- call [07:33:30.041] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.041] | : . | { [07:33:30.041] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.041] | : . | if (is.null(defaults_base)) { [07:33:30.041] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.041] | : . | } [07:33:30.041] | : . | if (length(defaults) > 0) { [07:33:30.041] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.041] | : . | } [07:33:30.041] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.041] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.041] | : . | defaults <- defaults[keep] [07:33:30.041] | : . | specified <- attr(options, "specified") [07:33:30.041] | : . | if (length(specified) > 0) { [07:33:30.041] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.041] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.041] | : . | names(options)) [07:33:30.041] | : . | } [07:33:30.041] | : . | specified <- sprintf("future.%s", specified) [07:33:30.041] | : . | names <- setdiff(names(defaults), specified) [07:33:30.041] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.041] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.041] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.041] | : . | options <- options[keep] [07:33:30.041] | : . | options [07:33:30.041] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:30.041] | : . | prefix = "fz:base::replicate"))) [07:33:30.041] | : . | expr <- as.call(parts) [07:33:30.041] | : . | expr [07:33:30.041] | : . | } [07:33:30.041] | : . | [07:33:30.043] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:30.044] | : get_transpiler() ... done [07:33:30.045] | : Transpile call expression ... [07:33:30.046] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:30.046] | : . future.stdout = FALSE, future.conditions = character(0), [07:33:30.046] | : . future.scheduling = 1, future.label = "fz:base::replicate-%d") [07:33:30.048] | : Transpile call expression ... done [07:33:30.049] | : Evaluate transpiled call expression [07:33:30.080] | transpile() ... done [07:33:30.081] futurize() ... done character(0) [07:33:30.082] futurize() ... [07:33:30.083] | transpile() ... [07:33:30.084] | : get_transpiler() ... [07:33:30.085] | : . Finding call to be transpiled ... [07:33:30.086] | : . | descend_wrappers() ... [07:33:30.087] | : . | : Call: [07:33:30.088] | : . | : replicate [07:33:30.089] | : . | : parse_call() ... [07:33:30.090] | : . | : . Function: replicate(...) [07:33:30.091] | : . | : . Locate function ... [07:33:30.092] | : . | : . | Function located in: 'base' [07:33:30.093] | : . | : . Locate function ... done [07:33:30.094] | : . | : parse_call() ... done [07:33:30.094] | : . | descend_wrappers() ... done [07:33:30.095] | : . | parse_call() ... [07:33:30.096] | : . | : Function: replicate(...) [07:33:30.097] | : . | : Locate function ... [07:33:30.098] | : . | : . Function located in: 'base' [07:33:30.099] | : . | : Locate function ... done [07:33:30.100] | : . | parse_call() ... done [07:33:30.101] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.102] | : . | replicate [07:33:30.103] | : . Finding call to be transpiled ... done [07:33:30.104] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:30.105] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.106] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:30.107] | : . | Transpiler function: [07:33:30.108] | : . | function (expr, options = NULL) [07:33:30.108] | : . | { [07:33:30.108] | : . | call <- make_call("future_replicate") [07:33:30.108] | : . | fcn <- eval(call) [07:33:30.108] | : . | expr[[1]] <- call [07:33:30.108] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.108] | : . | { [07:33:30.108] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.108] | : . | if (is.null(defaults_base)) { [07:33:30.108] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.108] | : . | } [07:33:30.108] | : . | if (length(defaults) > 0) { [07:33:30.108] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.108] | : . | } [07:33:30.108] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.108] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.108] | : . | defaults <- defaults[keep] [07:33:30.108] | : . | specified <- attr(options, "specified") [07:33:30.108] | : . | if (length(specified) > 0) { [07:33:30.108] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.108] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.108] | : . | names(options)) [07:33:30.108] | : . | } [07:33:30.108] | : . | specified <- sprintf("future.%s", specified) [07:33:30.108] | : . | names <- setdiff(names(defaults), specified) [07:33:30.108] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.108] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.108] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.108] | : . | options <- options[keep] [07:33:30.108] | : . | options [07:33:30.108] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:30.108] | : . | prefix = "fz:base::replicate"))) [07:33:30.108] | : . | expr <- as.call(parts) [07:33:30.108] | : . | expr [07:33:30.108] | : . | } [07:33:30.108] | : . | [07:33:30.110] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:30.111] | : get_transpiler() ... done [07:33:30.112] | : Transpile call expression ... [07:33:30.114] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:30.114] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:30.114] | : . future.chunk.size = 1L, future.label = "fz:base::replicate-%d") [07:33:30.116] | : Transpile call expression ... done [07:33:30.117] | : Evaluate transpiled call expression [07:33:30.144] | transpile() ... done [07:33:30.145] futurize() ... done Test with RNG: futurize(replicate(2, 42), seed = TRUE, flavor = "add-on") [07:33:30.146] futurize() ... [07:33:30.146] | transpile() ... [07:33:30.147] | : get_transpiler() ... [07:33:30.148] | : . Finding call to be transpiled ... [07:33:30.148] | : . | descend_wrappers() ... [07:33:30.149] | : . | : Call: [07:33:30.149] | : . | : replicate [07:33:30.150] | : . | : parse_call() ... [07:33:30.151] | : . | : . Function: replicate(...) [07:33:30.151] | : . | : . Locate function ... [07:33:30.152] | : . | : . | Function located in: 'base' [07:33:30.153] | : . | : . Locate function ... done [07:33:30.154] | : . | : parse_call() ... done [07:33:30.155] | : . | descend_wrappers() ... done [07:33:30.156] | : . | parse_call() ... [07:33:30.157] | : . | : Function: replicate(...) [07:33:30.158] | : . | : Locate function ... [07:33:30.159] | : . | : . Function located in: 'base' [07:33:30.159] | : . | : Locate function ... done [07:33:30.160] | : . | parse_call() ... done [07:33:30.161] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.162] | : . | replicate [07:33:30.163] | : . Finding call to be transpiled ... done [07:33:30.164] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:30.165] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.166] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:30.166] | : . | Transpiler function: [07:33:30.167] | : . | function (expr, options = NULL) [07:33:30.167] | : . | { [07:33:30.167] | : . | call <- make_call("future_replicate") [07:33:30.167] | : . | fcn <- eval(call) [07:33:30.167] | : . | expr[[1]] <- call [07:33:30.167] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.167] | : . | { [07:33:30.167] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.167] | : . | if (is.null(defaults_base)) { [07:33:30.167] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.167] | : . | } [07:33:30.167] | : . | if (length(defaults) > 0) { [07:33:30.167] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.167] | : . | } [07:33:30.167] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.167] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.167] | : . | defaults <- defaults[keep] [07:33:30.167] | : . | specified <- attr(options, "specified") [07:33:30.167] | : . | if (length(specified) > 0) { [07:33:30.167] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.167] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.167] | : . | names(options)) [07:33:30.167] | : . | } [07:33:30.167] | : . | specified <- sprintf("future.%s", specified) [07:33:30.167] | : . | names <- setdiff(names(defaults), specified) [07:33:30.167] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.167] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.167] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.167] | : . | options <- options[keep] [07:33:30.167] | : . | options [07:33:30.167] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:30.167] | : . | prefix = "fz:base::replicate"))) [07:33:30.167] | : . | expr <- as.call(parts) [07:33:30.167] | : . | expr [07:33:30.167] | : . | } [07:33:30.167] | : . | [07:33:30.169] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:30.170] | : get_transpiler() ... done [07:33:30.171] | : Transpile call expression ... [07:33:30.172] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:30.172] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:30.172] | : . future.label = "fz:base::replicate-%d") [07:33:30.174] | : Transpile call expression ... done [07:33:30.175] | : Evaluate transpiled call expression [07:33:30.202] | transpile() ... done [07:33:30.203] futurize() ... done === replicate ========================== base::replicate(2, 42) --------------------------------- [07:33:30.204] futurize() ... [07:33:30.205] | transpile() ... [07:33:30.205] | : get_transpiler() ... [07:33:30.206] | : . Finding call to be transpiled ... [07:33:30.206] | : . | descend_wrappers() ... [07:33:30.207] | : . | : Call: [07:33:30.207] | : . | : base::replicate [07:33:30.208] | : . | : parse_call() ... [07:33:30.208] | : . | : . Function: base::replicate(...) [07:33:30.209] | : . | : parse_call() ... done [07:33:30.210] | : . | descend_wrappers() ... done [07:33:30.211] | : . | parse_call() ... [07:33:30.212] | : . | : Function: base::replicate(...) [07:33:30.213] | : . | parse_call() ... done [07:33:30.213] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.214] | : . | base::replicate [07:33:30.215] | : . Finding call to be transpiled ... done [07:33:30.216] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:30.217] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.218] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:30.219] | : . | Transpiler function: [07:33:30.220] | : . | function (expr, options = NULL) [07:33:30.220] | : . | { [07:33:30.220] | : . | call <- make_call("future_replicate") [07:33:30.220] | : . | fcn <- eval(call) [07:33:30.220] | : . | expr[[1]] <- call [07:33:30.220] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.220] | : . | { [07:33:30.220] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.220] | : . | if (is.null(defaults_base)) { [07:33:30.220] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.220] | : . | } [07:33:30.220] | : . | if (length(defaults) > 0) { [07:33:30.220] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.220] | : . | } [07:33:30.220] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.220] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.220] | : . | defaults <- defaults[keep] [07:33:30.220] | : . | specified <- attr(options, "specified") [07:33:30.220] | : . | if (length(specified) > 0) { [07:33:30.220] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.220] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.220] | : . | names(options)) [07:33:30.220] | : . | } [07:33:30.220] | : . | specified <- sprintf("future.%s", specified) [07:33:30.220] | : . | names <- setdiff(names(defaults), specified) [07:33:30.220] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.220] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.220] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.220] | : . | options <- options[keep] [07:33:30.220] | : . | options [07:33:30.220] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:30.220] | : . | prefix = "fz:base::replicate"))) [07:33:30.220] | : . | expr <- as.call(parts) [07:33:30.220] | : . | expr [07:33:30.220] | : . | } [07:33:30.220] | : . | [07:33:30.221] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:30.222] | : get_transpiler() ... done [07:33:30.223] | : Transpile call expression ... [07:33:30.224] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:30.224] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:30.224] | : . future.label = "fz:base::replicate-%d") [07:33:30.226] | : Transpile call expression ... done [07:33:30.227] | : Evaluate transpiled call expression [07:33:30.257] | transpile() ... done [07:33:30.258] futurize() ... done Futures created: 2 [07:33:30.259] futurize() ... [07:33:30.260] | transpile() ... [07:33:30.261] | : get_transpiler() ... [07:33:30.262] | : . Finding call to be transpiled ... [07:33:30.263] | : . | descend_wrappers() ... [07:33:30.264] | : . | : Call: [07:33:30.265] | : . | : base::replicate [07:33:30.265] | : . | : parse_call() ... [07:33:30.266] | : . | : . Function: base::replicate(...) [07:33:30.266] | : . | : parse_call() ... done [07:33:30.267] | : . | descend_wrappers() ... done [07:33:30.267] | : . | parse_call() ... [07:33:30.268] | : . | : Function: base::replicate(...) [07:33:30.268] | : . | parse_call() ... done [07:33:30.269] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.269] | : . | base::replicate [07:33:30.270] | : . Finding call to be transpiled ... done [07:33:30.270] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:30.271] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.272] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:30.272] | : . | Transpiler function: [07:33:30.273] | : . | function (expr, options = NULL) [07:33:30.273] | : . | { [07:33:30.273] | : . | call <- make_call("future_replicate") [07:33:30.273] | : . | fcn <- eval(call) [07:33:30.273] | : . | expr[[1]] <- call [07:33:30.273] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.273] | : . | { [07:33:30.273] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.273] | : . | if (is.null(defaults_base)) { [07:33:30.273] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.273] | : . | } [07:33:30.273] | : . | if (length(defaults) > 0) { [07:33:30.273] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.273] | : . | } [07:33:30.273] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.273] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.273] | : . | defaults <- defaults[keep] [07:33:30.273] | : . | specified <- attr(options, "specified") [07:33:30.273] | : . | if (length(specified) > 0) { [07:33:30.273] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.273] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.273] | : . | names(options)) [07:33:30.273] | : . | } [07:33:30.273] | : . | specified <- sprintf("future.%s", specified) [07:33:30.273] | : . | names <- setdiff(names(defaults), specified) [07:33:30.273] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.273] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.273] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.273] | : . | options <- options[keep] [07:33:30.273] | : . | options [07:33:30.273] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:30.273] | : . | prefix = "fz:base::replicate"))) [07:33:30.273] | : . | expr <- as.call(parts) [07:33:30.273] | : . | expr [07:33:30.273] | : . | } [07:33:30.273] | : . | [07:33:30.274] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:30.274] | : get_transpiler() ... done [07:33:30.275] | : Transpile call expression ... [07:33:30.278] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:30.278] | : . future.stdout = FALSE, future.conditions = character(0), [07:33:30.278] | : . future.scheduling = 1, future.label = "fz:base::replicate-%d") [07:33:30.279] | : Transpile call expression ... done [07:33:30.280] | : Evaluate transpiled call expression [07:33:30.302] | transpile() ... done [07:33:30.303] futurize() ... done character(0) [07:33:30.304] futurize() ... [07:33:30.305] | transpile() ... [07:33:30.306] | : get_transpiler() ... [07:33:30.307] | : . Finding call to be transpiled ... [07:33:30.308] | : . | descend_wrappers() ... [07:33:30.308] | : . | : Call: [07:33:30.309] | : . | : base::replicate [07:33:30.310] | : . | : parse_call() ... [07:33:30.311] | : . | : . Function: base::replicate(...) [07:33:30.312] | : . | : parse_call() ... done [07:33:30.313] | : . | descend_wrappers() ... done [07:33:30.314] | : . | parse_call() ... [07:33:30.314] | : . | : Function: base::replicate(...) [07:33:30.315] | : . | parse_call() ... done [07:33:30.316] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.317] | : . | base::replicate [07:33:30.318] | : . Finding call to be transpiled ... done [07:33:30.319] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:30.319] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.320] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:30.321] | : . | Transpiler function: [07:33:30.322] | : . | function (expr, options = NULL) [07:33:30.322] | : . | { [07:33:30.322] | : . | call <- make_call("future_replicate") [07:33:30.322] | : . | fcn <- eval(call) [07:33:30.322] | : . | expr[[1]] <- call [07:33:30.322] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.322] | : . | { [07:33:30.322] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.322] | : . | if (is.null(defaults_base)) { [07:33:30.322] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.322] | : . | } [07:33:30.322] | : . | if (length(defaults) > 0) { [07:33:30.322] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.322] | : . | } [07:33:30.322] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.322] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.322] | : . | defaults <- defaults[keep] [07:33:30.322] | : . | specified <- attr(options, "specified") [07:33:30.322] | : . | if (length(specified) > 0) { [07:33:30.322] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.322] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.322] | : . | names(options)) [07:33:30.322] | : . | } [07:33:30.322] | : . | specified <- sprintf("future.%s", specified) [07:33:30.322] | : . | names <- setdiff(names(defaults), specified) [07:33:30.322] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.322] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.322] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.322] | : . | options <- options[keep] [07:33:30.322] | : . | options [07:33:30.322] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:30.322] | : . | prefix = "fz:base::replicate"))) [07:33:30.322] | : . | expr <- as.call(parts) [07:33:30.322] | : . | expr [07:33:30.322] | : . | } [07:33:30.322] | : . | [07:33:30.323] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:30.324] | : get_transpiler() ... done [07:33:30.325] | : Transpile call expression ... [07:33:30.326] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:30.326] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:30.326] | : . future.chunk.size = 1L, future.label = "fz:base::replicate-%d") [07:33:30.328] | : Transpile call expression ... done [07:33:30.328] | : Evaluate transpiled call expression [07:33:30.356] | transpile() ... done [07:33:30.358] futurize() ... done Test with RNG: futurize(base::replicate(2, 42), seed = TRUE, flavor = "add-on") [07:33:30.359] futurize() ... [07:33:30.360] | transpile() ... [07:33:30.360] | : get_transpiler() ... [07:33:30.361] | : . Finding call to be transpiled ... [07:33:30.362] | : . | descend_wrappers() ... [07:33:30.363] | : . | : Call: [07:33:30.363] | : . | : base::replicate [07:33:30.364] | : . | : parse_call() ... [07:33:30.365] | : . | : . Function: base::replicate(...) [07:33:30.366] | : . | : parse_call() ... done [07:33:30.367] | : . | descend_wrappers() ... done [07:33:30.367] | : . | parse_call() ... [07:33:30.368] | : . | : Function: base::replicate(...) [07:33:30.369] | : . | parse_call() ... done [07:33:30.370] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.371] | : . | base::replicate [07:33:30.372] | : . Finding call to be transpiled ... done [07:33:30.372] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:30.373] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.374] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:30.375] | : . | Transpiler function: [07:33:30.376] | : . | function (expr, options = NULL) [07:33:30.376] | : . | { [07:33:30.376] | : . | call <- make_call("future_replicate") [07:33:30.376] | : . | fcn <- eval(call) [07:33:30.376] | : . | expr[[1]] <- call [07:33:30.376] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.376] | : . | { [07:33:30.376] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.376] | : . | if (is.null(defaults_base)) { [07:33:30.376] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.376] | : . | } [07:33:30.376] | : . | if (length(defaults) > 0) { [07:33:30.376] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.376] | : . | } [07:33:30.376] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.376] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.376] | : . | defaults <- defaults[keep] [07:33:30.376] | : . | specified <- attr(options, "specified") [07:33:30.376] | : . | if (length(specified) > 0) { [07:33:30.376] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.376] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.376] | : . | names(options)) [07:33:30.376] | : . | } [07:33:30.376] | : . | specified <- sprintf("future.%s", specified) [07:33:30.376] | : . | names <- setdiff(names(defaults), specified) [07:33:30.376] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.376] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.376] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.376] | : . | options <- options[keep] [07:33:30.376] | : . | options [07:33:30.376] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:30.376] | : . | prefix = "fz:base::replicate"))) [07:33:30.376] | : . | expr <- as.call(parts) [07:33:30.376] | : . | expr [07:33:30.376] | : . | } [07:33:30.376] | : . | [07:33:30.377] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:30.378] | : get_transpiler() ... done [07:33:30.379] | : Transpile call expression ... [07:33:30.380] | : . future.apply::future_replicate(2, 42, future.seed = TRUE, future.globals = TRUE, [07:33:30.380] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:30.380] | : . future.label = "fz:base::replicate-%d") [07:33:30.382] | : Transpile call expression ... done [07:33:30.383] | : Evaluate transpiled call expression [07:33:30.408] | transpile() ... done [07:33:30.409] futurize() ... done === kernapply ========================== kernapply(x = X, k = k) --------------------------------- [07:33:30.412] futurize() ... [07:33:30.413] | transpile() ... [07:33:30.414] | : get_transpiler() ... [07:33:30.415] | : . Finding call to be transpiled ... [07:33:30.415] | : . | descend_wrappers() ... [07:33:30.416] | : . | : Call: [07:33:30.417] | : . | : kernapply [07:33:30.418] | : . | : parse_call() ... [07:33:30.419] | : . | : . Function: kernapply(...) [07:33:30.420] | : . | : . Locate function ... [07:33:30.420] | : . | : . | Function located in: 'stats' [07:33:30.421] | : . | : . Locate function ... done [07:33:30.422] | : . | : parse_call() ... done [07:33:30.423] | : . | descend_wrappers() ... done [07:33:30.424] | : . | parse_call() ... [07:33:30.424] | : . | : Function: kernapply(...) [07:33:30.425] | : . | : Locate function ... [07:33:30.426] | : . | : . Function located in: 'stats' [07:33:30.427] | : . | : Locate function ... done [07:33:30.428] | : . | parse_call() ... done [07:33:30.428] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.429] | : . | kernapply [07:33:30.430] | : . Finding call to be transpiled ... done [07:33:30.431] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... [07:33:30.432] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.433] | : . | Transpiler description: stats::kernapply() -> future.apply::future_kernapply() [07:33:30.433] | : . | Transpiler function: [07:33:30.434] | : . | function (expr, options = NULL) [07:33:30.434] | : . | { [07:33:30.434] | : . | call <- make_call("future_kernapply") [07:33:30.434] | : . | fcn <- eval(call) [07:33:30.434] | : . | expr[[1]] <- call [07:33:30.434] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.434] | : . | { [07:33:30.434] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.434] | : . | if (is.null(defaults_base)) { [07:33:30.434] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.434] | : . | } [07:33:30.434] | : . | if (length(defaults) > 0) { [07:33:30.434] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.434] | : . | } [07:33:30.434] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.434] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.434] | : . | defaults <- defaults[keep] [07:33:30.434] | : . | specified <- attr(options, "specified") [07:33:30.434] | : . | if (length(specified) > 0) { [07:33:30.434] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.434] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.434] | : . | names(options)) [07:33:30.434] | : . | } [07:33:30.434] | : . | specified <- sprintf("future.%s", specified) [07:33:30.434] | : . | names <- setdiff(names(defaults), specified) [07:33:30.434] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.434] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.434] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.434] | : . | options <- options[keep] [07:33:30.434] | : . | options [07:33:30.434] | : . | })(options, fcn, defaults = list(future.label = "fz:stats::kernapply-%d", [07:33:30.434] | : . | prefix = "fz:stats::kernapply"))) [07:33:30.434] | : . | expr <- as.call(parts) [07:33:30.434] | : . | expr [07:33:30.434] | : . | } [07:33:30.434] | : . | [07:33:30.436] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... done [07:33:30.437] | : get_transpiler() ... done [07:33:30.437] | : Transpile call expression ... [07:33:30.439] | : . future.apply::future_kernapply(x = X, k = k, future.seed = FALSE, [07:33:30.439] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:30.439] | : . future.scheduling = 1, future.label = "fz:stats::kernapply-%d") [07:33:30.440] | : Transpile call expression ... done [07:33:30.441] | : Evaluate transpiled call expression [07:33:30.502] | transpile() ... done [07:33:30.503] futurize() ... done Futures created: 2 [07:33:30.504] futurize() ... [07:33:30.505] | transpile() ... [07:33:30.506] | : get_transpiler() ... [07:33:30.507] | : . Finding call to be transpiled ... [07:33:30.507] | : . | descend_wrappers() ... [07:33:30.508] | : . | : Call: [07:33:30.509] | : . | : kernapply [07:33:30.510] | : . | : parse_call() ... [07:33:30.511] | : . | : . Function: kernapply(...) [07:33:30.511] | : . | : . Locate function ... [07:33:30.512] | : . | : . | Function located in: 'stats' [07:33:30.513] | : . | : . Locate function ... done [07:33:30.514] | : . | : parse_call() ... done [07:33:30.514] | : . | descend_wrappers() ... done [07:33:30.515] | : . | parse_call() ... [07:33:30.516] | : . | : Function: kernapply(...) [07:33:30.517] | : . | : Locate function ... [07:33:30.517] | : . | : . Function located in: 'stats' [07:33:30.518] | : . | : Locate function ... done [07:33:30.519] | : . | parse_call() ... done [07:33:30.520] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.520] | : . | kernapply [07:33:30.521] | : . Finding call to be transpiled ... done [07:33:30.522] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... [07:33:30.523] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.524] | : . | Transpiler description: stats::kernapply() -> future.apply::future_kernapply() [07:33:30.525] | : . | Transpiler function: [07:33:30.526] | : . | function (expr, options = NULL) [07:33:30.526] | : . | { [07:33:30.526] | : . | call <- make_call("future_kernapply") [07:33:30.526] | : . | fcn <- eval(call) [07:33:30.526] | : . | expr[[1]] <- call [07:33:30.526] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.526] | : . | { [07:33:30.526] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.526] | : . | if (is.null(defaults_base)) { [07:33:30.526] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.526] | : . | } [07:33:30.526] | : . | if (length(defaults) > 0) { [07:33:30.526] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.526] | : . | } [07:33:30.526] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.526] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.526] | : . | defaults <- defaults[keep] [07:33:30.526] | : . | specified <- attr(options, "specified") [07:33:30.526] | : . | if (length(specified) > 0) { [07:33:30.526] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.526] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.526] | : . | names(options)) [07:33:30.526] | : . | } [07:33:30.526] | : . | specified <- sprintf("future.%s", specified) [07:33:30.526] | : . | names <- setdiff(names(defaults), specified) [07:33:30.526] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.526] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.526] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.526] | : . | options <- options[keep] [07:33:30.526] | : . | options [07:33:30.526] | : . | })(options, fcn, defaults = list(future.label = "fz:stats::kernapply-%d", [07:33:30.526] | : . | prefix = "fz:stats::kernapply"))) [07:33:30.526] | : . | expr <- as.call(parts) [07:33:30.526] | : . | expr [07:33:30.526] | : . | } [07:33:30.526] | : . | [07:33:30.528] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... done [07:33:30.528] | : get_transpiler() ... done [07:33:30.529] | : Transpile call expression ... [07:33:30.531] | : . future.apply::future_kernapply(x = X, k = k, future.seed = FALSE, [07:33:30.531] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:30.531] | : . future.scheduling = 1, future.label = "fz:stats::kernapply-%d") [07:33:30.533] | : Transpile call expression ... done [07:33:30.534] | : Evaluate transpiled call expression [07:33:30.595] | transpile() ... done [07:33:30.596] futurize() ... done character(0) [07:33:30.597] futurize() ... [07:33:30.598] | transpile() ... [07:33:30.599] | : get_transpiler() ... [07:33:30.600] | : . Finding call to be transpiled ... [07:33:30.601] | : . | descend_wrappers() ... [07:33:30.602] | : . | : Call: [07:33:30.603] | : . | : kernapply [07:33:30.604] | : . | : parse_call() ... [07:33:30.605] | : . | : . Function: kernapply(...) [07:33:30.606] | : . | : . Locate function ... [07:33:30.607] | : . | : . | Function located in: 'stats' [07:33:30.608] | : . | : . Locate function ... done [07:33:30.609] | : . | : parse_call() ... done [07:33:30.610] | : . | descend_wrappers() ... done [07:33:30.610] | : . | parse_call() ... [07:33:30.611] | : . | : Function: kernapply(...) [07:33:30.612] | : . | : Locate function ... [07:33:30.613] | : . | : . Function located in: 'stats' [07:33:30.614] | : . | : Locate function ... done [07:33:30.615] | : . | parse_call() ... done [07:33:30.616] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.617] | : . | kernapply [07:33:30.618] | : . Finding call to be transpiled ... done [07:33:30.619] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... [07:33:30.619] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.620] | : . | Transpiler description: stats::kernapply() -> future.apply::future_kernapply() [07:33:30.620] | : . | Transpiler function: [07:33:30.621] | : . | function (expr, options = NULL) [07:33:30.621] | : . | { [07:33:30.621] | : . | call <- make_call("future_kernapply") [07:33:30.621] | : . | fcn <- eval(call) [07:33:30.621] | : . | expr[[1]] <- call [07:33:30.621] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.621] | : . | { [07:33:30.621] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.621] | : . | if (is.null(defaults_base)) { [07:33:30.621] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.621] | : . | } [07:33:30.621] | : . | if (length(defaults) > 0) { [07:33:30.621] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.621] | : . | } [07:33:30.621] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.621] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.621] | : . | defaults <- defaults[keep] [07:33:30.621] | : . | specified <- attr(options, "specified") [07:33:30.621] | : . | if (length(specified) > 0) { [07:33:30.621] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.621] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.621] | : . | names(options)) [07:33:30.621] | : . | } [07:33:30.621] | : . | specified <- sprintf("future.%s", specified) [07:33:30.621] | : . | names <- setdiff(names(defaults), specified) [07:33:30.621] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.621] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.621] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.621] | : . | options <- options[keep] [07:33:30.621] | : . | options [07:33:30.621] | : . | })(options, fcn, defaults = list(future.label = "fz:stats::kernapply-%d", [07:33:30.621] | : . | prefix = "fz:stats::kernapply"))) [07:33:30.621] | : . | expr <- as.call(parts) [07:33:30.621] | : . | expr [07:33:30.621] | : . | } [07:33:30.621] | : . | [07:33:30.622] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... done [07:33:30.623] | : get_transpiler() ... done [07:33:30.623] | : Transpile call expression ... [07:33:30.624] | : . future.apply::future_kernapply(x = X, k = k, future.seed = FALSE, [07:33:30.624] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:30.624] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:stats::kernapply-%d") [07:33:30.625] | : Transpile call expression ... done [07:33:30.626] | : Evaluate transpiled call expression [07:33:30.668] | transpile() ... done [07:33:30.669] futurize() ... done Test with RNG: futurize(kernapply(x = X, k = k), seed = TRUE, flavor = "add-on") [07:33:30.670] futurize() ... [07:33:30.670] | transpile() ... [07:33:30.671] | : get_transpiler() ... [07:33:30.671] | : . Finding call to be transpiled ... [07:33:30.672] | : . | descend_wrappers() ... [07:33:30.672] | : . | : Call: [07:33:30.672] | : . | : kernapply [07:33:30.673] | : . | : parse_call() ... [07:33:30.674] | : . | : . Function: kernapply(...) [07:33:30.674] | : . | : . Locate function ... [07:33:30.675] | : . | : . | Function located in: 'stats' [07:33:30.675] | : . | : . Locate function ... done [07:33:30.676] | : . | : parse_call() ... done [07:33:30.676] | : . | descend_wrappers() ... done [07:33:30.677] | : . | parse_call() ... [07:33:30.677] | : . | : Function: kernapply(...) [07:33:30.678] | : . | : Locate function ... [07:33:30.678] | : . | : . Function located in: 'stats' [07:33:30.678] | : . | : Locate function ... done [07:33:30.679] | : . | parse_call() ... done [07:33:30.679] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.680] | : . | kernapply [07:33:30.681] | : . Finding call to be transpiled ... done [07:33:30.681] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... [07:33:30.682] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.682] | : . | Transpiler description: stats::kernapply() -> future.apply::future_kernapply() [07:33:30.682] | : . | Transpiler function: [07:33:30.683] | : . | function (expr, options = NULL) [07:33:30.683] | : . | { [07:33:30.683] | : . | call <- make_call("future_kernapply") [07:33:30.683] | : . | fcn <- eval(call) [07:33:30.683] | : . | expr[[1]] <- call [07:33:30.683] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.683] | : . | { [07:33:30.683] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.683] | : . | if (is.null(defaults_base)) { [07:33:30.683] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.683] | : . | } [07:33:30.683] | : . | if (length(defaults) > 0) { [07:33:30.683] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.683] | : . | } [07:33:30.683] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.683] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.683] | : . | defaults <- defaults[keep] [07:33:30.683] | : . | specified <- attr(options, "specified") [07:33:30.683] | : . | if (length(specified) > 0) { [07:33:30.683] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.683] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.683] | : . | names(options)) [07:33:30.683] | : . | } [07:33:30.683] | : . | specified <- sprintf("future.%s", specified) [07:33:30.683] | : . | names <- setdiff(names(defaults), specified) [07:33:30.683] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.683] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.683] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.683] | : . | options <- options[keep] [07:33:30.683] | : . | options [07:33:30.683] | : . | })(options, fcn, defaults = list(future.label = "fz:stats::kernapply-%d", [07:33:30.683] | : . | prefix = "fz:stats::kernapply"))) [07:33:30.683] | : . | expr <- as.call(parts) [07:33:30.683] | : . | expr [07:33:30.683] | : . | } [07:33:30.683] | : . | [07:33:30.684] | : . Locating 'futurize::add-on' transpiler for stats::kernapply() of class 'function' ... done [07:33:30.684] | : get_transpiler() ... done [07:33:30.685] | : Transpile call expression ... [07:33:30.686] | : . future.apply::future_kernapply(x = X, k = k, future.seed = TRUE, [07:33:30.686] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:30.686] | : . future.scheduling = 1, future.label = "fz:stats::kernapply-%d") [07:33:30.687] | : Transpile call expression ... done [07:33:30.687] | : Evaluate transpiled call expression [07:33:30.736] | transpile() ... done [07:33:30.737] futurize() ... done === lapply ========================== lapply(X = xs, FUN = FUN) --------------------------------- [07:33:30.738] futurize() ... [07:33:30.738] | transpile() ... [07:33:30.739] | : get_transpiler() ... [07:33:30.739] | : . Finding call to be transpiled ... [07:33:30.740] | : . | descend_wrappers() ... [07:33:30.740] | : . | : Call: [07:33:30.741] | : . | : lapply [07:33:30.742] | : . | : parse_call() ... [07:33:30.743] | : . | : . Function: lapply(...) [07:33:30.743] | : . | : . Locate function ... [07:33:30.744] | : . | : . | Function located in: 'base' [07:33:30.744] | : . | : . Locate function ... done [07:33:30.745] | : . | : parse_call() ... done [07:33:30.745] | : . | descend_wrappers() ... done [07:33:30.746] | : . | parse_call() ... [07:33:30.746] | : . | : Function: lapply(...) [07:33:30.747] | : . | : Locate function ... [07:33:30.747] | : . | : . Function located in: 'base' [07:33:30.748] | : . | : Locate function ... done [07:33:30.748] | : . | parse_call() ... done [07:33:30.749] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.749] | : . | lapply [07:33:30.750] | : . Finding call to be transpiled ... done [07:33:30.750] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:30.751] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.751] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:30.752] | : . | Transpiler function: [07:33:30.752] | : . | function (expr, options = NULL) [07:33:30.752] | : . | { [07:33:30.752] | : . | call <- make_call("future_lapply") [07:33:30.752] | : . | fcn <- eval(call) [07:33:30.752] | : . | expr[[1]] <- call [07:33:30.752] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.752] | : . | { [07:33:30.752] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.752] | : . | if (is.null(defaults_base)) { [07:33:30.752] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.752] | : . | } [07:33:30.752] | : . | if (length(defaults) > 0) { [07:33:30.752] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.752] | : . | } [07:33:30.752] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.752] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.752] | : . | defaults <- defaults[keep] [07:33:30.752] | : . | specified <- attr(options, "specified") [07:33:30.752] | : . | if (length(specified) > 0) { [07:33:30.752] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.752] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.752] | : . | names(options)) [07:33:30.752] | : . | } [07:33:30.752] | : . | specified <- sprintf("future.%s", specified) [07:33:30.752] | : . | names <- setdiff(names(defaults), specified) [07:33:30.752] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.752] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.752] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.752] | : . | options <- options[keep] [07:33:30.752] | : . | options [07:33:30.752] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:30.752] | : . | prefix = "fz:base::lapply"))) [07:33:30.752] | : . | expr <- as.call(parts) [07:33:30.752] | : . | expr [07:33:30.752] | : . | } [07:33:30.752] | : . | [07:33:30.753] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:30.754] | : get_transpiler() ... done [07:33:30.754] | : Transpile call expression ... [07:33:30.755] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:30.755] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:30.755] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:30.756] | : Transpile call expression ... done [07:33:30.757] | : Evaluate transpiled call expression [07:33:30.807] | transpile() ... done [07:33:30.808] futurize() ... done Futures created: 2 [07:33:30.809] futurize() ... [07:33:30.809] | transpile() ... [07:33:30.810] | : get_transpiler() ... [07:33:30.811] | : . Finding call to be transpiled ... [07:33:30.811] | : . | descend_wrappers() ... [07:33:30.812] | : . | : Call: [07:33:30.812] | : . | : lapply [07:33:30.813] | : . | : parse_call() ... [07:33:30.814] | : . | : . Function: lapply(...) [07:33:30.814] | : . | : . Locate function ... [07:33:30.815] | : . | : . | Function located in: 'base' [07:33:30.816] | : . | : . Locate function ... done [07:33:30.816] | : . | : parse_call() ... done [07:33:30.817] | : . | descend_wrappers() ... done [07:33:30.817] | : . | parse_call() ... [07:33:30.818] | : . | : Function: lapply(...) [07:33:30.818] | : . | : Locate function ... [07:33:30.819] | : . | : . Function located in: 'base' [07:33:30.820] | : . | : Locate function ... done [07:33:30.820] | : . | parse_call() ... done [07:33:30.821] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.821] | : . | lapply [07:33:30.822] | : . Finding call to be transpiled ... done [07:33:30.823] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:30.823] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.824] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:30.825] | : . | Transpiler function: [07:33:30.825] | : . | function (expr, options = NULL) [07:33:30.825] | : . | { [07:33:30.825] | : . | call <- make_call("future_lapply") [07:33:30.825] | : . | fcn <- eval(call) [07:33:30.825] | : . | expr[[1]] <- call [07:33:30.825] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.825] | : . | { [07:33:30.825] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.825] | : . | if (is.null(defaults_base)) { [07:33:30.825] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.825] | : . | } [07:33:30.825] | : . | if (length(defaults) > 0) { [07:33:30.825] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.825] | : . | } [07:33:30.825] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.825] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.825] | : . | defaults <- defaults[keep] [07:33:30.825] | : . | specified <- attr(options, "specified") [07:33:30.825] | : . | if (length(specified) > 0) { [07:33:30.825] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.825] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.825] | : . | names(options)) [07:33:30.825] | : . | } [07:33:30.825] | : . | specified <- sprintf("future.%s", specified) [07:33:30.825] | : . | names <- setdiff(names(defaults), specified) [07:33:30.825] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.825] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.825] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.825] | : . | options <- options[keep] [07:33:30.825] | : . | options [07:33:30.825] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:30.825] | : . | prefix = "fz:base::lapply"))) [07:33:30.825] | : . | expr <- as.call(parts) [07:33:30.825] | : . | expr [07:33:30.825] | : . | } [07:33:30.825] | : . | [07:33:30.826] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:30.827] | : get_transpiler() ... done [07:33:30.831] | : Transpile call expression ... [07:33:30.832] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:30.832] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:30.832] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:30.834] | : Transpile call expression ... done [07:33:30.834] | : Evaluate transpiled call expression [07:33:30.880] | transpile() ... done [07:33:30.882] futurize() ... done character(0) [07:33:30.883] futurize() ... [07:33:30.884] | transpile() ... [07:33:30.885] | : get_transpiler() ... [07:33:30.886] | : . Finding call to be transpiled ... [07:33:30.887] | : . | descend_wrappers() ... [07:33:30.888] | : . | : Call: [07:33:30.888] | : . | : lapply [07:33:30.889] | : . | : parse_call() ... [07:33:30.890] | : . | : . Function: lapply(...) [07:33:30.891] | : . | : . Locate function ... [07:33:30.891] | : . | : . | Function located in: 'base' [07:33:30.892] | : . | : . Locate function ... done [07:33:30.893] | : . | : parse_call() ... done [07:33:30.894] | : . | descend_wrappers() ... done [07:33:30.894] | : . | parse_call() ... [07:33:30.895] | : . | : Function: lapply(...) [07:33:30.896] | : . | : Locate function ... [07:33:30.897] | : . | : . Function located in: 'base' [07:33:30.897] | : . | : Locate function ... done [07:33:30.898] | : . | parse_call() ... done [07:33:30.899] | : . | Position of call to be transpiled in expression: c(1) [07:33:30.899] | : . | lapply [07:33:30.900] | : . Finding call to be transpiled ... done [07:33:30.901] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:30.902] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:30.902] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:30.903] | : . | Transpiler function: [07:33:30.904] | : . | function (expr, options = NULL) [07:33:30.904] | : . | { [07:33:30.904] | : . | call <- make_call("future_lapply") [07:33:30.904] | : . | fcn <- eval(call) [07:33:30.904] | : . | expr[[1]] <- call [07:33:30.904] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:30.904] | : . | { [07:33:30.904] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:30.904] | : . | if (is.null(defaults_base)) { [07:33:30.904] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:30.904] | : . | } [07:33:30.904] | : . | if (length(defaults) > 0) { [07:33:30.904] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:30.904] | : . | } [07:33:30.904] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:30.904] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:30.904] | : . | defaults <- defaults[keep] [07:33:30.904] | : . | specified <- attr(options, "specified") [07:33:30.904] | : . | if (length(specified) > 0) { [07:33:30.904] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:30.904] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:30.904] | : . | names(options)) [07:33:30.904] | : . | } [07:33:30.904] | : . | specified <- sprintf("future.%s", specified) [07:33:30.904] | : . | names <- setdiff(names(defaults), specified) [07:33:30.904] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:30.904] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:30.904] | : . | keep <- intersect(names(options), names(defaults)) [07:33:30.904] | : . | options <- options[keep] [07:33:30.904] | : . | options [07:33:30.904] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:30.904] | : . | prefix = "fz:base::lapply"))) [07:33:30.904] | : . | expr <- as.call(parts) [07:33:30.904] | : . | expr [07:33:30.904] | : . | } [07:33:30.904] | : . | [07:33:30.905] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:30.906] | : get_transpiler() ... done [07:33:30.907] | : Transpile call expression ... [07:33:30.908] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:30.908] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:30.908] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::lapply-%d") [07:33:30.910] | : Transpile call expression ... done [07:33:30.910] | : Evaluate transpiled call expression [07:33:31.048] | transpile() ... done [07:33:31.049] futurize() ... done Test with RNG: futurize(lapply(X = xs, FUN = FUN), seed = TRUE, flavor = "built-in") [07:33:31.050] futurize() ... [07:33:31.051] | transpile() ... [07:33:31.052] | : get_transpiler() ... [07:33:31.052] | : . Finding call to be transpiled ... [07:33:31.053] | : . | descend_wrappers() ... [07:33:31.054] | : . | : Call: [07:33:31.055] | : . | : lapply [07:33:31.056] | : . | : parse_call() ... [07:33:31.057] | : . | : . Function: lapply(...) [07:33:31.057] | : . | : . Locate function ... [07:33:31.058] | : . | : . | Function located in: 'base' [07:33:31.059] | : . | : . Locate function ... done [07:33:31.060] | : . | : parse_call() ... done [07:33:31.061] | : . | descend_wrappers() ... done [07:33:31.062] | : . | parse_call() ... [07:33:31.063] | : . | : Function: lapply(...) [07:33:31.064] | : . | : Locate function ... [07:33:31.065] | : . | : . Function located in: 'base' [07:33:31.066] | : . | : Locate function ... done [07:33:31.066] | : . | parse_call() ... done [07:33:31.067] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.068] | : . | lapply [07:33:31.069] | : . Finding call to be transpiled ... done [07:33:31.070] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:31.071] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.071] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:31.072] | : . | Transpiler function: [07:33:31.073] | : . | function (expr, options = NULL) [07:33:31.073] | : . | { [07:33:31.073] | : . | call <- make_call("future_lapply") [07:33:31.073] | : . | fcn <- eval(call) [07:33:31.073] | : . | expr[[1]] <- call [07:33:31.073] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.073] | : . | { [07:33:31.073] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.073] | : . | if (is.null(defaults_base)) { [07:33:31.073] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.073] | : . | } [07:33:31.073] | : . | if (length(defaults) > 0) { [07:33:31.073] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.073] | : . | } [07:33:31.073] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.073] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.073] | : . | defaults <- defaults[keep] [07:33:31.073] | : . | specified <- attr(options, "specified") [07:33:31.073] | : . | if (length(specified) > 0) { [07:33:31.073] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.073] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.073] | : . | names(options)) [07:33:31.073] | : . | } [07:33:31.073] | : . | specified <- sprintf("future.%s", specified) [07:33:31.073] | : . | names <- setdiff(names(defaults), specified) [07:33:31.073] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.073] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.073] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.073] | : . | options <- options[keep] [07:33:31.073] | : . | options [07:33:31.073] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:31.073] | : . | prefix = "fz:base::lapply"))) [07:33:31.073] | : . | expr <- as.call(parts) [07:33:31.073] | : . | expr [07:33:31.073] | : . | } [07:33:31.073] | : . | [07:33:31.075] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:31.075] | : get_transpiler() ... done [07:33:31.076] | : Transpile call expression ... [07:33:31.077] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:31.077] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.077] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:31.079] | : Transpile call expression ... done [07:33:31.080] | : Evaluate transpiled call expression [07:33:31.134] | transpile() ... done [07:33:31.135] futurize() ... done === lapply ========================== base::lapply(X = xs, FUN = FUN) --------------------------------- [07:33:31.140] futurize() ... [07:33:31.141] | transpile() ... [07:33:31.141] | : get_transpiler() ... [07:33:31.142] | : . Finding call to be transpiled ... [07:33:31.143] | : . | descend_wrappers() ... [07:33:31.143] | : . | : Call: [07:33:31.144] | : . | : base::lapply [07:33:31.145] | : . | : parse_call() ... [07:33:31.146] | : . | : . Function: base::lapply(...) [07:33:31.147] | : . | : parse_call() ... done [07:33:31.147] | : . | descend_wrappers() ... done [07:33:31.148] | : . | parse_call() ... [07:33:31.149] | : . | : Function: base::lapply(...) [07:33:31.149] | : . | parse_call() ... done [07:33:31.150] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.151] | : . | base::lapply [07:33:31.152] | : . Finding call to be transpiled ... done [07:33:31.152] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:31.153] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.154] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:31.154] | : . | Transpiler function: [07:33:31.155] | : . | function (expr, options = NULL) [07:33:31.155] | : . | { [07:33:31.155] | : . | call <- make_call("future_lapply") [07:33:31.155] | : . | fcn <- eval(call) [07:33:31.155] | : . | expr[[1]] <- call [07:33:31.155] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.155] | : . | { [07:33:31.155] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.155] | : . | if (is.null(defaults_base)) { [07:33:31.155] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.155] | : . | } [07:33:31.155] | : . | if (length(defaults) > 0) { [07:33:31.155] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.155] | : . | } [07:33:31.155] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.155] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.155] | : . | defaults <- defaults[keep] [07:33:31.155] | : . | specified <- attr(options, "specified") [07:33:31.155] | : . | if (length(specified) > 0) { [07:33:31.155] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.155] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.155] | : . | names(options)) [07:33:31.155] | : . | } [07:33:31.155] | : . | specified <- sprintf("future.%s", specified) [07:33:31.155] | : . | names <- setdiff(names(defaults), specified) [07:33:31.155] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.155] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.155] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.155] | : . | options <- options[keep] [07:33:31.155] | : . | options [07:33:31.155] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:31.155] | : . | prefix = "fz:base::lapply"))) [07:33:31.155] | : . | expr <- as.call(parts) [07:33:31.155] | : . | expr [07:33:31.155] | : . | } [07:33:31.155] | : . | [07:33:31.156] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:31.157] | : get_transpiler() ... done [07:33:31.158] | : Transpile call expression ... [07:33:31.159] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:31.159] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.159] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:31.160] | : Transpile call expression ... done [07:33:31.161] | : Evaluate transpiled call expression [07:33:31.205] | transpile() ... done [07:33:31.206] futurize() ... done Futures created: 2 [07:33:31.207] futurize() ... [07:33:31.208] | transpile() ... [07:33:31.208] | : get_transpiler() ... [07:33:31.209] | : . Finding call to be transpiled ... [07:33:31.210] | : . | descend_wrappers() ... [07:33:31.210] | : . | : Call: [07:33:31.211] | : . | : base::lapply [07:33:31.212] | : . | : parse_call() ... [07:33:31.213] | : . | : . Function: base::lapply(...) [07:33:31.213] | : . | : parse_call() ... done [07:33:31.214] | : . | descend_wrappers() ... done [07:33:31.215] | : . | parse_call() ... [07:33:31.215] | : . | : Function: base::lapply(...) [07:33:31.216] | : . | parse_call() ... done [07:33:31.217] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.217] | : . | base::lapply [07:33:31.218] | : . Finding call to be transpiled ... done [07:33:31.219] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:31.220] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.221] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:31.221] | : . | Transpiler function: [07:33:31.222] | : . | function (expr, options = NULL) [07:33:31.222] | : . | { [07:33:31.222] | : . | call <- make_call("future_lapply") [07:33:31.222] | : . | fcn <- eval(call) [07:33:31.222] | : . | expr[[1]] <- call [07:33:31.222] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.222] | : . | { [07:33:31.222] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.222] | : . | if (is.null(defaults_base)) { [07:33:31.222] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.222] | : . | } [07:33:31.222] | : . | if (length(defaults) > 0) { [07:33:31.222] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.222] | : . | } [07:33:31.222] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.222] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.222] | : . | defaults <- defaults[keep] [07:33:31.222] | : . | specified <- attr(options, "specified") [07:33:31.222] | : . | if (length(specified) > 0) { [07:33:31.222] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.222] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.222] | : . | names(options)) [07:33:31.222] | : . | } [07:33:31.222] | : . | specified <- sprintf("future.%s", specified) [07:33:31.222] | : . | names <- setdiff(names(defaults), specified) [07:33:31.222] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.222] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.222] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.222] | : . | options <- options[keep] [07:33:31.222] | : . | options [07:33:31.222] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:31.222] | : . | prefix = "fz:base::lapply"))) [07:33:31.222] | : . | expr <- as.call(parts) [07:33:31.222] | : . | expr [07:33:31.222] | : . | } [07:33:31.222] | : . | [07:33:31.224] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:31.224] | : get_transpiler() ... done [07:33:31.225] | : Transpile call expression ... [07:33:31.226] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:31.226] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:31.226] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:31.228] | : Transpile call expression ... done [07:33:31.229] | : Evaluate transpiled call expression [07:33:31.281] | transpile() ... done [07:33:31.282] futurize() ... done character(0) [07:33:31.283] futurize() ... [07:33:31.283] | transpile() ... [07:33:31.284] | : get_transpiler() ... [07:33:31.285] | : . Finding call to be transpiled ... [07:33:31.286] | : . | descend_wrappers() ... [07:33:31.286] | : . | : Call: [07:33:31.287] | : . | : base::lapply [07:33:31.288] | : . | : parse_call() ... [07:33:31.289] | : . | : . Function: base::lapply(...) [07:33:31.289] | : . | : parse_call() ... done [07:33:31.290] | : . | descend_wrappers() ... done [07:33:31.291] | : . | parse_call() ... [07:33:31.291] | : . | : Function: base::lapply(...) [07:33:31.292] | : . | parse_call() ... done [07:33:31.293] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.293] | : . | base::lapply [07:33:31.294] | : . Finding call to be transpiled ... done [07:33:31.295] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:31.296] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.296] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:31.297] | : . | Transpiler function: [07:33:31.298] | : . | function (expr, options = NULL) [07:33:31.298] | : . | { [07:33:31.298] | : . | call <- make_call("future_lapply") [07:33:31.298] | : . | fcn <- eval(call) [07:33:31.298] | : . | expr[[1]] <- call [07:33:31.298] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.298] | : . | { [07:33:31.298] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.298] | : . | if (is.null(defaults_base)) { [07:33:31.298] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.298] | : . | } [07:33:31.298] | : . | if (length(defaults) > 0) { [07:33:31.298] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.298] | : . | } [07:33:31.298] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.298] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.298] | : . | defaults <- defaults[keep] [07:33:31.298] | : . | specified <- attr(options, "specified") [07:33:31.298] | : . | if (length(specified) > 0) { [07:33:31.298] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.298] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.298] | : . | names(options)) [07:33:31.298] | : . | } [07:33:31.298] | : . | specified <- sprintf("future.%s", specified) [07:33:31.298] | : . | names <- setdiff(names(defaults), specified) [07:33:31.298] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.298] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.298] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.298] | : . | options <- options[keep] [07:33:31.298] | : . | options [07:33:31.298] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:31.298] | : . | prefix = "fz:base::lapply"))) [07:33:31.298] | : . | expr <- as.call(parts) [07:33:31.298] | : . | expr [07:33:31.298] | : . | } [07:33:31.298] | : . | [07:33:31.299] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:31.300] | : get_transpiler() ... done [07:33:31.301] | : Transpile call expression ... [07:33:31.302] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:31.302] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.302] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::lapply-%d") [07:33:31.303] | : Transpile call expression ... done [07:33:31.304] | : Evaluate transpiled call expression [07:33:31.407] | transpile() ... done [07:33:31.408] futurize() ... done Test with RNG: futurize(base::lapply(X = xs, FUN = FUN), seed = TRUE, flavor = "built-in") [07:33:31.409] futurize() ... [07:33:31.410] | transpile() ... [07:33:31.411] | : get_transpiler() ... [07:33:31.411] | : . Finding call to be transpiled ... [07:33:31.412] | : . | descend_wrappers() ... [07:33:31.413] | : . | : Call: [07:33:31.414] | : . | : base::lapply [07:33:31.415] | : . | : parse_call() ... [07:33:31.419] | : . | : . Function: base::lapply(...) [07:33:31.419] | : . | : parse_call() ... done [07:33:31.420] | : . | descend_wrappers() ... done [07:33:31.421] | : . | parse_call() ... [07:33:31.422] | : . | : Function: base::lapply(...) [07:33:31.423] | : . | parse_call() ... done [07:33:31.423] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.424] | : . | base::lapply [07:33:31.425] | : . Finding call to be transpiled ... done [07:33:31.426] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:31.427] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.428] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:31.428] | : . | Transpiler function: [07:33:31.429] | : . | function (expr, options = NULL) [07:33:31.429] | : . | { [07:33:31.429] | : . | call <- make_call("future_lapply") [07:33:31.429] | : . | fcn <- eval(call) [07:33:31.429] | : . | expr[[1]] <- call [07:33:31.429] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.429] | : . | { [07:33:31.429] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.429] | : . | if (is.null(defaults_base)) { [07:33:31.429] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.429] | : . | } [07:33:31.429] | : . | if (length(defaults) > 0) { [07:33:31.429] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.429] | : . | } [07:33:31.429] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.429] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.429] | : . | defaults <- defaults[keep] [07:33:31.429] | : . | specified <- attr(options, "specified") [07:33:31.429] | : . | if (length(specified) > 0) { [07:33:31.429] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.429] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.429] | : . | names(options)) [07:33:31.429] | : . | } [07:33:31.429] | : . | specified <- sprintf("future.%s", specified) [07:33:31.429] | : . | names <- setdiff(names(defaults), specified) [07:33:31.429] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.429] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.429] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.429] | : . | options <- options[keep] [07:33:31.429] | : . | options [07:33:31.429] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:31.429] | : . | prefix = "fz:base::lapply"))) [07:33:31.429] | : . | expr <- as.call(parts) [07:33:31.429] | : . | expr [07:33:31.429] | : . | } [07:33:31.429] | : . | [07:33:31.431] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:31.431] | : get_transpiler() ... done [07:33:31.432] | : Transpile call expression ... [07:33:31.434] | : . future.apply::future_lapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:31.434] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.434] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:31.435] | : Transpile call expression ... done [07:33:31.436] | : Evaluate transpiled call expression [07:33:31.490] | transpile() ... done [07:33:31.491] futurize() ... done === sapply ========================== sapply(X = xs, FUN = FUN) --------------------------------- [07:33:31.493] futurize() ... [07:33:31.494] | transpile() ... [07:33:31.495] | : get_transpiler() ... [07:33:31.495] | : . Finding call to be transpiled ... [07:33:31.496] | : . | descend_wrappers() ... [07:33:31.497] | : . | : Call: [07:33:31.497] | : . | : sapply [07:33:31.498] | : . | : parse_call() ... [07:33:31.498] | : . | : . Function: sapply(...) [07:33:31.499] | : . | : . Locate function ... [07:33:31.499] | : . | : . | Function located in: 'base' [07:33:31.500] | : . | : . Locate function ... done [07:33:31.500] | : . | : parse_call() ... done [07:33:31.501] | : . | descend_wrappers() ... done [07:33:31.501] | : . | parse_call() ... [07:33:31.502] | : . | : Function: sapply(...) [07:33:31.502] | : . | : Locate function ... [07:33:31.503] | : . | : . Function located in: 'base' [07:33:31.503] | : . | : Locate function ... done [07:33:31.503] | : . | parse_call() ... done [07:33:31.504] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.504] | : . | sapply [07:33:31.505] | : . Finding call to be transpiled ... done [07:33:31.506] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:31.506] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.507] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:31.507] | : . | Transpiler function: [07:33:31.507] | : . | function (expr, options = NULL) [07:33:31.507] | : . | { [07:33:31.507] | : . | call <- make_call("future_sapply") [07:33:31.507] | : . | fcn <- eval(call) [07:33:31.507] | : . | expr[[1]] <- call [07:33:31.507] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.507] | : . | { [07:33:31.507] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.507] | : . | if (is.null(defaults_base)) { [07:33:31.507] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.507] | : . | } [07:33:31.507] | : . | if (length(defaults) > 0) { [07:33:31.507] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.507] | : . | } [07:33:31.507] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.507] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.507] | : . | defaults <- defaults[keep] [07:33:31.507] | : . | specified <- attr(options, "specified") [07:33:31.507] | : . | if (length(specified) > 0) { [07:33:31.507] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.507] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.507] | : . | names(options)) [07:33:31.507] | : . | } [07:33:31.507] | : . | specified <- sprintf("future.%s", specified) [07:33:31.507] | : . | names <- setdiff(names(defaults), specified) [07:33:31.507] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.507] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.507] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.507] | : . | options <- options[keep] [07:33:31.507] | : . | options [07:33:31.507] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:31.507] | : . | prefix = "fz:base::sapply"))) [07:33:31.507] | : . | expr <- as.call(parts) [07:33:31.507] | : . | expr [07:33:31.507] | : . | } [07:33:31.507] | : . | [07:33:31.509] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:31.509] | : get_transpiler() ... done [07:33:31.509] | : Transpile call expression ... [07:33:31.510] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:31.510] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.510] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:31.511] | : Transpile call expression ... done [07:33:31.512] | : Evaluate transpiled call expression [07:33:31.555] | transpile() ... done [07:33:31.556] futurize() ... done Futures created: 2 [07:33:31.557] futurize() ... [07:33:31.558] | transpile() ... [07:33:31.559] | : get_transpiler() ... [07:33:31.559] | : . Finding call to be transpiled ... [07:33:31.560] | : . | descend_wrappers() ... [07:33:31.561] | : . | : Call: [07:33:31.562] | : . | : sapply [07:33:31.563] | : . | : parse_call() ... [07:33:31.563] | : . | : . Function: sapply(...) [07:33:31.564] | : . | : . Locate function ... [07:33:31.565] | : . | : . | Function located in: 'base' [07:33:31.566] | : . | : . Locate function ... done [07:33:31.566] | : . | : parse_call() ... done [07:33:31.567] | : . | descend_wrappers() ... done [07:33:31.568] | : . | parse_call() ... [07:33:31.568] | : . | : Function: sapply(...) [07:33:31.569] | : . | : Locate function ... [07:33:31.570] | : . | : . Function located in: 'base' [07:33:31.571] | : . | : Locate function ... done [07:33:31.571] | : . | parse_call() ... done [07:33:31.572] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.573] | : . | sapply [07:33:31.574] | : . Finding call to be transpiled ... done [07:33:31.574] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:31.575] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.576] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:31.577] | : . | Transpiler function: [07:33:31.578] | : . | function (expr, options = NULL) [07:33:31.578] | : . | { [07:33:31.578] | : . | call <- make_call("future_sapply") [07:33:31.578] | : . | fcn <- eval(call) [07:33:31.578] | : . | expr[[1]] <- call [07:33:31.578] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.578] | : . | { [07:33:31.578] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.578] | : . | if (is.null(defaults_base)) { [07:33:31.578] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.578] | : . | } [07:33:31.578] | : . | if (length(defaults) > 0) { [07:33:31.578] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.578] | : . | } [07:33:31.578] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.578] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.578] | : . | defaults <- defaults[keep] [07:33:31.578] | : . | specified <- attr(options, "specified") [07:33:31.578] | : . | if (length(specified) > 0) { [07:33:31.578] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.578] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.578] | : . | names(options)) [07:33:31.578] | : . | } [07:33:31.578] | : . | specified <- sprintf("future.%s", specified) [07:33:31.578] | : . | names <- setdiff(names(defaults), specified) [07:33:31.578] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.578] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.578] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.578] | : . | options <- options[keep] [07:33:31.578] | : . | options [07:33:31.578] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:31.578] | : . | prefix = "fz:base::sapply"))) [07:33:31.578] | : . | expr <- as.call(parts) [07:33:31.578] | : . | expr [07:33:31.578] | : . | } [07:33:31.578] | : . | [07:33:31.579] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:31.580] | : get_transpiler() ... done [07:33:31.581] | : Transpile call expression ... [07:33:31.582] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:31.582] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:31.582] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:31.584] | : Transpile call expression ... done [07:33:31.585] | : Evaluate transpiled call expression [07:33:31.669] | transpile() ... done [07:33:31.670] futurize() ... done character(0) [07:33:31.671] futurize() ... [07:33:31.672] | transpile() ... [07:33:31.673] | : get_transpiler() ... [07:33:31.674] | : . Finding call to be transpiled ... [07:33:31.675] | : . | descend_wrappers() ... [07:33:31.675] | : . | : Call: [07:33:31.677] | : . | : sapply [07:33:31.678] | : . | : parse_call() ... [07:33:31.679] | : . | : . Function: sapply(...) [07:33:31.679] | : . | : . Locate function ... [07:33:31.680] | : . | : . | Function located in: 'base' [07:33:31.681] | : . | : . Locate function ... done [07:33:31.682] | : . | : parse_call() ... done [07:33:31.682] | : . | descend_wrappers() ... done [07:33:31.683] | : . | parse_call() ... [07:33:31.684] | : . | : Function: sapply(...) [07:33:31.685] | : . | : Locate function ... [07:33:31.685] | : . | : . Function located in: 'base' [07:33:31.686] | : . | : Locate function ... done [07:33:31.687] | : . | parse_call() ... done [07:33:31.688] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.688] | : . | sapply [07:33:31.689] | : . Finding call to be transpiled ... done [07:33:31.690] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:31.691] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.692] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:31.692] | : . | Transpiler function: [07:33:31.693] | : . | function (expr, options = NULL) [07:33:31.693] | : . | { [07:33:31.693] | : . | call <- make_call("future_sapply") [07:33:31.693] | : . | fcn <- eval(call) [07:33:31.693] | : . | expr[[1]] <- call [07:33:31.693] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.693] | : . | { [07:33:31.693] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.693] | : . | if (is.null(defaults_base)) { [07:33:31.693] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.693] | : . | } [07:33:31.693] | : . | if (length(defaults) > 0) { [07:33:31.693] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.693] | : . | } [07:33:31.693] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.693] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.693] | : . | defaults <- defaults[keep] [07:33:31.693] | : . | specified <- attr(options, "specified") [07:33:31.693] | : . | if (length(specified) > 0) { [07:33:31.693] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.693] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.693] | : . | names(options)) [07:33:31.693] | : . | } [07:33:31.693] | : . | specified <- sprintf("future.%s", specified) [07:33:31.693] | : . | names <- setdiff(names(defaults), specified) [07:33:31.693] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.693] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.693] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.693] | : . | options <- options[keep] [07:33:31.693] | : . | options [07:33:31.693] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:31.693] | : . | prefix = "fz:base::sapply"))) [07:33:31.693] | : . | expr <- as.call(parts) [07:33:31.693] | : . | expr [07:33:31.693] | : . | } [07:33:31.693] | : . | [07:33:31.695] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:31.696] | : get_transpiler() ... done [07:33:31.696] | : Transpile call expression ... [07:33:31.698] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:31.698] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.698] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::sapply-%d") [07:33:31.703] | : Transpile call expression ... done [07:33:31.704] | : Evaluate transpiled call expression [07:33:31.847] | transpile() ... done [07:33:31.848] futurize() ... done Test with RNG: futurize(sapply(X = xs, FUN = FUN), seed = TRUE, flavor = "built-in") [07:33:31.850] futurize() ... [07:33:31.851] | transpile() ... [07:33:31.852] | : get_transpiler() ... [07:33:31.853] | : . Finding call to be transpiled ... [07:33:31.854] | : . | descend_wrappers() ... [07:33:31.856] | : . | : Call: [07:33:31.857] | : . | : sapply [07:33:31.858] | : . | : parse_call() ... [07:33:31.859] | : . | : . Function: sapply(...) [07:33:31.860] | : . | : . Locate function ... [07:33:31.861] | : . | : . | Function located in: 'base' [07:33:31.862] | : . | : . Locate function ... done [07:33:31.863] | : . | : parse_call() ... done [07:33:31.864] | : . | descend_wrappers() ... done [07:33:31.864] | : . | parse_call() ... [07:33:31.865] | : . | : Function: sapply(...) [07:33:31.866] | : . | : Locate function ... [07:33:31.867] | : . | : . Function located in: 'base' [07:33:31.867] | : . | : Locate function ... done [07:33:31.868] | : . | parse_call() ... done [07:33:31.868] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.869] | : . | sapply [07:33:31.870] | : . Finding call to be transpiled ... done [07:33:31.871] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:31.871] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.872] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:31.873] | : . | Transpiler function: [07:33:31.874] | : . | function (expr, options = NULL) [07:33:31.874] | : . | { [07:33:31.874] | : . | call <- make_call("future_sapply") [07:33:31.874] | : . | fcn <- eval(call) [07:33:31.874] | : . | expr[[1]] <- call [07:33:31.874] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.874] | : . | { [07:33:31.874] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.874] | : . | if (is.null(defaults_base)) { [07:33:31.874] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.874] | : . | } [07:33:31.874] | : . | if (length(defaults) > 0) { [07:33:31.874] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.874] | : . | } [07:33:31.874] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.874] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.874] | : . | defaults <- defaults[keep] [07:33:31.874] | : . | specified <- attr(options, "specified") [07:33:31.874] | : . | if (length(specified) > 0) { [07:33:31.874] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.874] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.874] | : . | names(options)) [07:33:31.874] | : . | } [07:33:31.874] | : . | specified <- sprintf("future.%s", specified) [07:33:31.874] | : . | names <- setdiff(names(defaults), specified) [07:33:31.874] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.874] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.874] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.874] | : . | options <- options[keep] [07:33:31.874] | : . | options [07:33:31.874] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:31.874] | : . | prefix = "fz:base::sapply"))) [07:33:31.874] | : . | expr <- as.call(parts) [07:33:31.874] | : . | expr [07:33:31.874] | : . | } [07:33:31.874] | : . | [07:33:31.875] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:31.876] | : get_transpiler() ... done [07:33:31.877] | : Transpile call expression ... [07:33:31.878] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:31.878] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.878] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:31.880] | : Transpile call expression ... done [07:33:31.881] | : Evaluate transpiled call expression [07:33:31.945] | transpile() ... done [07:33:31.946] futurize() ... done === sapply ========================== base::sapply(X = xs, FUN = FUN) --------------------------------- [07:33:31.948] futurize() ... [07:33:31.949] | transpile() ... [07:33:31.949] | : get_transpiler() ... [07:33:31.950] | : . Finding call to be transpiled ... [07:33:31.951] | : . | descend_wrappers() ... [07:33:31.952] | : . | : Call: [07:33:31.953] | : . | : base::sapply [07:33:31.954] | : . | : parse_call() ... [07:33:31.954] | : . | : . Function: base::sapply(...) [07:33:31.955] | : . | : parse_call() ... done [07:33:31.956] | : . | descend_wrappers() ... done [07:33:31.957] | : . | parse_call() ... [07:33:31.957] | : . | : Function: base::sapply(...) [07:33:31.958] | : . | parse_call() ... done [07:33:31.959] | : . | Position of call to be transpiled in expression: c(1) [07:33:31.960] | : . | base::sapply [07:33:31.961] | : . Finding call to be transpiled ... done [07:33:31.962] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:31.962] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:31.963] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:31.964] | : . | Transpiler function: [07:33:31.965] | : . | function (expr, options = NULL) [07:33:31.965] | : . | { [07:33:31.965] | : . | call <- make_call("future_sapply") [07:33:31.965] | : . | fcn <- eval(call) [07:33:31.965] | : . | expr[[1]] <- call [07:33:31.965] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:31.965] | : . | { [07:33:31.965] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:31.965] | : . | if (is.null(defaults_base)) { [07:33:31.965] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:31.965] | : . | } [07:33:31.965] | : . | if (length(defaults) > 0) { [07:33:31.965] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:31.965] | : . | } [07:33:31.965] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:31.965] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:31.965] | : . | defaults <- defaults[keep] [07:33:31.965] | : . | specified <- attr(options, "specified") [07:33:31.965] | : . | if (length(specified) > 0) { [07:33:31.965] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:31.965] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:31.965] | : . | names(options)) [07:33:31.965] | : . | } [07:33:31.965] | : . | specified <- sprintf("future.%s", specified) [07:33:31.965] | : . | names <- setdiff(names(defaults), specified) [07:33:31.965] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:31.965] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:31.965] | : . | keep <- intersect(names(options), names(defaults)) [07:33:31.965] | : . | options <- options[keep] [07:33:31.965] | : . | options [07:33:31.965] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:31.965] | : . | prefix = "fz:base::sapply"))) [07:33:31.965] | : . | expr <- as.call(parts) [07:33:31.965] | : . | expr [07:33:31.965] | : . | } [07:33:31.965] | : . | [07:33:31.966] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:31.967] | : get_transpiler() ... done [07:33:31.968] | : Transpile call expression ... [07:33:31.969] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:31.969] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:31.969] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:31.971] | : Transpile call expression ... done [07:33:31.972] | : Evaluate transpiled call expression [07:33:32.065] | transpile() ... done [07:33:32.066] futurize() ... done Futures created: 2 [07:33:32.067] futurize() ... [07:33:32.068] | transpile() ... [07:33:32.069] | : get_transpiler() ... [07:33:32.070] | : . Finding call to be transpiled ... [07:33:32.071] | : . | descend_wrappers() ... [07:33:32.072] | : . | : Call: [07:33:32.072] | : . | : base::sapply [07:33:32.073] | : . | : parse_call() ... [07:33:32.074] | : . | : . Function: base::sapply(...) [07:33:32.075] | : . | : parse_call() ... done [07:33:32.076] | : . | descend_wrappers() ... done [07:33:32.077] | : . | parse_call() ... [07:33:32.078] | : . | : Function: base::sapply(...) [07:33:32.079] | : . | parse_call() ... done [07:33:32.080] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.080] | : . | base::sapply [07:33:32.081] | : . Finding call to be transpiled ... done [07:33:32.082] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.083] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.084] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.084] | : . | Transpiler function: [07:33:32.085] | : . | function (expr, options = NULL) [07:33:32.085] | : . | { [07:33:32.085] | : . | call <- make_call("future_sapply") [07:33:32.085] | : . | fcn <- eval(call) [07:33:32.085] | : . | expr[[1]] <- call [07:33:32.085] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.085] | : . | { [07:33:32.085] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.085] | : . | if (is.null(defaults_base)) { [07:33:32.085] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.085] | : . | } [07:33:32.085] | : . | if (length(defaults) > 0) { [07:33:32.085] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.085] | : . | } [07:33:32.085] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.085] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.085] | : . | defaults <- defaults[keep] [07:33:32.085] | : . | specified <- attr(options, "specified") [07:33:32.085] | : . | if (length(specified) > 0) { [07:33:32.085] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.085] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.085] | : . | names(options)) [07:33:32.085] | : . | } [07:33:32.085] | : . | specified <- sprintf("future.%s", specified) [07:33:32.085] | : . | names <- setdiff(names(defaults), specified) [07:33:32.085] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.085] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.085] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.085] | : . | options <- options[keep] [07:33:32.085] | : . | options [07:33:32.085] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.085] | : . | prefix = "fz:base::sapply"))) [07:33:32.085] | : . | expr <- as.call(parts) [07:33:32.085] | : . | expr [07:33:32.085] | : . | } [07:33:32.085] | : . | [07:33:32.087] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.088] | : get_transpiler() ... done [07:33:32.089] | : Transpile call expression ... [07:33:32.090] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:32.090] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:32.090] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:32.091] | : Transpile call expression ... done [07:33:32.092] | : Evaluate transpiled call expression [07:33:32.142] | transpile() ... done [07:33:32.143] futurize() ... done character(0) [07:33:32.144] futurize() ... [07:33:32.145] | transpile() ... [07:33:32.146] | : get_transpiler() ... [07:33:32.147] | : . Finding call to be transpiled ... [07:33:32.148] | : . | descend_wrappers() ... [07:33:32.148] | : . | : Call: [07:33:32.149] | : . | : base::sapply [07:33:32.150] | : . | : parse_call() ... [07:33:32.151] | : . | : . Function: base::sapply(...) [07:33:32.152] | : . | : parse_call() ... done [07:33:32.152] | : . | descend_wrappers() ... done [07:33:32.153] | : . | parse_call() ... [07:33:32.154] | : . | : Function: base::sapply(...) [07:33:32.155] | : . | parse_call() ... done [07:33:32.156] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.156] | : . | base::sapply [07:33:32.157] | : . Finding call to be transpiled ... done [07:33:32.158] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.159] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.160] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.160] | : . | Transpiler function: [07:33:32.161] | : . | function (expr, options = NULL) [07:33:32.161] | : . | { [07:33:32.161] | : . | call <- make_call("future_sapply") [07:33:32.161] | : . | fcn <- eval(call) [07:33:32.161] | : . | expr[[1]] <- call [07:33:32.161] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.161] | : . | { [07:33:32.161] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.161] | : . | if (is.null(defaults_base)) { [07:33:32.161] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.161] | : . | } [07:33:32.161] | : . | if (length(defaults) > 0) { [07:33:32.161] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.161] | : . | } [07:33:32.161] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.161] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.161] | : . | defaults <- defaults[keep] [07:33:32.161] | : . | specified <- attr(options, "specified") [07:33:32.161] | : . | if (length(specified) > 0) { [07:33:32.161] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.161] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.161] | : . | names(options)) [07:33:32.161] | : . | } [07:33:32.161] | : . | specified <- sprintf("future.%s", specified) [07:33:32.161] | : . | names <- setdiff(names(defaults), specified) [07:33:32.161] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.161] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.161] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.161] | : . | options <- options[keep] [07:33:32.161] | : . | options [07:33:32.161] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.161] | : . | prefix = "fz:base::sapply"))) [07:33:32.161] | : . | expr <- as.call(parts) [07:33:32.161] | : . | expr [07:33:32.161] | : . | } [07:33:32.161] | : . | [07:33:32.163] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.164] | : get_transpiler() ... done [07:33:32.164] | : Transpile call expression ... [07:33:32.165] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = FALSE, [07:33:32.165] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:32.165] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::sapply-%d") [07:33:32.167] | : Transpile call expression ... done [07:33:32.168] | : Evaluate transpiled call expression [07:33:32.298] | transpile() ... done [07:33:32.299] futurize() ... done Test with RNG: futurize(base::sapply(X = xs, FUN = FUN), seed = TRUE, flavor = "built-in") [07:33:32.300] futurize() ... [07:33:32.301] | transpile() ... [07:33:32.302] | : get_transpiler() ... [07:33:32.303] | : . Finding call to be transpiled ... [07:33:32.304] | : . | descend_wrappers() ... [07:33:32.305] | : . | : Call: [07:33:32.305] | : . | : base::sapply [07:33:32.306] | : . | : parse_call() ... [07:33:32.307] | : . | : . Function: base::sapply(...) [07:33:32.308] | : . | : parse_call() ... done [07:33:32.309] | : . | descend_wrappers() ... done [07:33:32.310] | : . | parse_call() ... [07:33:32.310] | : . | : Function: base::sapply(...) [07:33:32.311] | : . | parse_call() ... done [07:33:32.312] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.313] | : . | base::sapply [07:33:32.314] | : . Finding call to be transpiled ... done [07:33:32.314] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.315] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.316] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.316] | : . | Transpiler function: [07:33:32.317] | : . | function (expr, options = NULL) [07:33:32.317] | : . | { [07:33:32.317] | : . | call <- make_call("future_sapply") [07:33:32.317] | : . | fcn <- eval(call) [07:33:32.317] | : . | expr[[1]] <- call [07:33:32.317] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.317] | : . | { [07:33:32.317] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.317] | : . | if (is.null(defaults_base)) { [07:33:32.317] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.317] | : . | } [07:33:32.317] | : . | if (length(defaults) > 0) { [07:33:32.317] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.317] | : . | } [07:33:32.317] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.317] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.317] | : . | defaults <- defaults[keep] [07:33:32.317] | : . | specified <- attr(options, "specified") [07:33:32.317] | : . | if (length(specified) > 0) { [07:33:32.317] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.317] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.317] | : . | names(options)) [07:33:32.317] | : . | } [07:33:32.317] | : . | specified <- sprintf("future.%s", specified) [07:33:32.317] | : . | names <- setdiff(names(defaults), specified) [07:33:32.317] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.317] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.317] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.317] | : . | options <- options[keep] [07:33:32.317] | : . | options [07:33:32.317] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.317] | : . | prefix = "fz:base::sapply"))) [07:33:32.317] | : . | expr <- as.call(parts) [07:33:32.317] | : . | expr [07:33:32.317] | : . | } [07:33:32.317] | : . | [07:33:32.319] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.319] | : get_transpiler() ... done [07:33:32.320] | : Transpile call expression ... [07:33:32.321] | : . future.apply::future_sapply(X = xs, FUN = FUN, future.seed = TRUE, [07:33:32.321] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:32.321] | : . future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:32.322] | : Transpile call expression ... done [07:33:32.323] | : Evaluate transpiled call expression [07:33:32.374] | transpile() ... done [07:33:32.375] futurize() ... done === sapply ========================== base::sapply(X = xs, FUN = FUN, simplify = FALSE) --------------------------------- [07:33:32.377] futurize() ... [07:33:32.377] | transpile() ... [07:33:32.378] | : get_transpiler() ... [07:33:32.379] | : . Finding call to be transpiled ... [07:33:32.380] | : . | descend_wrappers() ... [07:33:32.380] | : . | : Call: [07:33:32.381] | : . | : base::sapply [07:33:32.382] | : . | : parse_call() ... [07:33:32.383] | : . | : . Function: base::sapply(...) [07:33:32.383] | : . | : parse_call() ... done [07:33:32.384] | : . | descend_wrappers() ... done [07:33:32.385] | : . | parse_call() ... [07:33:32.386] | : . | : Function: base::sapply(...) [07:33:32.386] | : . | parse_call() ... done [07:33:32.387] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.388] | : . | base::sapply [07:33:32.389] | : . Finding call to be transpiled ... done [07:33:32.389] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.390] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.391] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.392] | : . | Transpiler function: [07:33:32.392] | : . | function (expr, options = NULL) [07:33:32.392] | : . | { [07:33:32.392] | : . | call <- make_call("future_sapply") [07:33:32.392] | : . | fcn <- eval(call) [07:33:32.392] | : . | expr[[1]] <- call [07:33:32.392] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.392] | : . | { [07:33:32.392] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.392] | : . | if (is.null(defaults_base)) { [07:33:32.392] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.392] | : . | } [07:33:32.392] | : . | if (length(defaults) > 0) { [07:33:32.392] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.392] | : . | } [07:33:32.392] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.392] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.392] | : . | defaults <- defaults[keep] [07:33:32.392] | : . | specified <- attr(options, "specified") [07:33:32.392] | : . | if (length(specified) > 0) { [07:33:32.392] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.392] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.392] | : . | names(options)) [07:33:32.392] | : . | } [07:33:32.392] | : . | specified <- sprintf("future.%s", specified) [07:33:32.392] | : . | names <- setdiff(names(defaults), specified) [07:33:32.392] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.392] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.392] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.392] | : . | options <- options[keep] [07:33:32.392] | : . | options [07:33:32.392] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.392] | : . | prefix = "fz:base::sapply"))) [07:33:32.392] | : . | expr <- as.call(parts) [07:33:32.392] | : . | expr [07:33:32.392] | : . | } [07:33:32.392] | : . | [07:33:32.394] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.394] | : get_transpiler() ... done [07:33:32.395] | : Transpile call expression ... [07:33:32.396] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:32.396] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:32.396] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:32.398] | : Transpile call expression ... done [07:33:32.398] | : Evaluate transpiled call expression [07:33:32.442] | transpile() ... done [07:33:32.443] futurize() ... done Futures created: 2 [07:33:32.444] futurize() ... [07:33:32.444] | transpile() ... [07:33:32.445] | : get_transpiler() ... [07:33:32.446] | : . Finding call to be transpiled ... [07:33:32.447] | : . | descend_wrappers() ... [07:33:32.447] | : . | : Call: [07:33:32.448] | : . | : base::sapply [07:33:32.449] | : . | : parse_call() ... [07:33:32.450] | : . | : . Function: base::sapply(...) [07:33:32.450] | : . | : parse_call() ... done [07:33:32.451] | : . | descend_wrappers() ... done [07:33:32.452] | : . | parse_call() ... [07:33:32.453] | : . | : Function: base::sapply(...) [07:33:32.453] | : . | parse_call() ... done [07:33:32.454] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.455] | : . | base::sapply [07:33:32.456] | : . Finding call to be transpiled ... done [07:33:32.456] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.457] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.458] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.459] | : . | Transpiler function: [07:33:32.459] | : . | function (expr, options = NULL) [07:33:32.459] | : . | { [07:33:32.459] | : . | call <- make_call("future_sapply") [07:33:32.459] | : . | fcn <- eval(call) [07:33:32.459] | : . | expr[[1]] <- call [07:33:32.459] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.459] | : . | { [07:33:32.459] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.459] | : . | if (is.null(defaults_base)) { [07:33:32.459] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.459] | : . | } [07:33:32.459] | : . | if (length(defaults) > 0) { [07:33:32.459] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.459] | : . | } [07:33:32.459] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.459] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.459] | : . | defaults <- defaults[keep] [07:33:32.459] | : . | specified <- attr(options, "specified") [07:33:32.459] | : . | if (length(specified) > 0) { [07:33:32.459] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.459] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.459] | : . | names(options)) [07:33:32.459] | : . | } [07:33:32.459] | : . | specified <- sprintf("future.%s", specified) [07:33:32.459] | : . | names <- setdiff(names(defaults), specified) [07:33:32.459] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.459] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.459] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.459] | : . | options <- options[keep] [07:33:32.459] | : . | options [07:33:32.459] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.459] | : . | prefix = "fz:base::sapply"))) [07:33:32.459] | : . | expr <- as.call(parts) [07:33:32.459] | : . | expr [07:33:32.459] | : . | } [07:33:32.459] | : . | [07:33:32.461] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.461] | : get_transpiler() ... done [07:33:32.462] | : Transpile call expression ... [07:33:32.463] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:32.463] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:32.463] | : . future.conditions = character(0), future.scheduling = 1, [07:33:32.463] | : . future.label = "fz:base::sapply-%d") [07:33:32.465] | : Transpile call expression ... done [07:33:32.466] | : Evaluate transpiled call expression [07:33:32.524] | transpile() ... done [07:33:32.526] futurize() ... done character(0) [07:33:32.527] futurize() ... [07:33:32.528] | transpile() ... [07:33:32.529] | : get_transpiler() ... [07:33:32.530] | : . Finding call to be transpiled ... [07:33:32.531] | : . | descend_wrappers() ... [07:33:32.532] | : . | : Call: [07:33:32.532] | : . | : base::sapply [07:33:32.534] | : . | : parse_call() ... [07:33:32.535] | : . | : . Function: base::sapply(...) [07:33:32.536] | : . | : parse_call() ... done [07:33:32.536] | : . | descend_wrappers() ... done [07:33:32.537] | : . | parse_call() ... [07:33:32.538] | : . | : Function: base::sapply(...) [07:33:32.539] | : . | parse_call() ... done [07:33:32.540] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.541] | : . | base::sapply [07:33:32.542] | : . Finding call to be transpiled ... done [07:33:32.543] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.544] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.545] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.545] | : . | Transpiler function: [07:33:32.546] | : . | function (expr, options = NULL) [07:33:32.546] | : . | { [07:33:32.546] | : . | call <- make_call("future_sapply") [07:33:32.546] | : . | fcn <- eval(call) [07:33:32.546] | : . | expr[[1]] <- call [07:33:32.546] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.546] | : . | { [07:33:32.546] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.546] | : . | if (is.null(defaults_base)) { [07:33:32.546] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.546] | : . | } [07:33:32.546] | : . | if (length(defaults) > 0) { [07:33:32.546] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.546] | : . | } [07:33:32.546] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.546] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.546] | : . | defaults <- defaults[keep] [07:33:32.546] | : . | specified <- attr(options, "specified") [07:33:32.546] | : . | if (length(specified) > 0) { [07:33:32.546] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.546] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.546] | : . | names(options)) [07:33:32.546] | : . | } [07:33:32.546] | : . | specified <- sprintf("future.%s", specified) [07:33:32.546] | : . | names <- setdiff(names(defaults), specified) [07:33:32.546] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.546] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.546] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.546] | : . | options <- options[keep] [07:33:32.546] | : . | options [07:33:32.546] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.546] | : . | prefix = "fz:base::sapply"))) [07:33:32.546] | : . | expr <- as.call(parts) [07:33:32.546] | : . | expr [07:33:32.546] | : . | } [07:33:32.546] | : . | [07:33:32.548] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.549] | : get_transpiler() ... done [07:33:32.550] | : Transpile call expression ... [07:33:32.551] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:32.551] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:32.551] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:32.551] | : . future.label = "fz:base::sapply-%d") [07:33:32.553] | : Transpile call expression ... done [07:33:32.554] | : Evaluate transpiled call expression [07:33:32.689] | transpile() ... done [07:33:32.690] futurize() ... done Test with RNG: futurize(base::sapply(X = xs, FUN = FUN, simplify = FALSE), seed = TRUE, flavor = "built-in") [07:33:32.691] futurize() ... [07:33:32.692] | transpile() ... [07:33:32.693] | : get_transpiler() ... [07:33:32.693] | : . Finding call to be transpiled ... [07:33:32.694] | : . | descend_wrappers() ... [07:33:32.695] | : . | : Call: [07:33:32.695] | : . | : base::sapply [07:33:32.696] | : . | : parse_call() ... [07:33:32.697] | : . | : . Function: base::sapply(...) [07:33:32.698] | : . | : parse_call() ... done [07:33:32.698] | : . | descend_wrappers() ... done [07:33:32.699] | : . | parse_call() ... [07:33:32.699] | : . | : Function: base::sapply(...) [07:33:32.700] | : . | parse_call() ... done [07:33:32.701] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.701] | : . | base::sapply [07:33:32.702] | : . Finding call to be transpiled ... done [07:33:32.703] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.704] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.704] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.705] | : . | Transpiler function: [07:33:32.706] | : . | function (expr, options = NULL) [07:33:32.706] | : . | { [07:33:32.706] | : . | call <- make_call("future_sapply") [07:33:32.706] | : . | fcn <- eval(call) [07:33:32.706] | : . | expr[[1]] <- call [07:33:32.706] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.706] | : . | { [07:33:32.706] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.706] | : . | if (is.null(defaults_base)) { [07:33:32.706] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.706] | : . | } [07:33:32.706] | : . | if (length(defaults) > 0) { [07:33:32.706] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.706] | : . | } [07:33:32.706] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.706] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.706] | : . | defaults <- defaults[keep] [07:33:32.706] | : . | specified <- attr(options, "specified") [07:33:32.706] | : . | if (length(specified) > 0) { [07:33:32.706] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.706] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.706] | : . | names(options)) [07:33:32.706] | : . | } [07:33:32.706] | : . | specified <- sprintf("future.%s", specified) [07:33:32.706] | : . | names <- setdiff(names(defaults), specified) [07:33:32.706] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.706] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.706] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.706] | : . | options <- options[keep] [07:33:32.706] | : . | options [07:33:32.706] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.706] | : . | prefix = "fz:base::sapply"))) [07:33:32.706] | : . | expr <- as.call(parts) [07:33:32.706] | : . | expr [07:33:32.706] | : . | } [07:33:32.706] | : . | [07:33:32.707] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.708] | : get_transpiler() ... done [07:33:32.708] | : Transpile call expression ... [07:33:32.709] | : . future.apply::future_sapply(X = xs, FUN = FUN, simplify = FALSE, [07:33:32.709] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:32.709] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:32.711] | : Transpile call expression ... done [07:33:32.712] | : Evaluate transpiled call expression [07:33:32.769] | transpile() ... done [07:33:32.770] futurize() ... done === sapply ========================== base::sapply(X = xs, FUN = FUN, USE.NAMES = FALSE) --------------------------------- [07:33:32.772] futurize() ... [07:33:32.773] | transpile() ... [07:33:32.774] | : get_transpiler() ... [07:33:32.775] | : . Finding call to be transpiled ... [07:33:32.776] | : . | descend_wrappers() ... [07:33:32.776] | : . | : Call: [07:33:32.777] | : . | : base::sapply [07:33:32.778] | : . | : parse_call() ... [07:33:32.779] | : . | : . Function: base::sapply(...) [07:33:32.780] | : . | : parse_call() ... done [07:33:32.780] | : . | descend_wrappers() ... done [07:33:32.781] | : . | parse_call() ... [07:33:32.782] | : . | : Function: base::sapply(...) [07:33:32.782] | : . | parse_call() ... done [07:33:32.783] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.784] | : . | base::sapply [07:33:32.785] | : . Finding call to be transpiled ... done [07:33:32.785] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.786] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.787] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.788] | : . | Transpiler function: [07:33:32.788] | : . | function (expr, options = NULL) [07:33:32.788] | : . | { [07:33:32.788] | : . | call <- make_call("future_sapply") [07:33:32.788] | : . | fcn <- eval(call) [07:33:32.788] | : . | expr[[1]] <- call [07:33:32.788] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.788] | : . | { [07:33:32.788] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.788] | : . | if (is.null(defaults_base)) { [07:33:32.788] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.788] | : . | } [07:33:32.788] | : . | if (length(defaults) > 0) { [07:33:32.788] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.788] | : . | } [07:33:32.788] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.788] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.788] | : . | defaults <- defaults[keep] [07:33:32.788] | : . | specified <- attr(options, "specified") [07:33:32.788] | : . | if (length(specified) > 0) { [07:33:32.788] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.788] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.788] | : . | names(options)) [07:33:32.788] | : . | } [07:33:32.788] | : . | specified <- sprintf("future.%s", specified) [07:33:32.788] | : . | names <- setdiff(names(defaults), specified) [07:33:32.788] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.788] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.788] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.788] | : . | options <- options[keep] [07:33:32.788] | : . | options [07:33:32.788] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.788] | : . | prefix = "fz:base::sapply"))) [07:33:32.788] | : . | expr <- as.call(parts) [07:33:32.788] | : . | expr [07:33:32.788] | : . | } [07:33:32.788] | : . | [07:33:32.790] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.790] | : get_transpiler() ... done [07:33:32.791] | : Transpile call expression ... [07:33:32.792] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:32.792] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:32.792] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:32.794] | : Transpile call expression ... done [07:33:32.795] | : Evaluate transpiled call expression [07:33:32.848] | transpile() ... done [07:33:32.850] futurize() ... done Futures created: 2 [07:33:32.851] futurize() ... [07:33:32.852] | transpile() ... [07:33:32.853] | : get_transpiler() ... [07:33:32.854] | : . Finding call to be transpiled ... [07:33:32.855] | : . | descend_wrappers() ... [07:33:32.856] | : . | : Call: [07:33:32.856] | : . | : base::sapply [07:33:32.858] | : . | : parse_call() ... [07:33:32.858] | : . | : . Function: base::sapply(...) [07:33:32.859] | : . | : parse_call() ... done [07:33:32.860] | : . | descend_wrappers() ... done [07:33:32.861] | : . | parse_call() ... [07:33:32.862] | : . | : Function: base::sapply(...) [07:33:32.863] | : . | parse_call() ... done [07:33:32.864] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.865] | : . | base::sapply [07:33:32.866] | : . Finding call to be transpiled ... done [07:33:32.867] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.868] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.869] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.869] | : . | Transpiler function: [07:33:32.870] | : . | function (expr, options = NULL) [07:33:32.870] | : . | { [07:33:32.870] | : . | call <- make_call("future_sapply") [07:33:32.870] | : . | fcn <- eval(call) [07:33:32.870] | : . | expr[[1]] <- call [07:33:32.870] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.870] | : . | { [07:33:32.870] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.870] | : . | if (is.null(defaults_base)) { [07:33:32.870] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.870] | : . | } [07:33:32.870] | : . | if (length(defaults) > 0) { [07:33:32.870] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.870] | : . | } [07:33:32.870] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.870] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.870] | : . | defaults <- defaults[keep] [07:33:32.870] | : . | specified <- attr(options, "specified") [07:33:32.870] | : . | if (length(specified) > 0) { [07:33:32.870] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.870] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.870] | : . | names(options)) [07:33:32.870] | : . | } [07:33:32.870] | : . | specified <- sprintf("future.%s", specified) [07:33:32.870] | : . | names <- setdiff(names(defaults), specified) [07:33:32.870] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.870] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.870] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.870] | : . | options <- options[keep] [07:33:32.870] | : . | options [07:33:32.870] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.870] | : . | prefix = "fz:base::sapply"))) [07:33:32.870] | : . | expr <- as.call(parts) [07:33:32.870] | : . | expr [07:33:32.870] | : . | } [07:33:32.870] | : . | [07:33:32.872] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.873] | : get_transpiler() ... done [07:33:32.874] | : Transpile call expression ... [07:33:32.875] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:32.875] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:32.875] | : . future.conditions = character(0), future.scheduling = 1, [07:33:32.875] | : . future.label = "fz:base::sapply-%d") [07:33:32.877] | : Transpile call expression ... done [07:33:32.878] | : Evaluate transpiled call expression [07:33:32.937] | transpile() ... done [07:33:32.938] futurize() ... done character(0) [07:33:32.939] futurize() ... [07:33:32.940] | transpile() ... [07:33:32.941] | : get_transpiler() ... [07:33:32.942] | : . Finding call to be transpiled ... [07:33:32.943] | : . | descend_wrappers() ... [07:33:32.944] | : . | : Call: [07:33:32.945] | : . | : base::sapply [07:33:32.946] | : . | : parse_call() ... [07:33:32.947] | : . | : . Function: base::sapply(...) [07:33:32.947] | : . | : parse_call() ... done [07:33:32.948] | : . | descend_wrappers() ... done [07:33:32.949] | : . | parse_call() ... [07:33:32.950] | : . | : Function: base::sapply(...) [07:33:32.951] | : . | parse_call() ... done [07:33:32.952] | : . | Position of call to be transpiled in expression: c(1) [07:33:32.952] | : . | base::sapply [07:33:32.954] | : . Finding call to be transpiled ... done [07:33:32.954] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:32.955] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:32.956] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:32.957] | : . | Transpiler function: [07:33:32.958] | : . | function (expr, options = NULL) [07:33:32.958] | : . | { [07:33:32.958] | : . | call <- make_call("future_sapply") [07:33:32.958] | : . | fcn <- eval(call) [07:33:32.958] | : . | expr[[1]] <- call [07:33:32.958] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:32.958] | : . | { [07:33:32.958] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:32.958] | : . | if (is.null(defaults_base)) { [07:33:32.958] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:32.958] | : . | } [07:33:32.958] | : . | if (length(defaults) > 0) { [07:33:32.958] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:32.958] | : . | } [07:33:32.958] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:32.958] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:32.958] | : . | defaults <- defaults[keep] [07:33:32.958] | : . | specified <- attr(options, "specified") [07:33:32.958] | : . | if (length(specified) > 0) { [07:33:32.958] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:32.958] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:32.958] | : . | names(options)) [07:33:32.958] | : . | } [07:33:32.958] | : . | specified <- sprintf("future.%s", specified) [07:33:32.958] | : . | names <- setdiff(names(defaults), specified) [07:33:32.958] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:32.958] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:32.958] | : . | keep <- intersect(names(options), names(defaults)) [07:33:32.958] | : . | options <- options[keep] [07:33:32.958] | : . | options [07:33:32.958] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:32.958] | : . | prefix = "fz:base::sapply"))) [07:33:32.958] | : . | expr <- as.call(parts) [07:33:32.958] | : . | expr [07:33:32.958] | : . | } [07:33:32.958] | : . | [07:33:32.960] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:32.960] | : get_transpiler() ... done [07:33:32.961] | : Transpile call expression ... [07:33:32.963] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:32.963] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:32.963] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:32.963] | : . future.label = "fz:base::sapply-%d") [07:33:32.965] | : Transpile call expression ... done [07:33:32.966] | : Evaluate transpiled call expression [07:33:33.112] | transpile() ... done [07:33:33.113] futurize() ... done Test with RNG: futurize(base::sapply(X = xs, FUN = FUN, USE.NAMES = FALSE), seed = TRUE, flavor = "built-in") [07:33:33.114] futurize() ... [07:33:33.115] | transpile() ... [07:33:33.116] | : get_transpiler() ... [07:33:33.117] | : . Finding call to be transpiled ... [07:33:33.118] | : . | descend_wrappers() ... [07:33:33.118] | : . | : Call: [07:33:33.119] | : . | : base::sapply [07:33:33.120] | : . | : parse_call() ... [07:33:33.121] | : . | : . Function: base::sapply(...) [07:33:33.122] | : . | : parse_call() ... done [07:33:33.123] | : . | descend_wrappers() ... done [07:33:33.124] | : . | parse_call() ... [07:33:33.124] | : . | : Function: base::sapply(...) [07:33:33.125] | : . | parse_call() ... done [07:33:33.126] | : . | Position of call to be transpiled in expression: c(1) [07:33:33.126] | : . | base::sapply [07:33:33.127] | : . Finding call to be transpiled ... done [07:33:33.128] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... [07:33:33.129] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:33.130] | : . | Transpiler description: base::sapply() -> future.apply::future_sapply() [07:33:33.130] | : . | Transpiler function: [07:33:33.131] | : . | function (expr, options = NULL) [07:33:33.131] | : . | { [07:33:33.131] | : . | call <- make_call("future_sapply") [07:33:33.131] | : . | fcn <- eval(call) [07:33:33.131] | : . | expr[[1]] <- call [07:33:33.131] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:33.131] | : . | { [07:33:33.131] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:33.131] | : . | if (is.null(defaults_base)) { [07:33:33.131] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:33.131] | : . | } [07:33:33.131] | : . | if (length(defaults) > 0) { [07:33:33.131] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:33.131] | : . | } [07:33:33.131] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:33.131] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:33.131] | : . | defaults <- defaults[keep] [07:33:33.131] | : . | specified <- attr(options, "specified") [07:33:33.131] | : . | if (length(specified) > 0) { [07:33:33.131] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:33.131] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:33.131] | : . | names(options)) [07:33:33.131] | : . | } [07:33:33.131] | : . | specified <- sprintf("future.%s", specified) [07:33:33.131] | : . | names <- setdiff(names(defaults), specified) [07:33:33.131] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:33.131] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:33.131] | : . | keep <- intersect(names(options), names(defaults)) [07:33:33.131] | : . | options <- options[keep] [07:33:33.131] | : . | options [07:33:33.131] | : . | })(options, fcn, defaults = list(future.label = "fz:base::sapply-%d", [07:33:33.131] | : . | prefix = "fz:base::sapply"))) [07:33:33.131] | : . | expr <- as.call(parts) [07:33:33.131] | : . | expr [07:33:33.131] | : . | } [07:33:33.131] | : . | [07:33:33.133] | : . Locating 'futurize::add-on' transpiler for base::sapply() of class 'function' ... done [07:33:33.134] | : get_transpiler() ... done [07:33:33.135] | : Transpile call expression ... [07:33:33.136] | : . future.apply::future_sapply(X = xs, FUN = FUN, USE.NAMES = FALSE, [07:33:33.136] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:33.136] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::sapply-%d") [07:33:33.138] | : Transpile call expression ... done [07:33:33.139] | : Evaluate transpiled call expression [07:33:33.203] | transpile() ... done [07:33:33.204] futurize() ... done === vapply ========================== base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN) --------------------------------- [07:33:33.206] futurize() ... [07:33:33.206] | transpile() ... [07:33:33.207] | : get_transpiler() ... [07:33:33.208] | : . Finding call to be transpiled ... [07:33:33.209] | : . | descend_wrappers() ... [07:33:33.210] | : . | : Call: [07:33:33.210] | : . | : base::vapply [07:33:33.211] | : . | : parse_call() ... [07:33:33.212] | : . | : . Function: base::vapply(...) [07:33:33.213] | : . | : parse_call() ... done [07:33:33.214] | : . | descend_wrappers() ... done [07:33:33.214] | : . | parse_call() ... [07:33:33.215] | : . | : Function: base::vapply(...) [07:33:33.216] | : . | parse_call() ... done [07:33:33.217] | : . | Position of call to be transpiled in expression: c(1) [07:33:33.217] | : . | base::vapply [07:33:33.218] | : . Finding call to be transpiled ... done [07:33:33.219] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:33.219] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:33.220] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:33.220] | : . | Transpiler function: [07:33:33.221] | : . | function (expr, options = NULL) [07:33:33.221] | : . | { [07:33:33.221] | : . | call <- make_call("future_vapply") [07:33:33.221] | : . | fcn <- eval(call) [07:33:33.221] | : . | expr[[1]] <- call [07:33:33.221] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:33.221] | : . | { [07:33:33.221] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:33.221] | : . | if (is.null(defaults_base)) { [07:33:33.221] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:33.221] | : . | } [07:33:33.221] | : . | if (length(defaults) > 0) { [07:33:33.221] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:33.221] | : . | } [07:33:33.221] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:33.221] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:33.221] | : . | defaults <- defaults[keep] [07:33:33.221] | : . | specified <- attr(options, "specified") [07:33:33.221] | : . | if (length(specified) > 0) { [07:33:33.221] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:33.221] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:33.221] | : . | names(options)) [07:33:33.221] | : . | } [07:33:33.221] | : . | specified <- sprintf("future.%s", specified) [07:33:33.221] | : . | names <- setdiff(names(defaults), specified) [07:33:33.221] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:33.221] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:33.221] | : . | keep <- intersect(names(options), names(defaults)) [07:33:33.221] | : . | options <- options[keep] [07:33:33.221] | : . | options [07:33:33.221] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:33.221] | : . | prefix = "fz:base::vapply"))) [07:33:33.221] | : . | expr <- as.call(parts) [07:33:33.221] | : . | expr [07:33:33.221] | : . | } [07:33:33.221] | : . | [07:33:33.222] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:33.223] | : get_transpiler() ... done [07:33:33.223] | : Transpile call expression ... [07:33:33.224] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:33.224] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:33.224] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::vapply-%d") [07:33:33.226] | : Transpile call expression ... done [07:33:33.227] | : Evaluate transpiled call expression [07:33:33.327] | transpile() ... done [07:33:33.329] futurize() ... done Futures created: 2 [07:33:33.330] futurize() ... [07:33:33.331] | transpile() ... [07:33:33.332] | : get_transpiler() ... [07:33:33.333] | : . Finding call to be transpiled ... [07:33:33.334] | : . | descend_wrappers() ... [07:33:33.335] | : . | : Call: [07:33:33.336] | : . | : base::vapply [07:33:33.337] | : . | : parse_call() ... [07:33:33.338] | : . | : . Function: base::vapply(...) [07:33:33.339] | : . | : parse_call() ... done [07:33:33.340] | : . | descend_wrappers() ... done [07:33:33.341] | : . | parse_call() ... [07:33:33.342] | : . | : Function: base::vapply(...) [07:33:33.343] | : . | parse_call() ... done [07:33:33.344] | : . | Position of call to be transpiled in expression: c(1) [07:33:33.345] | : . | base::vapply [07:33:33.346] | : . Finding call to be transpiled ... done [07:33:33.347] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:33.348] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:33.349] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:33.350] | : . | Transpiler function: [07:33:33.351] | : . | function (expr, options = NULL) [07:33:33.351] | : . | { [07:33:33.351] | : . | call <- make_call("future_vapply") [07:33:33.351] | : . | fcn <- eval(call) [07:33:33.351] | : . | expr[[1]] <- call [07:33:33.351] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:33.351] | : . | { [07:33:33.351] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:33.351] | : . | if (is.null(defaults_base)) { [07:33:33.351] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:33.351] | : . | } [07:33:33.351] | : . | if (length(defaults) > 0) { [07:33:33.351] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:33.351] | : . | } [07:33:33.351] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:33.351] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:33.351] | : . | defaults <- defaults[keep] [07:33:33.351] | : . | specified <- attr(options, "specified") [07:33:33.351] | : . | if (length(specified) > 0) { [07:33:33.351] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:33.351] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:33.351] | : . | names(options)) [07:33:33.351] | : . | } [07:33:33.351] | : . | specified <- sprintf("future.%s", specified) [07:33:33.351] | : . | names <- setdiff(names(defaults), specified) [07:33:33.351] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:33.351] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:33.351] | : . | keep <- intersect(names(options), names(defaults)) [07:33:33.351] | : . | options <- options[keep] [07:33:33.351] | : . | options [07:33:33.351] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:33.351] | : . | prefix = "fz:base::vapply"))) [07:33:33.351] | : . | expr <- as.call(parts) [07:33:33.351] | : . | expr [07:33:33.351] | : . | } [07:33:33.351] | : . | [07:33:33.353] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:33.354] | : get_transpiler() ... done [07:33:33.355] | : Transpile call expression ... [07:33:33.357] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:33.357] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:33.357] | : . future.conditions = character(0), future.scheduling = 1, [07:33:33.357] | : . future.label = "fz:base::vapply-%d") [07:33:33.359] | : Transpile call expression ... done [07:33:33.360] | : Evaluate transpiled call expression [07:33:33.476] | transpile() ... done [07:33:33.477] futurize() ... done character(0) [07:33:33.479] futurize() ... [07:33:33.479] | transpile() ... [07:33:33.480] | : get_transpiler() ... [07:33:33.481] | : . Finding call to be transpiled ... [07:33:33.482] | : . | descend_wrappers() ... [07:33:33.483] | : . | : Call: [07:33:33.483] | : . | : base::vapply [07:33:33.484] | : . | : parse_call() ... [07:33:33.485] | : . | : . Function: base::vapply(...) [07:33:33.486] | : . | : parse_call() ... done [07:33:33.487] | : . | descend_wrappers() ... done [07:33:33.487] | : . | parse_call() ... [07:33:33.488] | : . | : Function: base::vapply(...) [07:33:33.489] | : . | parse_call() ... done [07:33:33.490] | : . | Position of call to be transpiled in expression: c(1) [07:33:33.491] | : . | base::vapply [07:33:33.492] | : . Finding call to be transpiled ... done [07:33:33.492] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:33.493] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:33.494] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:33.495] | : . | Transpiler function: [07:33:33.496] | : . | function (expr, options = NULL) [07:33:33.496] | : . | { [07:33:33.496] | : . | call <- make_call("future_vapply") [07:33:33.496] | : . | fcn <- eval(call) [07:33:33.496] | : . | expr[[1]] <- call [07:33:33.496] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:33.496] | : . | { [07:33:33.496] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:33.496] | : . | if (is.null(defaults_base)) { [07:33:33.496] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:33.496] | : . | } [07:33:33.496] | : . | if (length(defaults) > 0) { [07:33:33.496] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:33.496] | : . | } [07:33:33.496] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:33.496] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:33.496] | : . | defaults <- defaults[keep] [07:33:33.496] | : . | specified <- attr(options, "specified") [07:33:33.496] | : . | if (length(specified) > 0) { [07:33:33.496] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:33.496] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:33.496] | : . | names(options)) [07:33:33.496] | : . | } [07:33:33.496] | : . | specified <- sprintf("future.%s", specified) [07:33:33.496] | : . | names <- setdiff(names(defaults), specified) [07:33:33.496] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:33.496] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:33.496] | : . | keep <- intersect(names(options), names(defaults)) [07:33:33.496] | : . | options <- options[keep] [07:33:33.496] | : . | options [07:33:33.496] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:33.496] | : . | prefix = "fz:base::vapply"))) [07:33:33.496] | : . | expr <- as.call(parts) [07:33:33.496] | : . | expr [07:33:33.496] | : . | } [07:33:33.496] | : . | [07:33:33.497] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:33.498] | : get_transpiler() ... done [07:33:33.499] | : Transpile call expression ... [07:33:33.500] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:33.500] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:33.500] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:33.500] | : . future.label = "fz:base::vapply-%d") [07:33:33.502] | : Transpile call expression ... done [07:33:33.503] | : Evaluate transpiled call expression [07:33:33.676] | transpile() ... done [07:33:33.677] futurize() ... done Test with RNG: futurize(base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN), seed = TRUE, flavor = "built-in") [07:33:33.679] futurize() ... [07:33:33.680] | transpile() ... [07:33:33.681] | : get_transpiler() ... [07:33:33.681] | : . Finding call to be transpiled ... [07:33:33.682] | : . | descend_wrappers() ... [07:33:33.682] | : . | : Call: [07:33:33.683] | : . | : base::vapply [07:33:33.684] | : . | : parse_call() ... [07:33:33.684] | : . | : . Function: base::vapply(...) [07:33:33.685] | : . | : parse_call() ... done [07:33:33.685] | : . | descend_wrappers() ... done [07:33:33.686] | : . | parse_call() ... [07:33:33.686] | : . | : Function: base::vapply(...) [07:33:33.687] | : . | parse_call() ... done [07:33:33.688] | : . | Position of call to be transpiled in expression: c(1) [07:33:33.689] | : . | base::vapply [07:33:33.690] | : . Finding call to be transpiled ... done [07:33:33.691] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:33.692] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:33.692] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:33.693] | : . | Transpiler function: [07:33:33.694] | : . | function (expr, options = NULL) [07:33:33.694] | : . | { [07:33:33.694] | : . | call <- make_call("future_vapply") [07:33:33.694] | : . | fcn <- eval(call) [07:33:33.694] | : . | expr[[1]] <- call [07:33:33.694] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:33.694] | : . | { [07:33:33.694] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:33.694] | : . | if (is.null(defaults_base)) { [07:33:33.694] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:33.694] | : . | } [07:33:33.694] | : . | if (length(defaults) > 0) { [07:33:33.694] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:33.694] | : . | } [07:33:33.694] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:33.694] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:33.694] | : . | defaults <- defaults[keep] [07:33:33.694] | : . | specified <- attr(options, "specified") [07:33:33.694] | : . | if (length(specified) > 0) { [07:33:33.694] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:33.694] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:33.694] | : . | names(options)) [07:33:33.694] | : . | } [07:33:33.694] | : . | specified <- sprintf("future.%s", specified) [07:33:33.694] | : . | names <- setdiff(names(defaults), specified) [07:33:33.694] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:33.694] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:33.694] | : . | keep <- intersect(names(options), names(defaults)) [07:33:33.694] | : . | options <- options[keep] [07:33:33.694] | : . | options [07:33:33.694] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:33.694] | : . | prefix = "fz:base::vapply"))) [07:33:33.694] | : . | expr <- as.call(parts) [07:33:33.694] | : . | expr [07:33:33.694] | : . | } [07:33:33.694] | : . | [07:33:33.696] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:33.697] | : get_transpiler() ... done [07:33:33.698] | : Transpile call expression ... [07:33:33.699] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:33.699] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:33.699] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::vapply-%d") [07:33:33.701] | : Transpile call expression ... done [07:33:33.702] | : Evaluate transpiled call expression [07:33:33.827] | transpile() ... done [07:33:33.828] futurize() ... done === vapply ========================== base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, USE.NAMES = FALSE) --------------------------------- [07:33:33.830] futurize() ... [07:33:33.831] | transpile() ... [07:33:33.832] | : get_transpiler() ... [07:33:33.833] | : . Finding call to be transpiled ... [07:33:33.834] | : . | descend_wrappers() ... [07:33:33.835] | : . | : Call: [07:33:33.836] | : . | : base::vapply [07:33:33.837] | : . | : parse_call() ... [07:33:33.838] | : . | : . Function: base::vapply(...) [07:33:33.839] | : . | : parse_call() ... done [07:33:33.840] | : . | descend_wrappers() ... done [07:33:33.841] | : . | parse_call() ... [07:33:33.842] | : . | : Function: base::vapply(...) [07:33:33.843] | : . | parse_call() ... done [07:33:33.843] | : . | Position of call to be transpiled in expression: c(1) [07:33:33.844] | : . | base::vapply [07:33:33.845] | : . Finding call to be transpiled ... done [07:33:33.846] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:33.847] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:33.848] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:33.849] | : . | Transpiler function: [07:33:33.850] | : . | function (expr, options = NULL) [07:33:33.850] | : . | { [07:33:33.850] | : . | call <- make_call("future_vapply") [07:33:33.850] | : . | fcn <- eval(call) [07:33:33.850] | : . | expr[[1]] <- call [07:33:33.850] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:33.850] | : . | { [07:33:33.850] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:33.850] | : . | if (is.null(defaults_base)) { [07:33:33.850] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:33.850] | : . | } [07:33:33.850] | : . | if (length(defaults) > 0) { [07:33:33.850] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:33.850] | : . | } [07:33:33.850] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:33.850] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:33.850] | : . | defaults <- defaults[keep] [07:33:33.850] | : . | specified <- attr(options, "specified") [07:33:33.850] | : . | if (length(specified) > 0) { [07:33:33.850] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:33.850] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:33.850] | : . | names(options)) [07:33:33.850] | : . | } [07:33:33.850] | : . | specified <- sprintf("future.%s", specified) [07:33:33.850] | : . | names <- setdiff(names(defaults), specified) [07:33:33.850] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:33.850] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:33.850] | : . | keep <- intersect(names(options), names(defaults)) [07:33:33.850] | : . | options <- options[keep] [07:33:33.850] | : . | options [07:33:33.850] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:33.850] | : . | prefix = "fz:base::vapply"))) [07:33:33.850] | : . | expr <- as.call(parts) [07:33:33.850] | : . | expr [07:33:33.850] | : . | } [07:33:33.850] | : . | [07:33:33.852] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:33.853] | : get_transpiler() ... done [07:33:33.854] | : Transpile call expression ... [07:33:33.855] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:33.855] | : . USE.NAMES = FALSE, future.seed = FALSE, future.globals = TRUE, [07:33:33.855] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:33.855] | : . future.label = "fz:base::vapply-%d") [07:33:33.857] | : Transpile call expression ... done [07:33:33.858] | : Evaluate transpiled call expression [07:33:33.973] | transpile() ... done [07:33:33.974] futurize() ... done Futures created: 2 [07:33:33.975] futurize() ... [07:33:33.976] | transpile() ... [07:33:33.977] | : get_transpiler() ... [07:33:33.978] | : . Finding call to be transpiled ... [07:33:33.978] | : . | descend_wrappers() ... [07:33:33.979] | : . | : Call: [07:33:33.980] | : . | : base::vapply [07:33:33.981] | : . | : parse_call() ... [07:33:33.982] | : . | : . Function: base::vapply(...) [07:33:33.982] | : . | : parse_call() ... done [07:33:33.983] | : . | descend_wrappers() ... done [07:33:33.984] | : . | parse_call() ... [07:33:33.985] | : . | : Function: base::vapply(...) [07:33:33.986] | : . | parse_call() ... done [07:33:33.986] | : . | Position of call to be transpiled in expression: c(1) [07:33:33.987] | : . | base::vapply [07:33:33.988] | : . Finding call to be transpiled ... done [07:33:33.989] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:33.990] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:33.990] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:33.991] | : . | Transpiler function: [07:33:33.992] | : . | function (expr, options = NULL) [07:33:33.992] | : . | { [07:33:33.992] | : . | call <- make_call("future_vapply") [07:33:33.992] | : . | fcn <- eval(call) [07:33:33.992] | : . | expr[[1]] <- call [07:33:33.992] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:33.992] | : . | { [07:33:33.992] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:33.992] | : . | if (is.null(defaults_base)) { [07:33:33.992] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:33.992] | : . | } [07:33:33.992] | : . | if (length(defaults) > 0) { [07:33:33.992] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:33.992] | : . | } [07:33:33.992] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:33.992] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:33.992] | : . | defaults <- defaults[keep] [07:33:33.992] | : . | specified <- attr(options, "specified") [07:33:33.992] | : . | if (length(specified) > 0) { [07:33:33.992] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:33.992] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:33.992] | : . | names(options)) [07:33:33.992] | : . | } [07:33:33.992] | : . | specified <- sprintf("future.%s", specified) [07:33:33.992] | : . | names <- setdiff(names(defaults), specified) [07:33:33.992] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:33.992] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:33.992] | : . | keep <- intersect(names(options), names(defaults)) [07:33:33.992] | : . | options <- options[keep] [07:33:33.992] | : . | options [07:33:33.992] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:33.992] | : . | prefix = "fz:base::vapply"))) [07:33:33.992] | : . | expr <- as.call(parts) [07:33:33.992] | : . | expr [07:33:33.992] | : . | } [07:33:33.992] | : . | [07:33:33.993] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:33.994] | : get_transpiler() ... done [07:33:33.995] | : Transpile call expression ... [07:33:33.996] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:33.996] | : . USE.NAMES = FALSE, future.seed = FALSE, future.globals = TRUE, [07:33:33.996] | : . future.stdout = FALSE, future.conditions = character(0), [07:33:33.996] | : . future.scheduling = 1, future.label = "fz:base::vapply-%d") [07:33:33.998] | : Transpile call expression ... done [07:33:33.999] | : Evaluate transpiled call expression [07:33:34.096] | transpile() ... done [07:33:34.097] futurize() ... done character(0) [07:33:34.098] futurize() ... [07:33:34.098] | transpile() ... [07:33:34.099] | : get_transpiler() ... [07:33:34.100] | : . Finding call to be transpiled ... [07:33:34.101] | : . | descend_wrappers() ... [07:33:34.101] | : . | : Call: [07:33:34.102] | : . | : base::vapply [07:33:34.103] | : . | : parse_call() ... [07:33:34.103] | : . | : . Function: base::vapply(...) [07:33:34.104] | : . | : parse_call() ... done [07:33:34.105] | : . | descend_wrappers() ... done [07:33:34.105] | : . | parse_call() ... [07:33:34.106] | : . | : Function: base::vapply(...) [07:33:34.107] | : . | parse_call() ... done [07:33:34.108] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.108] | : . | base::vapply [07:33:34.109] | : . Finding call to be transpiled ... done [07:33:34.110] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:34.110] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.111] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:34.112] | : . | Transpiler function: [07:33:34.112] | : . | function (expr, options = NULL) [07:33:34.112] | : . | { [07:33:34.112] | : . | call <- make_call("future_vapply") [07:33:34.112] | : . | fcn <- eval(call) [07:33:34.112] | : . | expr[[1]] <- call [07:33:34.112] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.112] | : . | { [07:33:34.112] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.112] | : . | if (is.null(defaults_base)) { [07:33:34.112] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.112] | : . | } [07:33:34.112] | : . | if (length(defaults) > 0) { [07:33:34.112] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.112] | : . | } [07:33:34.112] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.112] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.112] | : . | defaults <- defaults[keep] [07:33:34.112] | : . | specified <- attr(options, "specified") [07:33:34.112] | : . | if (length(specified) > 0) { [07:33:34.112] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.112] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.112] | : . | names(options)) [07:33:34.112] | : . | } [07:33:34.112] | : . | specified <- sprintf("future.%s", specified) [07:33:34.112] | : . | names <- setdiff(names(defaults), specified) [07:33:34.112] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.112] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.112] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.112] | : . | options <- options[keep] [07:33:34.112] | : . | options [07:33:34.112] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:34.112] | : . | prefix = "fz:base::vapply"))) [07:33:34.112] | : . | expr <- as.call(parts) [07:33:34.112] | : . | expr [07:33:34.112] | : . | } [07:33:34.112] | : . | [07:33:34.114] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:34.115] | : get_transpiler() ... done [07:33:34.115] | : Transpile call expression ... [07:33:34.116] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:34.116] | : . USE.NAMES = FALSE, future.seed = FALSE, future.globals = TRUE, [07:33:34.116] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:34.116] | : . future.chunk.size = 1L, future.label = "fz:base::vapply-%d") [07:33:34.118] | : Transpile call expression ... done [07:33:34.119] | : Evaluate transpiled call expression [07:33:34.283] | transpile() ... done [07:33:34.284] futurize() ... done Test with RNG: futurize(base::vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, USE.NAMES = FALSE), seed = TRUE, flavor = "built-in") [07:33:34.285] futurize() ... [07:33:34.286] | transpile() ... [07:33:34.286] | : get_transpiler() ... [07:33:34.287] | : . Finding call to be transpiled ... [07:33:34.288] | : . | descend_wrappers() ... [07:33:34.288] | : . | : Call: [07:33:34.289] | : . | : base::vapply [07:33:34.290] | : . | : parse_call() ... [07:33:34.290] | : . | : . Function: base::vapply(...) [07:33:34.291] | : . | : parse_call() ... done [07:33:34.292] | : . | descend_wrappers() ... done [07:33:34.292] | : . | parse_call() ... [07:33:34.293] | : . | : Function: base::vapply(...) [07:33:34.294] | : . | parse_call() ... done [07:33:34.294] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.295] | : . | base::vapply [07:33:34.296] | : . Finding call to be transpiled ... done [07:33:34.296] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... [07:33:34.297] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.298] | : . | Transpiler description: base::vapply() -> future.apply::future_vapply() [07:33:34.298] | : . | Transpiler function: [07:33:34.299] | : . | function (expr, options = NULL) [07:33:34.299] | : . | { [07:33:34.299] | : . | call <- make_call("future_vapply") [07:33:34.299] | : . | fcn <- eval(call) [07:33:34.299] | : . | expr[[1]] <- call [07:33:34.299] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.299] | : . | { [07:33:34.299] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.299] | : . | if (is.null(defaults_base)) { [07:33:34.299] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.299] | : . | } [07:33:34.299] | : . | if (length(defaults) > 0) { [07:33:34.299] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.299] | : . | } [07:33:34.299] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.299] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.299] | : . | defaults <- defaults[keep] [07:33:34.299] | : . | specified <- attr(options, "specified") [07:33:34.299] | : . | if (length(specified) > 0) { [07:33:34.299] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.299] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.299] | : . | names(options)) [07:33:34.299] | : . | } [07:33:34.299] | : . | specified <- sprintf("future.%s", specified) [07:33:34.299] | : . | names <- setdiff(names(defaults), specified) [07:33:34.299] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.299] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.299] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.299] | : . | options <- options[keep] [07:33:34.299] | : . | options [07:33:34.299] | : . | })(options, fcn, defaults = list(future.label = "fz:base::vapply-%d", [07:33:34.299] | : . | prefix = "fz:base::vapply"))) [07:33:34.299] | : . | expr <- as.call(parts) [07:33:34.299] | : . | expr [07:33:34.299] | : . | } [07:33:34.299] | : . | [07:33:34.300] | : . Locating 'futurize::add-on' transpiler for base::vapply() of class 'function' ... done [07:33:34.301] | : get_transpiler() ... done [07:33:34.302] | : Transpile call expression ... [07:33:34.303] | : . future.apply::future_vapply(X = xs, FUN.VALUE = NA_real_, FUN = FUN, [07:33:34.303] | : . USE.NAMES = FALSE, future.seed = TRUE, future.globals = TRUE, [07:33:34.303] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:33:34.303] | : . future.label = "fz:base::vapply-%d") [07:33:34.304] | : Transpile call expression ... done [07:33:34.305] | : Evaluate transpiled call expression [07:33:34.392] | transpile() ... done [07:33:34.393] futurize() ... done === eapply ========================== base::eapply(env = es, FUN = FUN) --------------------------------- [07:33:34.394] futurize() ... [07:33:34.395] | transpile() ... [07:33:34.396] | : get_transpiler() ... [07:33:34.396] | : . Finding call to be transpiled ... [07:33:34.397] | : . | descend_wrappers() ... [07:33:34.398] | : . | : Call: [07:33:34.399] | : . | : base::eapply [07:33:34.399] | : . | : parse_call() ... [07:33:34.400] | : . | : . Function: base::eapply(...) [07:33:34.400] | : . | : parse_call() ... done [07:33:34.401] | : . | descend_wrappers() ... done [07:33:34.401] | : . | parse_call() ... [07:33:34.402] | : . | : Function: base::eapply(...) [07:33:34.402] | : . | parse_call() ... done [07:33:34.402] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.403] | : . | base::eapply [07:33:34.403] | : . Finding call to be transpiled ... done [07:33:34.404] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:34.404] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.405] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:34.406] | : . | Transpiler function: [07:33:34.406] | : . | function (expr, options = NULL) [07:33:34.406] | : . | { [07:33:34.406] | : . | call <- make_call("future_eapply") [07:33:34.406] | : . | fcn <- eval(call) [07:33:34.406] | : . | expr[[1]] <- call [07:33:34.406] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.406] | : . | { [07:33:34.406] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.406] | : . | if (is.null(defaults_base)) { [07:33:34.406] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.406] | : . | } [07:33:34.406] | : . | if (length(defaults) > 0) { [07:33:34.406] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.406] | : . | } [07:33:34.406] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.406] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.406] | : . | defaults <- defaults[keep] [07:33:34.406] | : . | specified <- attr(options, "specified") [07:33:34.406] | : . | if (length(specified) > 0) { [07:33:34.406] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.406] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.406] | : . | names(options)) [07:33:34.406] | : . | } [07:33:34.406] | : . | specified <- sprintf("future.%s", specified) [07:33:34.406] | : . | names <- setdiff(names(defaults), specified) [07:33:34.406] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.406] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.406] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.406] | : . | options <- options[keep] [07:33:34.406] | : . | options [07:33:34.406] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:34.406] | : . | prefix = "fz:base::eapply"))) [07:33:34.406] | : . | expr <- as.call(parts) [07:33:34.406] | : . | expr [07:33:34.406] | : . | } [07:33:34.406] | : . | [07:33:34.408] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:34.408] | : get_transpiler() ... done [07:33:34.409] | : Transpile call expression ... [07:33:34.410] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = FALSE, [07:33:34.410] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:34.410] | : . future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:34.411] | : Transpile call expression ... done [07:33:34.412] | : Evaluate transpiled call expression [07:33:34.462] | transpile() ... done [07:33:34.463] futurize() ... done Futures created: 2 [07:33:34.464] futurize() ... [07:33:34.465] | transpile() ... [07:33:34.465] | : get_transpiler() ... [07:33:34.466] | : . Finding call to be transpiled ... [07:33:34.467] | : . | descend_wrappers() ... [07:33:34.467] | : . | : Call: [07:33:34.468] | : . | : base::eapply [07:33:34.469] | : . | : parse_call() ... [07:33:34.469] | : . | : . Function: base::eapply(...) [07:33:34.470] | : . | : parse_call() ... done [07:33:34.470] | : . | descend_wrappers() ... done [07:33:34.471] | : . | parse_call() ... [07:33:34.472] | : . | : Function: base::eapply(...) [07:33:34.472] | : . | parse_call() ... done [07:33:34.473] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.474] | : . | base::eapply [07:33:34.475] | : . Finding call to be transpiled ... done [07:33:34.476] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:34.477] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.478] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:34.478] | : . | Transpiler function: [07:33:34.479] | : . | function (expr, options = NULL) [07:33:34.479] | : . | { [07:33:34.479] | : . | call <- make_call("future_eapply") [07:33:34.479] | : . | fcn <- eval(call) [07:33:34.479] | : . | expr[[1]] <- call [07:33:34.479] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.479] | : . | { [07:33:34.479] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.479] | : . | if (is.null(defaults_base)) { [07:33:34.479] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.479] | : . | } [07:33:34.479] | : . | if (length(defaults) > 0) { [07:33:34.479] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.479] | : . | } [07:33:34.479] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.479] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.479] | : . | defaults <- defaults[keep] [07:33:34.479] | : . | specified <- attr(options, "specified") [07:33:34.479] | : . | if (length(specified) > 0) { [07:33:34.479] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.479] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.479] | : . | names(options)) [07:33:34.479] | : . | } [07:33:34.479] | : . | specified <- sprintf("future.%s", specified) [07:33:34.479] | : . | names <- setdiff(names(defaults), specified) [07:33:34.479] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.479] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.479] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.479] | : . | options <- options[keep] [07:33:34.479] | : . | options [07:33:34.479] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:34.479] | : . | prefix = "fz:base::eapply"))) [07:33:34.479] | : . | expr <- as.call(parts) [07:33:34.479] | : . | expr [07:33:34.479] | : . | } [07:33:34.479] | : . | [07:33:34.481] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:34.482] | : get_transpiler() ... done [07:33:34.482] | : Transpile call expression ... [07:33:34.483] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = FALSE, [07:33:34.483] | : . future.globals = TRUE, future.stdout = FALSE, future.conditions = character(0), [07:33:34.483] | : . future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:34.485] | : Transpile call expression ... done [07:33:34.486] | : Evaluate transpiled call expression [07:33:34.533] | transpile() ... done [07:33:34.534] futurize() ... done character(0) [07:33:34.535] futurize() ... [07:33:34.535] | transpile() ... [07:33:34.536] | : get_transpiler() ... [07:33:34.536] | : . Finding call to be transpiled ... [07:33:34.537] | : . | descend_wrappers() ... [07:33:34.537] | : . | : Call: [07:33:34.538] | : . | : base::eapply [07:33:34.539] | : . | : parse_call() ... [07:33:34.539] | : . | : . Function: base::eapply(...) [07:33:34.540] | : . | : parse_call() ... done [07:33:34.541] | : . | descend_wrappers() ... done [07:33:34.541] | : . | parse_call() ... [07:33:34.542] | : . | : Function: base::eapply(...) [07:33:34.542] | : . | parse_call() ... done [07:33:34.542] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.543] | : . | base::eapply [07:33:34.544] | : . Finding call to be transpiled ... done [07:33:34.544] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:34.545] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.546] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:34.546] | : . | Transpiler function: [07:33:34.547] | : . | function (expr, options = NULL) [07:33:34.547] | : . | { [07:33:34.547] | : . | call <- make_call("future_eapply") [07:33:34.547] | : . | fcn <- eval(call) [07:33:34.547] | : . | expr[[1]] <- call [07:33:34.547] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.547] | : . | { [07:33:34.547] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.547] | : . | if (is.null(defaults_base)) { [07:33:34.547] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.547] | : . | } [07:33:34.547] | : . | if (length(defaults) > 0) { [07:33:34.547] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.547] | : . | } [07:33:34.547] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.547] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.547] | : . | defaults <- defaults[keep] [07:33:34.547] | : . | specified <- attr(options, "specified") [07:33:34.547] | : . | if (length(specified) > 0) { [07:33:34.547] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.547] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.547] | : . | names(options)) [07:33:34.547] | : . | } [07:33:34.547] | : . | specified <- sprintf("future.%s", specified) [07:33:34.547] | : . | names <- setdiff(names(defaults), specified) [07:33:34.547] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.547] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.547] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.547] | : . | options <- options[keep] [07:33:34.547] | : . | options [07:33:34.547] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:34.547] | : . | prefix = "fz:base::eapply"))) [07:33:34.547] | : . | expr <- as.call(parts) [07:33:34.547] | : . | expr [07:33:34.547] | : . | } [07:33:34.547] | : . | [07:33:34.548] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:34.548] | : get_transpiler() ... done [07:33:34.549] | : Transpile call expression ... [07:33:34.552] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = FALSE, [07:33:34.552] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:34.552] | : . future.scheduling = 1, future.chunk.size = 1L, future.label = "fz:base::eapply-%d") [07:33:34.554] | : Transpile call expression ... done [07:33:34.555] | : Evaluate transpiled call expression [07:33:34.644] | transpile() ... done [07:33:34.645] futurize() ... done Test with RNG: futurize(base::eapply(env = es, FUN = FUN), seed = TRUE, flavor = "built-in") [07:33:34.646] futurize() ... [07:33:34.646] | transpile() ... [07:33:34.647] | : get_transpiler() ... [07:33:34.647] | : . Finding call to be transpiled ... [07:33:34.648] | : . | descend_wrappers() ... [07:33:34.648] | : . | : Call: [07:33:34.649] | : . | : base::eapply [07:33:34.649] | : . | : parse_call() ... [07:33:34.650] | : . | : . Function: base::eapply(...) [07:33:34.650] | : . | : parse_call() ... done [07:33:34.651] | : . | descend_wrappers() ... done [07:33:34.651] | : . | parse_call() ... [07:33:34.652] | : . | : Function: base::eapply(...) [07:33:34.652] | : . | parse_call() ... done [07:33:34.653] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.653] | : . | base::eapply [07:33:34.654] | : . Finding call to be transpiled ... done [07:33:34.654] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:34.655] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.655] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:34.656] | : . | Transpiler function: [07:33:34.656] | : . | function (expr, options = NULL) [07:33:34.656] | : . | { [07:33:34.656] | : . | call <- make_call("future_eapply") [07:33:34.656] | : . | fcn <- eval(call) [07:33:34.656] | : . | expr[[1]] <- call [07:33:34.656] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.656] | : . | { [07:33:34.656] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.656] | : . | if (is.null(defaults_base)) { [07:33:34.656] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.656] | : . | } [07:33:34.656] | : . | if (length(defaults) > 0) { [07:33:34.656] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.656] | : . | } [07:33:34.656] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.656] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.656] | : . | defaults <- defaults[keep] [07:33:34.656] | : . | specified <- attr(options, "specified") [07:33:34.656] | : . | if (length(specified) > 0) { [07:33:34.656] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.656] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.656] | : . | names(options)) [07:33:34.656] | : . | } [07:33:34.656] | : . | specified <- sprintf("future.%s", specified) [07:33:34.656] | : . | names <- setdiff(names(defaults), specified) [07:33:34.656] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.656] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.656] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.656] | : . | options <- options[keep] [07:33:34.656] | : . | options [07:33:34.656] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:34.656] | : . | prefix = "fz:base::eapply"))) [07:33:34.656] | : . | expr <- as.call(parts) [07:33:34.656] | : . | expr [07:33:34.656] | : . | } [07:33:34.656] | : . | [07:33:34.657] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:34.658] | : get_transpiler() ... done [07:33:34.658] | : Transpile call expression ... [07:33:34.659] | : . future.apply::future_eapply(env = es, FUN = FUN, future.seed = TRUE, [07:33:34.659] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:34.659] | : . future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:34.660] | : Transpile call expression ... done [07:33:34.660] | : Evaluate transpiled call expression [07:33:34.722] | transpile() ... done [07:33:34.723] futurize() ... done === eapply ========================== base::eapply(env = es, FUN = FUN, all.names = TRUE) --------------------------------- [07:33:34.725] futurize() ... [07:33:34.726] | transpile() ... [07:33:34.727] | : get_transpiler() ... [07:33:34.728] | : . Finding call to be transpiled ... [07:33:34.729] | : . | descend_wrappers() ... [07:33:34.729] | : . | : Call: [07:33:34.730] | : . | : base::eapply [07:33:34.731] | : . | : parse_call() ... [07:33:34.732] | : . | : . Function: base::eapply(...) [07:33:34.733] | : . | : parse_call() ... done [07:33:34.734] | : . | descend_wrappers() ... done [07:33:34.734] | : . | parse_call() ... [07:33:34.735] | : . | : Function: base::eapply(...) [07:33:34.736] | : . | parse_call() ... done [07:33:34.737] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.738] | : . | base::eapply [07:33:34.739] | : . Finding call to be transpiled ... done [07:33:34.739] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:34.740] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.741] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:34.742] | : . | Transpiler function: [07:33:34.743] | : . | function (expr, options = NULL) [07:33:34.743] | : . | { [07:33:34.743] | : . | call <- make_call("future_eapply") [07:33:34.743] | : . | fcn <- eval(call) [07:33:34.743] | : . | expr[[1]] <- call [07:33:34.743] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.743] | : . | { [07:33:34.743] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.743] | : . | if (is.null(defaults_base)) { [07:33:34.743] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.743] | : . | } [07:33:34.743] | : . | if (length(defaults) > 0) { [07:33:34.743] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.743] | : . | } [07:33:34.743] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.743] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.743] | : . | defaults <- defaults[keep] [07:33:34.743] | : . | specified <- attr(options, "specified") [07:33:34.743] | : . | if (length(specified) > 0) { [07:33:34.743] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.743] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.743] | : . | names(options)) [07:33:34.743] | : . | } [07:33:34.743] | : . | specified <- sprintf("future.%s", specified) [07:33:34.743] | : . | names <- setdiff(names(defaults), specified) [07:33:34.743] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.743] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.743] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.743] | : . | options <- options[keep] [07:33:34.743] | : . | options [07:33:34.743] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:34.743] | : . | prefix = "fz:base::eapply"))) [07:33:34.743] | : . | expr <- as.call(parts) [07:33:34.743] | : . | expr [07:33:34.743] | : . | } [07:33:34.743] | : . | [07:33:34.744] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:34.745] | : get_transpiler() ... done [07:33:34.746] | : Transpile call expression ... [07:33:34.747] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:34.747] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:34.747] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:34.749] | : Transpile call expression ... done [07:33:34.750] | : Evaluate transpiled call expression [07:33:34.791] | transpile() ... done [07:33:34.793] futurize() ... done Futures created: 2 [07:33:34.798] futurize() ... [07:33:34.799] | transpile() ... [07:33:34.800] | : get_transpiler() ... [07:33:34.801] | : . Finding call to be transpiled ... [07:33:34.802] | : . | descend_wrappers() ... [07:33:34.803] | : . | : Call: [07:33:34.804] | : . | : base::eapply [07:33:34.805] | : . | : parse_call() ... [07:33:34.806] | : . | : . Function: base::eapply(...) [07:33:34.807] | : . | : parse_call() ... done [07:33:34.808] | : . | descend_wrappers() ... done [07:33:34.809] | : . | parse_call() ... [07:33:34.809] | : . | : Function: base::eapply(...) [07:33:34.810] | : . | parse_call() ... done [07:33:34.810] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.811] | : . | base::eapply [07:33:34.812] | : . Finding call to be transpiled ... done [07:33:34.812] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:34.813] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.813] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:34.814] | : . | Transpiler function: [07:33:34.815] | : . | function (expr, options = NULL) [07:33:34.815] | : . | { [07:33:34.815] | : . | call <- make_call("future_eapply") [07:33:34.815] | : . | fcn <- eval(call) [07:33:34.815] | : . | expr[[1]] <- call [07:33:34.815] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.815] | : . | { [07:33:34.815] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.815] | : . | if (is.null(defaults_base)) { [07:33:34.815] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.815] | : . | } [07:33:34.815] | : . | if (length(defaults) > 0) { [07:33:34.815] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.815] | : . | } [07:33:34.815] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.815] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.815] | : . | defaults <- defaults[keep] [07:33:34.815] | : . | specified <- attr(options, "specified") [07:33:34.815] | : . | if (length(specified) > 0) { [07:33:34.815] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.815] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.815] | : . | names(options)) [07:33:34.815] | : . | } [07:33:34.815] | : . | specified <- sprintf("future.%s", specified) [07:33:34.815] | : . | names <- setdiff(names(defaults), specified) [07:33:34.815] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.815] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.815] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.815] | : . | options <- options[keep] [07:33:34.815] | : . | options [07:33:34.815] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:34.815] | : . | prefix = "fz:base::eapply"))) [07:33:34.815] | : . | expr <- as.call(parts) [07:33:34.815] | : . | expr [07:33:34.815] | : . | } [07:33:34.815] | : . | [07:33:34.816] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:34.817] | : get_transpiler() ... done [07:33:34.818] | : Transpile call expression ... [07:33:34.820] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:34.820] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:34.820] | : . future.conditions = character(0), future.scheduling = 1, [07:33:34.820] | : . future.label = "fz:base::eapply-%d") [07:33:34.822] | : Transpile call expression ... done [07:33:34.822] | : Evaluate transpiled call expression [07:33:34.869] | transpile() ... done [07:33:34.870] futurize() ... done character(0) [07:33:34.871] futurize() ... [07:33:34.872] | transpile() ... [07:33:34.872] | : get_transpiler() ... [07:33:34.873] | : . Finding call to be transpiled ... [07:33:34.874] | : . | descend_wrappers() ... [07:33:34.875] | : . | : Call: [07:33:34.876] | : . | : base::eapply [07:33:34.877] | : . | : parse_call() ... [07:33:34.877] | : . | : . Function: base::eapply(...) [07:33:34.878] | : . | : parse_call() ... done [07:33:34.879] | : . | descend_wrappers() ... done [07:33:34.879] | : . | parse_call() ... [07:33:34.880] | : . | : Function: base::eapply(...) [07:33:34.880] | : . | parse_call() ... done [07:33:34.881] | : . | Position of call to be transpiled in expression: c(1) [07:33:34.881] | : . | base::eapply [07:33:34.882] | : . Finding call to be transpiled ... done [07:33:34.882] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:34.883] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:34.883] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:34.884] | : . | Transpiler function: [07:33:34.884] | : . | function (expr, options = NULL) [07:33:34.884] | : . | { [07:33:34.884] | : . | call <- make_call("future_eapply") [07:33:34.884] | : . | fcn <- eval(call) [07:33:34.884] | : . | expr[[1]] <- call [07:33:34.884] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:34.884] | : . | { [07:33:34.884] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:34.884] | : . | if (is.null(defaults_base)) { [07:33:34.884] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:34.884] | : . | } [07:33:34.884] | : . | if (length(defaults) > 0) { [07:33:34.884] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:34.884] | : . | } [07:33:34.884] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:34.884] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:34.884] | : . | defaults <- defaults[keep] [07:33:34.884] | : . | specified <- attr(options, "specified") [07:33:34.884] | : . | if (length(specified) > 0) { [07:33:34.884] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:34.884] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:34.884] | : . | names(options)) [07:33:34.884] | : . | } [07:33:34.884] | : . | specified <- sprintf("future.%s", specified) [07:33:34.884] | : . | names <- setdiff(names(defaults), specified) [07:33:34.884] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:34.884] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:34.884] | : . | keep <- intersect(names(options), names(defaults)) [07:33:34.884] | : . | options <- options[keep] [07:33:34.884] | : . | options [07:33:34.884] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:34.884] | : . | prefix = "fz:base::eapply"))) [07:33:34.884] | : . | expr <- as.call(parts) [07:33:34.884] | : . | expr [07:33:34.884] | : . | } [07:33:34.884] | : . | [07:33:34.885] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:34.886] | : get_transpiler() ... done [07:33:34.886] | : Transpile call expression ... [07:33:34.887] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:34.887] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:34.887] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:34.887] | : . future.label = "fz:base::eapply-%d") [07:33:34.888] | : Transpile call expression ... done [07:33:34.889] | : Evaluate transpiled call expression [07:33:35.017] | transpile() ... done [07:33:35.018] futurize() ... done Test with RNG: futurize(base::eapply(env = es, FUN = FUN, all.names = TRUE), seed = TRUE, flavor = "built-in") [07:33:35.019] futurize() ... [07:33:35.020] | transpile() ... [07:33:35.021] | : get_transpiler() ... [07:33:35.022] | : . Finding call to be transpiled ... [07:33:35.023] | : . | descend_wrappers() ... [07:33:35.024] | : . | : Call: [07:33:35.025] | : . | : base::eapply [07:33:35.026] | : . | : parse_call() ... [07:33:35.026] | : . | : . Function: base::eapply(...) [07:33:35.027] | : . | : parse_call() ... done [07:33:35.028] | : . | descend_wrappers() ... done [07:33:35.029] | : . | parse_call() ... [07:33:35.030] | : . | : Function: base::eapply(...) [07:33:35.031] | : . | parse_call() ... done [07:33:35.031] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.032] | : . | base::eapply [07:33:35.033] | : . Finding call to be transpiled ... done [07:33:35.034] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:35.035] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.036] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:35.036] | : . | Transpiler function: [07:33:35.037] | : . | function (expr, options = NULL) [07:33:35.037] | : . | { [07:33:35.037] | : . | call <- make_call("future_eapply") [07:33:35.037] | : . | fcn <- eval(call) [07:33:35.037] | : . | expr[[1]] <- call [07:33:35.037] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.037] | : . | { [07:33:35.037] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.037] | : . | if (is.null(defaults_base)) { [07:33:35.037] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.037] | : . | } [07:33:35.037] | : . | if (length(defaults) > 0) { [07:33:35.037] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.037] | : . | } [07:33:35.037] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.037] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.037] | : . | defaults <- defaults[keep] [07:33:35.037] | : . | specified <- attr(options, "specified") [07:33:35.037] | : . | if (length(specified) > 0) { [07:33:35.037] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.037] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.037] | : . | names(options)) [07:33:35.037] | : . | } [07:33:35.037] | : . | specified <- sprintf("future.%s", specified) [07:33:35.037] | : . | names <- setdiff(names(defaults), specified) [07:33:35.037] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.037] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.037] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.037] | : . | options <- options[keep] [07:33:35.037] | : . | options [07:33:35.037] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:35.037] | : . | prefix = "fz:base::eapply"))) [07:33:35.037] | : . | expr <- as.call(parts) [07:33:35.037] | : . | expr [07:33:35.037] | : . | } [07:33:35.037] | : . | [07:33:35.039] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:35.040] | : get_transpiler() ... done [07:33:35.040] | : Transpile call expression ... [07:33:35.042] | : . future.apply::future_eapply(env = es, FUN = FUN, all.names = TRUE, [07:33:35.042] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:35.042] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:35.044] | : Transpile call expression ... done [07:33:35.044] | : Evaluate transpiled call expression [07:33:35.106] | transpile() ... done [07:33:35.107] futurize() ... done === eapply ========================== base::eapply(env = es, FUN = FUN, USE.NAMES = FALSE) --------------------------------- [07:33:35.108] futurize() ... [07:33:35.108] | transpile() ... [07:33:35.109] | : get_transpiler() ... [07:33:35.109] | : . Finding call to be transpiled ... [07:33:35.110] | : . | descend_wrappers() ... [07:33:35.110] | : . | : Call: [07:33:35.110] | : . | : base::eapply [07:33:35.111] | : . | : parse_call() ... [07:33:35.112] | : . | : . Function: base::eapply(...) [07:33:35.112] | : . | : parse_call() ... done [07:33:35.112] | : . | descend_wrappers() ... done [07:33:35.113] | : . | parse_call() ... [07:33:35.113] | : . | : Function: base::eapply(...) [07:33:35.114] | : . | parse_call() ... done [07:33:35.114] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.115] | : . | base::eapply [07:33:35.115] | : . Finding call to be transpiled ... done [07:33:35.116] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:35.116] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.117] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:35.117] | : . | Transpiler function: [07:33:35.118] | : . | function (expr, options = NULL) [07:33:35.118] | : . | { [07:33:35.118] | : . | call <- make_call("future_eapply") [07:33:35.118] | : . | fcn <- eval(call) [07:33:35.118] | : . | expr[[1]] <- call [07:33:35.118] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.118] | : . | { [07:33:35.118] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.118] | : . | if (is.null(defaults_base)) { [07:33:35.118] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.118] | : . | } [07:33:35.118] | : . | if (length(defaults) > 0) { [07:33:35.118] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.118] | : . | } [07:33:35.118] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.118] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.118] | : . | defaults <- defaults[keep] [07:33:35.118] | : . | specified <- attr(options, "specified") [07:33:35.118] | : . | if (length(specified) > 0) { [07:33:35.118] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.118] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.118] | : . | names(options)) [07:33:35.118] | : . | } [07:33:35.118] | : . | specified <- sprintf("future.%s", specified) [07:33:35.118] | : . | names <- setdiff(names(defaults), specified) [07:33:35.118] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.118] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.118] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.118] | : . | options <- options[keep] [07:33:35.118] | : . | options [07:33:35.118] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:35.118] | : . | prefix = "fz:base::eapply"))) [07:33:35.118] | : . | expr <- as.call(parts) [07:33:35.118] | : . | expr [07:33:35.118] | : . | } [07:33:35.118] | : . | [07:33:35.119] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:35.120] | : get_transpiler() ... done [07:33:35.121] | : Transpile call expression ... [07:33:35.122] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:35.122] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:35.122] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:35.124] | : Transpile call expression ... done [07:33:35.124] | : Evaluate transpiled call expression [07:33:35.171] | transpile() ... done [07:33:35.173] futurize() ... done Futures created: 2 [07:33:35.174] futurize() ... [07:33:35.175] | transpile() ... [07:33:35.175] | : get_transpiler() ... [07:33:35.176] | : . Finding call to be transpiled ... [07:33:35.177] | : . | descend_wrappers() ... [07:33:35.178] | : . | : Call: [07:33:35.179] | : . | : base::eapply [07:33:35.180] | : . | : parse_call() ... [07:33:35.180] | : . | : . Function: base::eapply(...) [07:33:35.181] | : . | : parse_call() ... done [07:33:35.182] | : . | descend_wrappers() ... done [07:33:35.183] | : . | parse_call() ... [07:33:35.183] | : . | : Function: base::eapply(...) [07:33:35.184] | : . | parse_call() ... done [07:33:35.185] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.185] | : . | base::eapply [07:33:35.186] | : . Finding call to be transpiled ... done [07:33:35.187] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:35.188] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.188] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:35.189] | : . | Transpiler function: [07:33:35.189] | : . | function (expr, options = NULL) [07:33:35.189] | : . | { [07:33:35.189] | : . | call <- make_call("future_eapply") [07:33:35.189] | : . | fcn <- eval(call) [07:33:35.189] | : . | expr[[1]] <- call [07:33:35.189] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.189] | : . | { [07:33:35.189] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.189] | : . | if (is.null(defaults_base)) { [07:33:35.189] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.189] | : . | } [07:33:35.189] | : . | if (length(defaults) > 0) { [07:33:35.189] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.189] | : . | } [07:33:35.189] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.189] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.189] | : . | defaults <- defaults[keep] [07:33:35.189] | : . | specified <- attr(options, "specified") [07:33:35.189] | : . | if (length(specified) > 0) { [07:33:35.189] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.189] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.189] | : . | names(options)) [07:33:35.189] | : . | } [07:33:35.189] | : . | specified <- sprintf("future.%s", specified) [07:33:35.189] | : . | names <- setdiff(names(defaults), specified) [07:33:35.189] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.189] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.189] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.189] | : . | options <- options[keep] [07:33:35.189] | : . | options [07:33:35.189] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:35.189] | : . | prefix = "fz:base::eapply"))) [07:33:35.189] | : . | expr <- as.call(parts) [07:33:35.189] | : . | expr [07:33:35.189] | : . | } [07:33:35.189] | : . | [07:33:35.191] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:35.192] | : get_transpiler() ... done [07:33:35.193] | : Transpile call expression ... [07:33:35.194] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:35.194] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = FALSE, [07:33:35.194] | : . future.conditions = character(0), future.scheduling = 1, [07:33:35.194] | : . future.label = "fz:base::eapply-%d") [07:33:35.196] | : Transpile call expression ... done [07:33:35.197] | : Evaluate transpiled call expression [07:33:35.255] | transpile() ... done [07:33:35.256] futurize() ... done character(0) [07:33:35.257] futurize() ... [07:33:35.258] | transpile() ... [07:33:35.259] | : get_transpiler() ... [07:33:35.260] | : . Finding call to be transpiled ... [07:33:35.261] | : . | descend_wrappers() ... [07:33:35.261] | : . | : Call: [07:33:35.262] | : . | : base::eapply [07:33:35.263] | : . | : parse_call() ... [07:33:35.264] | : . | : . Function: base::eapply(...) [07:33:35.265] | : . | : parse_call() ... done [07:33:35.265] | : . | descend_wrappers() ... done [07:33:35.266] | : . | parse_call() ... [07:33:35.267] | : . | : Function: base::eapply(...) [07:33:35.267] | : . | parse_call() ... done [07:33:35.268] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.269] | : . | base::eapply [07:33:35.270] | : . Finding call to be transpiled ... done [07:33:35.271] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:35.271] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.272] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:35.272] | : . | Transpiler function: [07:33:35.273] | : . | function (expr, options = NULL) [07:33:35.273] | : . | { [07:33:35.273] | : . | call <- make_call("future_eapply") [07:33:35.273] | : . | fcn <- eval(call) [07:33:35.273] | : . | expr[[1]] <- call [07:33:35.273] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.273] | : . | { [07:33:35.273] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.273] | : . | if (is.null(defaults_base)) { [07:33:35.273] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.273] | : . | } [07:33:35.273] | : . | if (length(defaults) > 0) { [07:33:35.273] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.273] | : . | } [07:33:35.273] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.273] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.273] | : . | defaults <- defaults[keep] [07:33:35.273] | : . | specified <- attr(options, "specified") [07:33:35.273] | : . | if (length(specified) > 0) { [07:33:35.273] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.273] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.273] | : . | names(options)) [07:33:35.273] | : . | } [07:33:35.273] | : . | specified <- sprintf("future.%s", specified) [07:33:35.273] | : . | names <- setdiff(names(defaults), specified) [07:33:35.273] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.273] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.273] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.273] | : . | options <- options[keep] [07:33:35.273] | : . | options [07:33:35.273] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:35.273] | : . | prefix = "fz:base::eapply"))) [07:33:35.273] | : . | expr <- as.call(parts) [07:33:35.273] | : . | expr [07:33:35.273] | : . | } [07:33:35.273] | : . | [07:33:35.274] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:35.275] | : get_transpiler() ... done [07:33:35.276] | : Transpile call expression ... [07:33:35.277] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:35.277] | : . future.seed = FALSE, future.globals = TRUE, future.stdout = TRUE, [07:33:35.277] | : . future.conditions = "condition", future.scheduling = 1, future.chunk.size = 1L, [07:33:35.277] | : . future.label = "fz:base::eapply-%d") [07:33:35.279] | : Transpile call expression ... done [07:33:35.280] | : Evaluate transpiled call expression [07:33:35.376] | transpile() ... done [07:33:35.377] futurize() ... done Test with RNG: futurize(base::eapply(env = es, FUN = FUN, USE.NAMES = FALSE), seed = TRUE, flavor = "built-in") [07:33:35.378] futurize() ... [07:33:35.378] | transpile() ... [07:33:35.379] | : get_transpiler() ... [07:33:35.380] | : . Finding call to be transpiled ... [07:33:35.381] | : . | descend_wrappers() ... [07:33:35.382] | : . | : Call: [07:33:35.382] | : . | : base::eapply [07:33:35.383] | : . | : parse_call() ... [07:33:35.384] | : . | : . Function: base::eapply(...) [07:33:35.385] | : . | : parse_call() ... done [07:33:35.385] | : . | descend_wrappers() ... done [07:33:35.386] | : . | parse_call() ... [07:33:35.387] | : . | : Function: base::eapply(...) [07:33:35.388] | : . | parse_call() ... done [07:33:35.388] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.389] | : . | base::eapply [07:33:35.390] | : . Finding call to be transpiled ... done [07:33:35.391] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... [07:33:35.392] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.393] | : . | Transpiler description: base::eapply() -> future.apply::future_eapply() [07:33:35.393] | : . | Transpiler function: [07:33:35.394] | : . | function (expr, options = NULL) [07:33:35.394] | : . | { [07:33:35.394] | : . | call <- make_call("future_eapply") [07:33:35.394] | : . | fcn <- eval(call) [07:33:35.394] | : . | expr[[1]] <- call [07:33:35.394] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.394] | : . | { [07:33:35.394] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.394] | : . | if (is.null(defaults_base)) { [07:33:35.394] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.394] | : . | } [07:33:35.394] | : . | if (length(defaults) > 0) { [07:33:35.394] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.394] | : . | } [07:33:35.394] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.394] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.394] | : . | defaults <- defaults[keep] [07:33:35.394] | : . | specified <- attr(options, "specified") [07:33:35.394] | : . | if (length(specified) > 0) { [07:33:35.394] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.394] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.394] | : . | names(options)) [07:33:35.394] | : . | } [07:33:35.394] | : . | specified <- sprintf("future.%s", specified) [07:33:35.394] | : . | names <- setdiff(names(defaults), specified) [07:33:35.394] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.394] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.394] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.394] | : . | options <- options[keep] [07:33:35.394] | : . | options [07:33:35.394] | : . | })(options, fcn, defaults = list(future.label = "fz:base::eapply-%d", [07:33:35.394] | : . | prefix = "fz:base::eapply"))) [07:33:35.394] | : . | expr <- as.call(parts) [07:33:35.394] | : . | expr [07:33:35.394] | : . | } [07:33:35.394] | : . | [07:33:35.396] | : . Locating 'futurize::add-on' transpiler for base::eapply() of class 'function' ... done [07:33:35.397] | : get_transpiler() ... done [07:33:35.398] | : Transpile call expression ... [07:33:35.399] | : . future.apply::future_eapply(env = es, FUN = FUN, USE.NAMES = FALSE, [07:33:35.399] | : . future.seed = TRUE, future.globals = TRUE, future.stdout = TRUE, [07:33:35.399] | : . future.conditions = "condition", future.scheduling = 1, future.label = "fz:base::eapply-%d") [07:33:35.400] | : Transpile call expression ... done [07:33:35.401] | : Evaluate transpiled call expression [07:33:35.453] | transpile() ... done [07:33:35.454] futurize() ... done === replicate ========================== replicate(2, 42) --------------------------------- Skipping replicate() - not yet implemented for flavor = 'built-in' === replicate ========================== base::replicate(2, 42) --------------------------------- Skipping replicate() - not yet implemented for flavor = 'built-in' === kernapply ========================== kernapply(x = X, k = k) --------------------------------- Skipping kernapply() - not yet implemented for flavor = 'built-in' futurize() for replicate() should default to seed = TRUE [07:33:35.457] futurize() ... [07:33:35.458] | transpile() ... [07:33:35.459] | : get_transpiler() ... [07:33:35.459] | : . Finding call to be transpiled ... [07:33:35.460] | : . | descend_wrappers() ... [07:33:35.461] | : . | : Call: [07:33:35.462] | : . | : replicate [07:33:35.463] | : . | : parse_call() ... [07:33:35.463] | : . | : . Function: replicate(...) [07:33:35.464] | : . | : . Locate function ... [07:33:35.465] | : . | : . | Function located in: 'base' [07:33:35.466] | : . | : . Locate function ... done [07:33:35.466] | : . | : parse_call() ... done [07:33:35.467] | : . | descend_wrappers() ... done [07:33:35.468] | : . | parse_call() ... [07:33:35.469] | : . | : Function: replicate(...) [07:33:35.469] | : . | : Locate function ... [07:33:35.470] | : . | : . Function located in: 'base' [07:33:35.471] | : . | : Locate function ... done [07:33:35.471] | : . | parse_call() ... done [07:33:35.472] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.473] | : . | replicate [07:33:35.474] | : . Finding call to be transpiled ... done [07:33:35.475] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:35.475] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.476] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:35.477] | : . | Transpiler function: [07:33:35.477] | : . | function (expr, options = NULL) [07:33:35.477] | : . | { [07:33:35.477] | : . | call <- make_call("future_replicate") [07:33:35.477] | : . | fcn <- eval(call) [07:33:35.477] | : . | expr[[1]] <- call [07:33:35.477] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.477] | : . | { [07:33:35.477] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.477] | : . | if (is.null(defaults_base)) { [07:33:35.477] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.477] | : . | } [07:33:35.477] | : . | if (length(defaults) > 0) { [07:33:35.477] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.477] | : . | } [07:33:35.477] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.477] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.477] | : . | defaults <- defaults[keep] [07:33:35.477] | : . | specified <- attr(options, "specified") [07:33:35.477] | : . | if (length(specified) > 0) { [07:33:35.477] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.477] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.477] | : . | names(options)) [07:33:35.477] | : . | } [07:33:35.477] | : . | specified <- sprintf("future.%s", specified) [07:33:35.477] | : . | names <- setdiff(names(defaults), specified) [07:33:35.477] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.477] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.477] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.477] | : . | options <- options[keep] [07:33:35.477] | : . | options [07:33:35.477] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:35.477] | : . | prefix = "fz:base::replicate"))) [07:33:35.477] | : . | expr <- as.call(parts) [07:33:35.477] | : . | expr [07:33:35.477] | : . | } [07:33:35.477] | : . | [07:33:35.479] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:35.480] | : get_transpiler() ... done [07:33:35.481] | : Transpile call expression ... [07:33:35.482] | : . future.apply::future_replicate(2, rnorm(1), future.seed = TRUE, [07:33:35.482] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:35.482] | : . future.scheduling = 1, future.label = "fz:base::replicate-%d") [07:33:35.483] | : Transpile call expression ... done [07:33:35.484] | : Evaluate transpiled call expression [07:33:35.520] | transpile() ... done [07:33:35.521] futurize() ... done Futures created: 2 futurize(seed = FALSE) gives RNG error with replicate() [07:33:35.591] futurize() ... [07:33:35.592] | transpile() ... [07:33:35.593] | : get_transpiler() ... [07:33:35.594] | : . Finding call to be transpiled ... [07:33:35.595] | : . | descend_wrappers() ... [07:33:35.596] | : . | : Call: [07:33:35.596] | : . | : replicate [07:33:35.598] | : . | : parse_call() ... [07:33:35.598] | : . | : . Function: replicate(...) [07:33:35.599] | : . | : . Locate function ... [07:33:35.600] | : . | : . | Function located in: 'base' [07:33:35.601] | : . | : . Locate function ... done [07:33:35.602] | : . | : parse_call() ... done [07:33:35.602] | : . | descend_wrappers() ... done [07:33:35.603] | : . | parse_call() ... [07:33:35.604] | : . | : Function: replicate(...) [07:33:35.605] | : . | : Locate function ... [07:33:35.605] | : . | : . Function located in: 'base' [07:33:35.606] | : . | : Locate function ... done [07:33:35.607] | : . | parse_call() ... done [07:33:35.608] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.608] | : . | replicate [07:33:35.609] | : . Finding call to be transpiled ... done [07:33:35.610] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... [07:33:35.611] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.612] | : . | Transpiler description: base::replicate() -> future.apply::future_replicate() [07:33:35.612] | : . | Transpiler function: [07:33:35.613] | : . | function (expr, options = NULL) [07:33:35.613] | : . | { [07:33:35.613] | : . | call <- make_call("future_replicate") [07:33:35.613] | : . | fcn <- eval(call) [07:33:35.613] | : . | expr[[1]] <- call [07:33:35.613] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.613] | : . | { [07:33:35.613] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.613] | : . | if (is.null(defaults_base)) { [07:33:35.613] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.613] | : . | } [07:33:35.613] | : . | if (length(defaults) > 0) { [07:33:35.613] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.613] | : . | } [07:33:35.613] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.613] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.613] | : . | defaults <- defaults[keep] [07:33:35.613] | : . | specified <- attr(options, "specified") [07:33:35.613] | : . | if (length(specified) > 0) { [07:33:35.613] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.613] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.613] | : . | names(options)) [07:33:35.613] | : . | } [07:33:35.613] | : . | specified <- sprintf("future.%s", specified) [07:33:35.613] | : . | names <- setdiff(names(defaults), specified) [07:33:35.613] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.613] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.613] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.613] | : . | options <- options[keep] [07:33:35.613] | : . | options [07:33:35.613] | : . | })(options, fcn, defaults = list(future.label = "fz:base::replicate-%d", [07:33:35.613] | : . | prefix = "fz:base::replicate"))) [07:33:35.613] | : . | expr <- as.call(parts) [07:33:35.613] | : . | expr [07:33:35.613] | : . | } [07:33:35.613] | : . | [07:33:35.614] | : . Locating 'futurize::add-on' transpiler for base::replicate() of class 'function' ... done [07:33:35.615] | : get_transpiler() ... done [07:33:35.616] | : Transpile call expression ... [07:33:35.617] | : . future.apply::future_replicate(2, rnorm(1), future.seed = FALSE, [07:33:35.617] | : . future.globals = TRUE, future.stdout = TRUE, future.conditions = "condition", [07:33:35.617] | : . future.scheduling = 1, future.label = "fz:base::replicate-%d") [07:33:35.619] | : Transpile call expression ... done [07:33:35.620] | : Evaluate transpiled call expression Warning: Caught RngFutureError. Canceling all iterations ... [07:33:35.644] | transpile() ... done [07:33:35.645] futurize() ... done Special case: Zero futurize() options [07:33:35.646] futurize() ... [07:33:35.646] | transpile() ... [07:33:35.647] | : get_transpiler() ... [07:33:35.648] | : . Finding call to be transpiled ... [07:33:35.649] | : . | descend_wrappers() ... [07:33:35.649] | : . | : Call: [07:33:35.650] | : . | : lapply [07:33:35.651] | : . | : parse_call() ... [07:33:35.652] | : . | : . Function: lapply(...) [07:33:35.652] | : . | : . Locate function ... [07:33:35.653] | : . | : . | Function located in: 'base' [07:33:35.654] | : . | : . Locate function ... done [07:33:35.654] | : . | : parse_call() ... done [07:33:35.655] | : . | descend_wrappers() ... done [07:33:35.655] | : . | parse_call() ... [07:33:35.656] | : . | : Function: lapply(...) [07:33:35.656] | : . | : Locate function ... [07:33:35.657] | : . | : . Function located in: 'base' [07:33:35.657] | : . | : Locate function ... done [07:33:35.658] | : . | parse_call() ... done [07:33:35.658] | : . | Position of call to be transpiled in expression: c(1) [07:33:35.659] | : . | lapply [07:33:35.660] | : . Finding call to be transpiled ... done [07:33:35.660] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:33:35.661] | : . | Namespaces registered with futurize(): 'base', 'stats' [07:33:35.661] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:33:35.662] | : . | Transpiler function: [07:33:35.662] | : . | function (expr, options = NULL) [07:33:35.662] | : . | { [07:33:35.662] | : . | call <- make_call("future_lapply") [07:33:35.662] | : . | fcn <- eval(call) [07:33:35.662] | : . | expr[[1]] <- call [07:33:35.662] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:33:35.662] | : . | { [07:33:35.662] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:33:35.662] | : . | if (is.null(defaults_base)) { [07:33:35.662] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:33:35.662] | : . | } [07:33:35.662] | : . | if (length(defaults) > 0) { [07:33:35.662] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:33:35.662] | : . | } [07:33:35.662] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:33:35.662] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:33:35.662] | : . | defaults <- defaults[keep] [07:33:35.662] | : . | specified <- attr(options, "specified") [07:33:35.662] | : . | if (length(specified) > 0) { [07:33:35.662] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:33:35.662] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:33:35.662] | : . | names(options)) [07:33:35.662] | : . | } [07:33:35.662] | : . | specified <- sprintf("future.%s", specified) [07:33:35.662] | : . | names <- setdiff(names(defaults), specified) [07:33:35.662] | : . | names(options) <- sprintf("future.%s", names(options)) [07:33:35.662] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:33:35.662] | : . | keep <- intersect(names(options), names(defaults)) [07:33:35.662] | : . | options <- options[keep] [07:33:35.662] | : . | options [07:33:35.662] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:33:35.662] | : . | prefix = "fz:base::lapply"))) [07:33:35.662] | : . | expr <- as.call(parts) [07:33:35.662] | : . | expr [07:33:35.662] | : . | } [07:33:35.662] | : . | [07:33:35.664] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:33:35.664] | : get_transpiler() ... done [07:33:35.665] | : Transpile call expression ... [07:33:35.665] | : . future.apply::future_lapply(1, identity, future.stdout = TRUE, [07:33:35.665] | : . future.conditions = "condition", future.globals = TRUE, future.seed = FALSE, [07:33:35.665] | : . future.scheduling = 1, future.label = "fz:base::lapply-%d") [07:33:35.667] | : Transpile call expression ... done [07:33:35.667] | : Evaluate transpiled call expression [07:33:35.680] | transpile() ... done [07:33:35.680] futurize() ... done Failed to undo environment variables: - Expected environment variables: [n=219] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CV_Instance001', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS44_HOME', 'RTOOLS45_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CRAN_WEB', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS45_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTME_NAME', 'R_TESTME_PACKAGE', 'R_TESTME_PATH', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TETRAD_DIR', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_BIBTOOLS_CACHE_BIBENTRIES_', '_R_CHECK_AUTOCONF_', '_R_CHECK_BOGUS_RETURN_', '_R_CHECK_BROWSER_NONINTERACTIVE_', '_R_CHECK_BUILD_VIGNETTES_SEPARATELY_', '_R_CHECK_CODETOOLS_PROFILE_', '_R_CHECK_CODE_ASSIGN_TO_GLOBALENV_', '_R_CHECK_CODE_ATTACH_', '_R_CHECK_CODE_CLASS_IS_STRING_', '_R_CHECK_CODE_DATA_INTO_GLOBALENV_', '_R_CHECK_CODE_USAGE_VIA_NAMESPACES_', '_R_CHECK_CODE_USAGE_WITHOUT_LOADING_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_CODOC_VARIABLES_IN_USAGES_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_COMPILATION_FLAGS_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_CRAN_INCOMING_', '_R_CHECK_CRAN_INCOMING_ASPELL_RECHECK_MAYBE_', '_R_CHECK_CRAN_INCOMING_ASPELL_RECHECK_START_', '_R_CHECK_CRAN_INCOMING_CHECK_FILE_URIS_', '_R_CHECK_CRAN_INCOMING_CHECK_URLS_IN_PARALLEL_', '_R_CHECK_CRAN_INCOMING_NOTE_GNU_MAKE_', '_R_CHECK_CRAN_INCOMING_REMOTE_', '_R_CHECK_CRAN_INCOMING_USE_ASPELL_', '_R_CHECK_DATALIST_', '_R_CHECK_DEPRECATED_DEFUNCT_', '_R_CHECK_DOC_SIZES2_', '_R_CHECK_DOT_FIRSTLIB_', '_R_CHECK_DOT_INTERNAL_', '_R_CHECK_EXAMPLE_TIMING_THRESHOLD_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FF_CALLS_', '_R_CHECK_FF_DUP_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_LEEWAY_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LENGTH_1_CONDITION_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_LOG_USE_INFO_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NATIVE_ROUTINE_REGISTRATION_', '_R_CHECK_NEWS_IN_PLAIN_TEXT_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_ORPHANED_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PKG_SIZES_', '_R_CHECK_PKG_SIZES_THRESHOLD_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RCPP_NOT_NEEDED_', '_R_CHECK_RD_BIBENTRIES_CITED_NOT_SHOWN_', '_R_CHECK_RD_EXAMPLES_T_AND_F_', '_R_CHECK_RD_LINE_WIDTHS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_NOTE_LOST_BRACES_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_REPLACING_IMPORTS_', '_R_CHECK_R_DEPENDS_', '_R_CHECK_S3_METHODS_SHOW_POSSIBLE_ISSUES_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SERIALIZATION_', '_R_CHECK_SHLIB_OPENMP_FLAGS_', '_R_CHECK_SRC_MINUS_W_IMPLICIT_', '_R_CHECK_SUBDIRS_NOCASE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_SYSTEM_CLOCK_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TEST_TIMING_', '_R_CHECK_TIMINGS_', '_R_CHECK_TOPLEVEL_FILES_', '_R_CHECK_UNDOC_USE_ALL_NAMES_', '_R_CHECK_UNSAFE_CALLS_', '_R_CHECK_URLS_RELATIVE_PATHS_', '_R_CHECK_URLS_SHOW_301_STATUS_', '_R_CHECK_VC_DIRS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TIMING_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_NOTE_MISSING_PACKAGE_ANCHORS_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_CLASS_MATRIX_ARRAY_', '_R_DEPRECATED_IS_R_', '_R_S3_METHOD_LOOKUP_BASEENV_AFTER_GLOBALENV_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '_R_USE_STRICT_R_HEADERS_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_INTERNAL__', 'maj.version', 'nextArg--timingsnextArg--install', 'tempdirname' - Environment variables still there: [n=0] - Environment variables missing: [n=1] 'MAKEFLAGS' Differences environment variable by environment variable: Skipping, because path appears not to be an 'R CMD check' folder: 'D:/temp/2026_04_01_06_55_16_3646' Test time: user.self=8s, sys.self=1s, elapsed=1e+01s, user.child=NAs, sys.child=NAs Test 'futurize-base-stats' ... success > > proc.time() user system elapsed 8.82 1.03 13.23