R version 4.6.0 alpha (2026-04-01 r89771 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-progressify-foreach-doFuture.R > ## Don't edit - it was autogenerated by inst/testme/deploy.R > progressify:::testme("progressify-foreach-doFuture") Test 'progressify-foreach-doFuture' ... chr "none" > if (requireNamespace("foreach") && requireNamespace("doFuture")) { + library(progressify) + library(foreach) + library(doFuture) + o .... [TRUNCATED] Loading required namespace: foreach Loading required namespace: doFuture Loading required package: progressr Loading required package: future === %dofuture% ========================== foreach(x = xs, .combine = c) %dofuture% { FUN(x) } --------------------------------- progressify(foreach(x = xs, .combine = c) %dofuture% { FUN(x) }) [10:25:52.253] progressify() ... [10:25:52.255] | transpile() ... [10:25:52.255] | : get_transpiler() ... [10:25:52.256] | : . Finding call to be transpiled ... [10:25:52.257] | : . | descend_wrappers() ... [10:25:52.257] | : . | : Call: [10:25:52.258] | : . | : `%dofuture%` [10:25:52.258] | : . | : parse_call() ... [10:25:52.259] | : . | : . Function: %dofuture%(...) [10:25:52.259] | : . | : . Locate function ... [10:25:52.260] | : . | : . | Function located in: 'doFuture' [10:25:52.261] | : . | : . Locate function ... done [10:25:52.261] | : . | : parse_call() ... done [10:25:52.262] | : . | descend_wrappers() ... done [10:25:52.262] | : . | parse_call() ... [10:25:52.262] | : . | : Function: %dofuture%(...) [10:25:52.263] | : . | : Locate function ... [10:25:52.263] | : . | : . Function located in: 'doFuture' [10:25:52.264] | : . | : Locate function ... done [10:25:52.264] | : . | parse_call() ... done [10:25:52.265] | : . | Position of call to be transpiled in expression: c(1) [10:25:52.265] | : . | `%dofuture%` [10:25:52.266] | : . Finding call to be transpiled ... done [10:25:52.267] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:52.267] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:52.268] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:52.268] | : . | Transpiler function: [10:25:52.269] | : . | function (expr, options) [10:25:52.269] | : . | { [10:25:52.269] | : . | ns <- getNamespace("doFuture") [10:25:52.269] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:52.269] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:52.269] | : . | envir = parent.frame()) [10:25:52.269] | : . | } [10:25:52.269] | : . | [10:25:52.269] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:52.270] | : get_transpiler() ... done [10:25:52.270] | : Transpile call expression ... [10:25:52.271] | : . local({ [10:25:52.271] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:52.271] | : . foreach(x = xs, .combine = c) %dofuture% local({ [10:25:52.271] | : . on.exit(.progressr_progressor()) [10:25:52.271] | : . { [10:25:52.271] | : . FUN(x) [10:25:52.271] | : . } [10:25:52.271] | : . }) [10:25:52.271] | : . }) [10:25:52.272] | : Transpile call expression ... done [10:25:52.273] | : Evaluate transpiled call expression [10:25:52.401] | transpile() ... done [10:25:52.401] progressify() ... done num [1:5] 2.5 2.5 3 3.5 3.5 [10:25:52.403] progressify() ... [10:25:52.403] | transpile() ... [10:25:52.404] | : get_transpiler() ... [10:25:52.404] | : . Finding call to be transpiled ... [10:25:52.405] | : . | descend_wrappers() ... [10:25:52.405] | : . | : Call: [10:25:52.406] | : . | : `%dofuture%` [10:25:52.406] | : . | : parse_call() ... [10:25:52.407] | : . | : . Function: %dofuture%(...) [10:25:52.407] | : . | : . Locate function ... [10:25:52.408] | : . | : . | Function located in: 'doFuture' [10:25:52.408] | : . | : . Locate function ... done [10:25:52.409] | : . | : parse_call() ... done [10:25:52.409] | : . | descend_wrappers() ... done [10:25:52.410] | : . | parse_call() ... [10:25:52.410] | : . | : Function: %dofuture%(...) [10:25:52.411] | : . | : Locate function ... [10:25:52.411] | : . | : . Function located in: 'doFuture' [10:25:52.412] | : . | : Locate function ... done [10:25:52.412] | : . | parse_call() ... done [10:25:52.413] | : . | Position of call to be transpiled in expression: c(1) [10:25:52.413] | : . | `%dofuture%` [10:25:52.414] | : . Finding call to be transpiled ... done [10:25:52.414] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:52.415] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:52.415] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:52.416] | : . | Transpiler function: [10:25:52.416] | : . | function (expr, options) [10:25:52.416] | : . | { [10:25:52.416] | : . | ns <- getNamespace("doFuture") [10:25:52.416] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:52.416] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:52.416] | : . | envir = parent.frame()) [10:25:52.416] | : . | } [10:25:52.416] | : . | [10:25:52.417] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:52.418] | : get_transpiler() ... done [10:25:52.418] | : Transpile call expression ... [10:25:52.419] | : . local({ [10:25:52.419] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:52.419] | : . foreach(x = xs, .combine = c) %dofuture% local({ [10:25:52.419] | : . on.exit(.progressr_progressor()) [10:25:52.419] | : . { [10:25:52.419] | : . FUN(x) [10:25:52.419] | : . } [10:25:52.419] | : . }) [10:25:52.419] | : . }) [10:25:52.419] | : Transpile call expression ... done [10:25:52.420] | : Evaluate transpiled call expression [10:25:52.531] | transpile() ... done [10:25:52.532] progressify() ... done character(0) [10:25:52.532] progressify() ... [10:25:52.533] | transpile() ... [10:25:52.533] | : get_transpiler() ... [10:25:52.534] | : . Finding call to be transpiled ... [10:25:52.534] | : . | descend_wrappers() ... [10:25:52.535] | : . | : Call: [10:25:52.535] | : . | : `%dofuture%` [10:25:52.536] | : . | : parse_call() ... [10:25:52.536] | : . | : . Function: %dofuture%(...) [10:25:52.537] | : . | : . Locate function ... [10:25:52.537] | : . | : . | Function located in: 'doFuture' [10:25:52.538] | : . | : . Locate function ... done [10:25:52.538] | : . | : parse_call() ... done [10:25:52.539] | : . | descend_wrappers() ... done [10:25:52.540] | : . | parse_call() ... [10:25:52.540] | : . | : Function: %dofuture%(...) [10:25:52.541] | : . | : Locate function ... [10:25:52.541] | : . | : . Function located in: 'doFuture' [10:25:52.542] | : . | : Locate function ... done [10:25:52.542] | : . | parse_call() ... done [10:25:52.543] | : . | Position of call to be transpiled in expression: c(1) [10:25:52.543] | : . | `%dofuture%` [10:25:52.544] | : . Finding call to be transpiled ... done [10:25:52.544] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:52.545] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:52.545] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:52.546] | : . | Transpiler function: [10:25:52.546] | : . | function (expr, options) [10:25:52.546] | : . | { [10:25:52.546] | : . | ns <- getNamespace("doFuture") [10:25:52.546] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:52.546] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:52.546] | : . | envir = parent.frame()) [10:25:52.546] | : . | } [10:25:52.546] | : . | [10:25:52.547] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:52.547] | : get_transpiler() ... done [10:25:52.548] | : Transpile call expression ... [10:25:52.548] | : . local({ [10:25:52.548] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:52.548] | : . foreach(x = xs, .combine = c) %dofuture% local({ [10:25:52.548] | : . on.exit(.progressr_progressor()) [10:25:52.548] | : . { [10:25:52.548] | : . FUN(x) [10:25:52.548] | : . } [10:25:52.548] | : . }) [10:25:52.548] | : . }) [10:25:52.549] | : Transpile call expression ... done [10:25:52.550] | : Evaluate transpiled call expression [10:25:52.661] | transpile() ... done [10:25:52.662] progressify() ... done === %dofuture% ========================== foreach::foreach(x = xs, .combine = c) %dofuture% { FUN(x) } --------------------------------- progressify(foreach::foreach(x = xs, .combine = c) %dofuture% { FUN(x) }) [10:25:52.757] progressify() ... [10:25:52.758] | transpile() ... [10:25:52.759] | : get_transpiler() ... [10:25:52.759] | : . Finding call to be transpiled ... [10:25:52.760] | : . | descend_wrappers() ... [10:25:52.760] | : . | : Call: [10:25:52.760] | : . | : `%dofuture%` [10:25:52.761] | : . | : parse_call() ... [10:25:52.762] | : . | : . Function: %dofuture%(...) [10:25:52.762] | : . | : . Locate function ... [10:25:52.763] | : . | : . | Function located in: 'doFuture' [10:25:52.763] | : . | : . Locate function ... done [10:25:52.764] | : . | : parse_call() ... done [10:25:52.764] | : . | descend_wrappers() ... done [10:25:52.765] | : . | parse_call() ... [10:25:52.765] | : . | : Function: %dofuture%(...) [10:25:52.765] | : . | : Locate function ... [10:25:52.766] | : . | : . Function located in: 'doFuture' [10:25:52.766] | : . | : Locate function ... done [10:25:52.767] | : . | parse_call() ... done [10:25:52.767] | : . | Position of call to be transpiled in expression: c(1) [10:25:52.768] | : . | `%dofuture%` [10:25:52.768] | : . Finding call to be transpiled ... done [10:25:52.769] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:52.769] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:52.770] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:52.770] | : . | Transpiler function: [10:25:52.771] | : . | function (expr, options) [10:25:52.771] | : . | { [10:25:52.771] | : . | ns <- getNamespace("doFuture") [10:25:52.771] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:52.771] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:52.771] | : . | envir = parent.frame()) [10:25:52.771] | : . | } [10:25:52.771] | : . | [10:25:52.772] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:52.772] | : get_transpiler() ... done [10:25:52.773] | : Transpile call expression ... [10:25:52.773] | : . local({ [10:25:52.773] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:52.773] | : . foreach::foreach(x = xs, .combine = c) %dofuture% local({ [10:25:52.773] | : . on.exit(.progressr_progressor()) [10:25:52.773] | : . { [10:25:52.773] | : . FUN(x) [10:25:52.773] | : . } [10:25:52.773] | : . }) [10:25:52.773] | : . }) [10:25:52.774] | : Transpile call expression ... done [10:25:52.775] | : Evaluate transpiled call expression [10:25:52.880] | transpile() ... done [10:25:52.881] progressify() ... done num [1:5] 2.5 2.5 3 3.5 3.5 [10:25:52.882] progressify() ... [10:25:52.882] | transpile() ... [10:25:52.883] | : get_transpiler() ... [10:25:52.883] | : . Finding call to be transpiled ... [10:25:52.884] | : . | descend_wrappers() ... [10:25:52.884] | : . | : Call: [10:25:52.885] | : . | : `%dofuture%` [10:25:52.885] | : . | : parse_call() ... [10:25:52.886] | : . | : . Function: %dofuture%(...) [10:25:52.886] | : . | : . Locate function ... [10:25:52.887] | : . | : . | Function located in: 'doFuture' [10:25:52.887] | : . | : . Locate function ... done [10:25:52.887] | : . | : parse_call() ... done [10:25:52.888] | : . | descend_wrappers() ... done [10:25:52.888] | : . | parse_call() ... [10:25:52.889] | : . | : Function: %dofuture%(...) [10:25:52.889] | : . | : Locate function ... [10:25:52.889] | : . | : . Function located in: 'doFuture' [10:25:52.890] | : . | : Locate function ... done [10:25:52.890] | : . | parse_call() ... done [10:25:52.891] | : . | Position of call to be transpiled in expression: c(1) [10:25:52.891] | : . | `%dofuture%` [10:25:52.892] | : . Finding call to be transpiled ... done [10:25:52.892] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:52.893] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:52.893] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:52.893] | : . | Transpiler function: [10:25:52.894] | : . | function (expr, options) [10:25:52.894] | : . | { [10:25:52.894] | : . | ns <- getNamespace("doFuture") [10:25:52.894] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:52.894] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:52.894] | : . | envir = parent.frame()) [10:25:52.894] | : . | } [10:25:52.894] | : . | [10:25:52.896] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:52.896] | : get_transpiler() ... done [10:25:52.897] | : Transpile call expression ... [10:25:52.897] | : . local({ [10:25:52.897] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:52.897] | : . foreach::foreach(x = xs, .combine = c) %dofuture% local({ [10:25:52.897] | : . on.exit(.progressr_progressor()) [10:25:52.897] | : . { [10:25:52.897] | : . FUN(x) [10:25:52.897] | : . } [10:25:52.897] | : . }) [10:25:52.897] | : . }) [10:25:52.898] | : Transpile call expression ... done [10:25:52.898] | : Evaluate transpiled call expression [10:25:53.004] | transpile() ... done [10:25:53.005] progressify() ... done character(0) [10:25:53.006] progressify() ... [10:25:53.006] | transpile() ... [10:25:53.007] | : get_transpiler() ... [10:25:53.007] | : . Finding call to be transpiled ... [10:25:53.008] | : . | descend_wrappers() ... [10:25:53.008] | : . | : Call: [10:25:53.009] | : . | : `%dofuture%` [10:25:53.009] | : . | : parse_call() ... [10:25:53.010] | : . | : . Function: %dofuture%(...) [10:25:53.010] | : . | : . Locate function ... [10:25:53.011] | : . | : . | Function located in: 'doFuture' [10:25:53.011] | : . | : . Locate function ... done [10:25:53.012] | : . | : parse_call() ... done [10:25:53.012] | : . | descend_wrappers() ... done [10:25:53.013] | : . | parse_call() ... [10:25:53.013] | : . | : Function: %dofuture%(...) [10:25:53.014] | : . | : Locate function ... [10:25:53.014] | : . | : . Function located in: 'doFuture' [10:25:53.015] | : . | : Locate function ... done [10:25:53.015] | : . | parse_call() ... done [10:25:53.016] | : . | Position of call to be transpiled in expression: c(1) [10:25:53.016] | : . | `%dofuture%` [10:25:53.017] | : . Finding call to be transpiled ... done [10:25:53.017] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:53.018] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:53.018] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:53.019] | : . | Transpiler function: [10:25:53.019] | : . | function (expr, options) [10:25:53.019] | : . | { [10:25:53.019] | : . | ns <- getNamespace("doFuture") [10:25:53.019] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:53.019] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:53.019] | : . | envir = parent.frame()) [10:25:53.019] | : . | } [10:25:53.019] | : . | [10:25:53.020] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:53.020] | : get_transpiler() ... done [10:25:53.021] | : Transpile call expression ... [10:25:53.021] | : . local({ [10:25:53.021] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:53.021] | : . foreach::foreach(x = xs, .combine = c) %dofuture% local({ [10:25:53.021] | : . on.exit(.progressr_progressor()) [10:25:53.021] | : . { [10:25:53.021] | : . FUN(x) [10:25:53.021] | : . } [10:25:53.021] | : . }) [10:25:53.021] | : . }) [10:25:53.022] | : Transpile call expression ... done [10:25:53.023] | : Evaluate transpiled call expression [10:25:53.134] | transpile() ... done [10:25:53.134] progressify() ... done === %dofuture% ========================== foreach(x = xs) %dofuture% { FUN(x) } --------------------------------- progressify(foreach(x = xs) %dofuture% { FUN(x) }) [10:25:53.220] progressify() ... [10:25:53.220] | transpile() ... [10:25:53.221] | : get_transpiler() ... [10:25:53.221] | : . Finding call to be transpiled ... [10:25:53.221] | : . | descend_wrappers() ... [10:25:53.222] | : . | : Call: [10:25:53.222] | : . | : `%dofuture%` [10:25:53.223] | : . | : parse_call() ... [10:25:53.223] | : . | : . Function: %dofuture%(...) [10:25:53.224] | : . | : . Locate function ... [10:25:53.224] | : . | : . | Function located in: 'doFuture' [10:25:53.225] | : . | : . Locate function ... done [10:25:53.225] | : . | : parse_call() ... done [10:25:53.226] | : . | descend_wrappers() ... done [10:25:53.226] | : . | parse_call() ... [10:25:53.227] | : . | : Function: %dofuture%(...) [10:25:53.227] | : . | : Locate function ... [10:25:53.227] | : . | : . Function located in: 'doFuture' [10:25:53.228] | : . | : Locate function ... done [10:25:53.228] | : . | parse_call() ... done [10:25:53.229] | : . | Position of call to be transpiled in expression: c(1) [10:25:53.229] | : . | `%dofuture%` [10:25:53.230] | : . Finding call to be transpiled ... done [10:25:53.230] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:53.231] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:53.231] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:53.231] | : . | Transpiler function: [10:25:53.232] | : . | function (expr, options) [10:25:53.232] | : . | { [10:25:53.232] | : . | ns <- getNamespace("doFuture") [10:25:53.232] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:53.232] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:53.232] | : . | envir = parent.frame()) [10:25:53.232] | : . | } [10:25:53.232] | : . | [10:25:53.233] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:53.233] | : get_transpiler() ... done [10:25:53.233] | : Transpile call expression ... [10:25:53.234] | : . local({ [10:25:53.234] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:53.234] | : . foreach(x = xs) %dofuture% local({ [10:25:53.234] | : . on.exit(.progressr_progressor()) [10:25:53.234] | : . { [10:25:53.234] | : . FUN(x) [10:25:53.234] | : . } [10:25:53.234] | : . }) [10:25:53.234] | : . }) [10:25:53.235] | : Transpile call expression ... done [10:25:53.235] | : Evaluate transpiled call expression [10:25:53.331] | transpile() ... done [10:25:53.331] progressify() ... done List of 5 $ : num 2.5 $ : num 2.5 $ : num 3 $ : num 3.5 $ : num 3.5 [10:25:53.334] progressify() ... [10:25:53.334] | transpile() ... [10:25:53.335] | : get_transpiler() ... [10:25:53.335] | : . Finding call to be transpiled ... [10:25:53.335] | : . | descend_wrappers() ... [10:25:53.336] | : . | : Call: [10:25:53.336] | : . | : `%dofuture%` [10:25:53.337] | : . | : parse_call() ... [10:25:53.337] | : . | : . Function: %dofuture%(...) [10:25:53.338] | : . | : . Locate function ... [10:25:53.338] | : . | : . | Function located in: 'doFuture' [10:25:53.338] | : . | : . Locate function ... done [10:25:53.339] | : . | : parse_call() ... done [10:25:53.339] | : . | descend_wrappers() ... done [10:25:53.340] | : . | parse_call() ... [10:25:53.340] | : . | : Function: %dofuture%(...) [10:25:53.340] | : . | : Locate function ... [10:25:53.341] | : . | : . Function located in: 'doFuture' [10:25:53.341] | : . | : Locate function ... done [10:25:53.342] | : . | parse_call() ... done [10:25:53.342] | : . | Position of call to be transpiled in expression: c(1) [10:25:53.342] | : . | `%dofuture%` [10:25:53.343] | : . Finding call to be transpiled ... done [10:25:53.343] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:53.344] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:53.344] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:53.344] | : . | Transpiler function: [10:25:53.345] | : . | function (expr, options) [10:25:53.345] | : . | { [10:25:53.345] | : . | ns <- getNamespace("doFuture") [10:25:53.345] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:53.345] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:53.345] | : . | envir = parent.frame()) [10:25:53.345] | : . | } [10:25:53.345] | : . | [10:25:53.345] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:53.346] | : get_transpiler() ... done [10:25:53.346] | : Transpile call expression ... [10:25:53.346] | : . local({ [10:25:53.346] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:53.346] | : . foreach(x = xs) %dofuture% local({ [10:25:53.346] | : . on.exit(.progressr_progressor()) [10:25:53.346] | : . { [10:25:53.346] | : . FUN(x) [10:25:53.346] | : . } [10:25:53.346] | : . }) [10:25:53.346] | : . }) [10:25:53.347] | : Transpile call expression ... done [10:25:53.348] | : Evaluate transpiled call expression [10:25:53.434] | transpile() ... done [10:25:53.435] progressify() ... done character(0) [10:25:53.435] progressify() ... [10:25:53.436] | transpile() ... [10:25:53.436] | : get_transpiler() ... [10:25:53.436] | : . Finding call to be transpiled ... [10:25:53.437] | : . | descend_wrappers() ... [10:25:53.437] | : . | : Call: [10:25:53.438] | : . | : `%dofuture%` [10:25:53.438] | : . | : parse_call() ... [10:25:53.438] | : . | : . Function: %dofuture%(...) [10:25:53.439] | : . | : . Locate function ... [10:25:53.439] | : . | : . | Function located in: 'doFuture' [10:25:53.439] | : . | : . Locate function ... done [10:25:53.440] | : . | : parse_call() ... done [10:25:53.440] | : . | descend_wrappers() ... done [10:25:53.441] | : . | parse_call() ... [10:25:53.441] | : . | : Function: %dofuture%(...) [10:25:53.441] | : . | : Locate function ... [10:25:53.442] | : . | : . Function located in: 'doFuture' [10:25:53.442] | : . | : Locate function ... done [10:25:53.442] | : . | parse_call() ... done [10:25:53.443] | : . | Position of call to be transpiled in expression: c(1) [10:25:53.443] | : . | `%dofuture%` [10:25:53.444] | : . Finding call to be transpiled ... done [10:25:53.444] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:53.444] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:53.445] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:53.445] | : . | Transpiler function: [10:25:53.446] | : . | function (expr, options) [10:25:53.446] | : . | { [10:25:53.446] | : . | ns <- getNamespace("doFuture") [10:25:53.446] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:53.446] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:53.446] | : . | envir = parent.frame()) [10:25:53.446] | : . | } [10:25:53.446] | : . | [10:25:53.446] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:53.447] | : get_transpiler() ... done [10:25:53.447] | : Transpile call expression ... [10:25:53.447] | : . local({ [10:25:53.447] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:53.447] | : . foreach(x = xs) %dofuture% local({ [10:25:53.447] | : . on.exit(.progressr_progressor()) [10:25:53.447] | : . { [10:25:53.447] | : . FUN(x) [10:25:53.447] | : . } [10:25:53.447] | : . }) [10:25:53.447] | : . }) [10:25:53.448] | : Transpile call expression ... done [10:25:53.448] | : Evaluate transpiled call expression [10:25:53.531] | transpile() ... done [10:25:53.531] progressify() ... done === %dofuture% ========================== foreach(x = xs, .combine = list) %dofuture% { FUN(x) } --------------------------------- progressify(foreach(x = xs, .combine = list) %dofuture% { FUN(x) }) [10:25:53.597] progressify() ... [10:25:53.598] | transpile() ... [10:25:53.598] | : get_transpiler() ... [10:25:53.599] | : . Finding call to be transpiled ... [10:25:53.599] | : . | descend_wrappers() ... [10:25:53.599] | : . | : Call: [10:25:53.600] | : . | : `%dofuture%` [10:25:53.600] | : . | : parse_call() ... [10:25:53.601] | : . | : . Function: %dofuture%(...) [10:25:53.601] | : . | : . Locate function ... [10:25:53.601] | : . | : . | Function located in: 'doFuture' [10:25:53.602] | : . | : . Locate function ... done [10:25:53.602] | : . | : parse_call() ... done [10:25:53.602] | : . | descend_wrappers() ... done [10:25:53.603] | : . | parse_call() ... [10:25:53.603] | : . | : Function: %dofuture%(...) [10:25:53.603] | : . | : Locate function ... [10:25:53.604] | : . | : . Function located in: 'doFuture' [10:25:53.604] | : . | : Locate function ... done [10:25:53.604] | : . | parse_call() ... done [10:25:53.605] | : . | Position of call to be transpiled in expression: c(1) [10:25:53.605] | : . | `%dofuture%` [10:25:53.605] | : . Finding call to be transpiled ... done [10:25:53.606] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:53.606] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:53.607] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:53.607] | : . | Transpiler function: [10:25:53.607] | : . | function (expr, options) [10:25:53.607] | : . | { [10:25:53.607] | : . | ns <- getNamespace("doFuture") [10:25:53.607] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:53.607] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:53.607] | : . | envir = parent.frame()) [10:25:53.607] | : . | } [10:25:53.607] | : . | [10:25:53.608] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:53.608] | : get_transpiler() ... done [10:25:53.608] | : Transpile call expression ... [10:25:53.609] | : . local({ [10:25:53.609] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:53.609] | : . foreach(x = xs, .combine = list) %dofuture% local({ [10:25:53.609] | : . on.exit(.progressr_progressor()) [10:25:53.609] | : . { [10:25:53.609] | : . FUN(x) [10:25:53.609] | : . } [10:25:53.609] | : . }) [10:25:53.609] | : . }) [10:25:53.609] | : Transpile call expression ... done [10:25:53.610] | : Evaluate transpiled call expression [10:25:53.691] | transpile() ... done [10:25:53.691] progressify() ... done List of 2 $ :List of 2 ..$ :List of 2 .. ..$ :List of 2 .. .. ..$ : num 2.5 .. .. ..$ : num 2.5 .. ..$ : num 3 ..$ : num 3.5 $ : num 3.5 [10:25:53.694] progressify() ... [10:25:53.694] | transpile() ... [10:25:53.695] | : get_transpiler() ... [10:25:53.695] | : . Finding call to be transpiled ... [10:25:53.695] | : . | descend_wrappers() ... [10:25:53.696] | : . | : Call: [10:25:53.696] | : . | : `%dofuture%` [10:25:53.697] | : . | : parse_call() ... [10:25:53.697] | : . | : . Function: %dofuture%(...) [10:25:53.697] | : . | : . Locate function ... [10:25:53.698] | : . | : . | Function located in: 'doFuture' [10:25:53.698] | : . | : . Locate function ... done [10:25:53.699] | : . | : parse_call() ... done [10:25:53.699] | : . | descend_wrappers() ... done [10:25:53.699] | : . | parse_call() ... [10:25:53.700] | : . | : Function: %dofuture%(...) [10:25:53.700] | : . | : Locate function ... [10:25:53.700] | : . | : . Function located in: 'doFuture' [10:25:53.701] | : . | : Locate function ... done [10:25:53.701] | : . | parse_call() ... done [10:25:53.701] | : . | Position of call to be transpiled in expression: c(1) [10:25:53.702] | : . | `%dofuture%` [10:25:53.702] | : . Finding call to be transpiled ... done [10:25:53.703] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:53.703] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:53.703] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:53.704] | : . | Transpiler function: [10:25:53.704] | : . | function (expr, options) [10:25:53.704] | : . | { [10:25:53.704] | : . | ns <- getNamespace("doFuture") [10:25:53.704] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:53.704] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:53.704] | : . | envir = parent.frame()) [10:25:53.704] | : . | } [10:25:53.704] | : . | [10:25:53.704] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:53.705] | : get_transpiler() ... done [10:25:53.705] | : Transpile call expression ... [10:25:53.706] | : . local({ [10:25:53.706] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:53.706] | : . foreach(x = xs, .combine = list) %dofuture% local({ [10:25:53.706] | : . on.exit(.progressr_progressor()) [10:25:53.706] | : . { [10:25:53.706] | : . FUN(x) [10:25:53.706] | : . } [10:25:53.706] | : . }) [10:25:53.706] | : . }) [10:25:53.706] | : Transpile call expression ... done [10:25:53.707] | : Evaluate transpiled call expression [10:25:53.788] | transpile() ... done [10:25:53.789] progressify() ... done character(0) [10:25:53.789] progressify() ... [10:25:53.790] | transpile() ... [10:25:53.790] | : get_transpiler() ... [10:25:53.790] | : . Finding call to be transpiled ... [10:25:53.791] | : . | descend_wrappers() ... [10:25:53.791] | : . | : Call: [10:25:53.791] | : . | : `%dofuture%` [10:25:53.792] | : . | : parse_call() ... [10:25:53.792] | : . | : . Function: %dofuture%(...) [10:25:53.792] | : . | : . Locate function ... [10:25:53.793] | : . | : . | Function located in: 'doFuture' [10:25:53.793] | : . | : . Locate function ... done [10:25:53.793] | : . | : parse_call() ... done [10:25:53.794] | : . | descend_wrappers() ... done [10:25:53.794] | : . | parse_call() ... [10:25:53.794] | : . | : Function: %dofuture%(...) [10:25:53.795] | : . | : Locate function ... [10:25:53.795] | : . | : . Function located in: 'doFuture' [10:25:53.795] | : . | : Locate function ... done [10:25:53.796] | : . | parse_call() ... done [10:25:53.796] | : . | Position of call to be transpiled in expression: c(1) [10:25:53.796] | : . | `%dofuture%` [10:25:53.797] | : . Finding call to be transpiled ... done [10:25:53.797] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... [10:25:53.798] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:53.798] | : . | Transpiler description: doFuture::`%dofuture%` transpiler [10:25:53.798] | : . | Transpiler function: [10:25:53.799] | : . | function (expr, options) [10:25:53.799] | : . | { [10:25:53.799] | : . | ns <- getNamespace("doFuture") [10:25:53.799] | : . | fcn <- get("%dofuture%", mode = "function", envir = ns) [10:25:53.799] | : . | progressify_foreach(expr, fcn_name = "%dofuture%", fcn = fcn, [10:25:53.799] | : . | envir = parent.frame()) [10:25:53.799] | : . | } [10:25:53.799] | : . | [10:25:53.799] | : . Locating 'progressify::built-in' transpiler for doFuture::%dofuture%() of class 'function' ... done [10:25:53.800] | : get_transpiler() ... done [10:25:53.800] | : Transpile call expression ... [10:25:53.800] | : . local({ [10:25:53.800] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:53.800] | : . foreach(x = xs, .combine = list) %dofuture% local({ [10:25:53.800] | : . on.exit(.progressr_progressor()) [10:25:53.800] | : . { [10:25:53.800] | : . FUN(x) [10:25:53.800] | : . } [10:25:53.800] | : . }) [10:25:53.800] | : . }) [10:25:53.801] | : Transpile call expression ... done [10:25:53.801] | : Evaluate transpiled call expression [10:25:53.881] | transpile() ... done [10:25:53.882] progressify() ... done Test time: user.self=2s, sys.self=0.07s, elapsed=2s, user.child=NAs, sys.child=NAs Test 'progressify-foreach-doFuture' ... success > > proc.time() user system elapsed 2.21 0.10 2.32