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.R > ## Don't edit - it was autogenerated by inst/testme/deploy.R > progressify:::testme("progressify-foreach") Test 'progressify-foreach' ... chr "none" > if (requireNamespace("foreach")) { + library(progressify) + library(foreach) + options(progressify.debug = TRUE) + xs <- 1:5 + F .... [TRUNCATED] Loading required namespace: foreach Loading required package: progressr === %do% ========================== foreach(x = xs, .combine = c) %do% { FUN(x) } --------------------------------- progressify(foreach(x = xs, .combine = c) %do% { FUN(x) }) [10:25:54.362] progressify() ... [10:25:54.363] | transpile() ... [10:25:54.364] | : get_transpiler() ... [10:25:54.365] | : . Finding call to be transpiled ... [10:25:54.365] | : . | descend_wrappers() ... [10:25:54.366] | : . | : Call: [10:25:54.366] | : . | : `%do%` [10:25:54.367] | : . | : parse_call() ... [10:25:54.368] | : . | : . Function: %do%(...) [10:25:54.368] | : . | : . Locate function ... [10:25:54.369] | : . | : . | Function located in: 'foreach' [10:25:54.369] | : . | : . Locate function ... done [10:25:54.370] | : . | : parse_call() ... done [10:25:54.370] | : . | descend_wrappers() ... done [10:25:54.371] | : . | parse_call() ... [10:25:54.371] | : . | : Function: %do%(...) [10:25:54.372] | : . | : Locate function ... [10:25:54.372] | : . | : . Function located in: 'foreach' [10:25:54.373] | : . | : Locate function ... done [10:25:54.373] | : . | parse_call() ... done [10:25:54.374] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.374] | : . | `%do%` [10:25:54.375] | : . Finding call to be transpiled ... done [10:25:54.375] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.376] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.376] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.377] | : . | Transpiler function: [10:25:54.377] | : . | function (expr, options) [10:25:54.377] | : . | { [10:25:54.377] | : . | ns <- getNamespace("foreach") [10:25:54.377] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.377] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.377] | : . | } [10:25:54.377] | : . | [10:25:54.378] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.379] | : get_transpiler() ... done [10:25:54.379] | : Transpile call expression ... [10:25:54.380] | : . local({ [10:25:54.380] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.380] | : . foreach(x = xs, .combine = c) %do% local({ [10:25:54.380] | : . on.exit(.progressr_progressor()) [10:25:54.380] | : . { [10:25:54.380] | : . FUN(x) [10:25:54.380] | : . } [10:25:54.380] | : . }) [10:25:54.380] | : . }) [10:25:54.381] | : Transpile call expression ... done [10:25:54.381] | : Evaluate transpiled call expression [10:25:54.386] | transpile() ... done [10:25:54.386] progressify() ... done num [1:5] 2.5 2.5 3 3.5 3.5 [10:25:54.388] progressify() ... [10:25:54.388] | transpile() ... [10:25:54.389] | : get_transpiler() ... [10:25:54.389] | : . Finding call to be transpiled ... [10:25:54.390] | : . | descend_wrappers() ... [10:25:54.390] | : . | : Call: [10:25:54.391] | : . | : `%do%` [10:25:54.391] | : . | : parse_call() ... [10:25:54.392] | : . | : . Function: %do%(...) [10:25:54.392] | : . | : . Locate function ... [10:25:54.393] | : . | : . | Function located in: 'foreach' [10:25:54.393] | : . | : . Locate function ... done [10:25:54.394] | : . | : parse_call() ... done [10:25:54.394] | : . | descend_wrappers() ... done [10:25:54.395] | : . | parse_call() ... [10:25:54.395] | : . | : Function: %do%(...) [10:25:54.396] | : . | : Locate function ... [10:25:54.396] | : . | : . Function located in: 'foreach' [10:25:54.397] | : . | : Locate function ... done [10:25:54.397] | : . | parse_call() ... done [10:25:54.398] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.398] | : . | `%do%` [10:25:54.399] | : . Finding call to be transpiled ... done [10:25:54.399] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.400] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.400] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.401] | : . | Transpiler function: [10:25:54.401] | : . | function (expr, options) [10:25:54.401] | : . | { [10:25:54.401] | : . | ns <- getNamespace("foreach") [10:25:54.401] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.401] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.401] | : . | } [10:25:54.401] | : . | [10:25:54.402] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.402] | : get_transpiler() ... done [10:25:54.403] | : Transpile call expression ... [10:25:54.403] | : . local({ [10:25:54.403] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.403] | : . foreach(x = xs, .combine = c) %do% local({ [10:25:54.403] | : . on.exit(.progressr_progressor()) [10:25:54.403] | : . { [10:25:54.403] | : . FUN(x) [10:25:54.403] | : . } [10:25:54.403] | : . }) [10:25:54.403] | : . }) [10:25:54.404] | : Transpile call expression ... done [10:25:54.405] | : Evaluate transpiled call expression [10:25:54.411] | transpile() ... done [10:25:54.411] progressify() ... done character(0) [10:25:54.412] progressify() ... [10:25:54.412] | transpile() ... [10:25:54.413] | : get_transpiler() ... [10:25:54.413] | : . Finding call to be transpiled ... [10:25:54.414] | : . | descend_wrappers() ... [10:25:54.414] | : . | : Call: [10:25:54.415] | : . | : `%do%` [10:25:54.415] | : . | : parse_call() ... [10:25:54.416] | : . | : . Function: %do%(...) [10:25:54.416] | : . | : . Locate function ... [10:25:54.417] | : . | : . | Function located in: 'foreach' [10:25:54.417] | : . | : . Locate function ... done [10:25:54.418] | : . | : parse_call() ... done [10:25:54.418] | : . | descend_wrappers() ... done [10:25:54.418] | : . | parse_call() ... [10:25:54.419] | : . | : Function: %do%(...) [10:25:54.419] | : . | : Locate function ... [10:25:54.420] | : . | : . Function located in: 'foreach' [10:25:54.420] | : . | : Locate function ... done [10:25:54.421] | : . | parse_call() ... done [10:25:54.421] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.422] | : . | `%do%` [10:25:54.422] | : . Finding call to be transpiled ... done [10:25:54.423] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.423] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.424] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.424] | : . | Transpiler function: [10:25:54.425] | : . | function (expr, options) [10:25:54.425] | : . | { [10:25:54.425] | : . | ns <- getNamespace("foreach") [10:25:54.425] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.425] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.425] | : . | } [10:25:54.425] | : . | [10:25:54.426] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.426] | : get_transpiler() ... done [10:25:54.427] | : Transpile call expression ... [10:25:54.427] | : . local({ [10:25:54.427] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.427] | : . foreach(x = xs, .combine = c) %do% local({ [10:25:54.427] | : . on.exit(.progressr_progressor()) [10:25:54.427] | : . { [10:25:54.427] | : . FUN(x) [10:25:54.427] | : . } [10:25:54.427] | : . }) [10:25:54.427] | : . }) [10:25:54.428] | : Transpile call expression ... done [10:25:54.428] | : Evaluate transpiled call expression [10:25:54.433] | transpile() ... done [10:25:54.433] progressify() ... done === %do% ========================== foreach::foreach(x = xs, .combine = c) %do% { FUN(x) } --------------------------------- progressify(foreach::foreach(x = xs, .combine = c) %do% { FUN(x) }) [10:25:54.436] progressify() ... [10:25:54.437] | transpile() ... [10:25:54.437] | : get_transpiler() ... [10:25:54.438] | : . Finding call to be transpiled ... [10:25:54.438] | : . | descend_wrappers() ... [10:25:54.439] | : . | : Call: [10:25:54.439] | : . | : `%do%` [10:25:54.440] | : . | : parse_call() ... [10:25:54.440] | : . | : . Function: %do%(...) [10:25:54.441] | : . | : . Locate function ... [10:25:54.441] | : . | : . | Function located in: 'foreach' [10:25:54.442] | : . | : . Locate function ... done [10:25:54.442] | : . | : parse_call() ... done [10:25:54.443] | : . | descend_wrappers() ... done [10:25:54.443] | : . | parse_call() ... [10:25:54.444] | : . | : Function: %do%(...) [10:25:54.444] | : . | : Locate function ... [10:25:54.445] | : . | : . Function located in: 'foreach' [10:25:54.445] | : . | : Locate function ... done [10:25:54.446] | : . | parse_call() ... done [10:25:54.446] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.447] | : . | `%do%` [10:25:54.447] | : . Finding call to be transpiled ... done [10:25:54.448] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.448] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.449] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.449] | : . | Transpiler function: [10:25:54.450] | : . | function (expr, options) [10:25:54.450] | : . | { [10:25:54.450] | : . | ns <- getNamespace("foreach") [10:25:54.450] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.450] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.450] | : . | } [10:25:54.450] | : . | [10:25:54.450] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.451] | : get_transpiler() ... done [10:25:54.451] | : Transpile call expression ... [10:25:54.452] | : . local({ [10:25:54.452] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.452] | : . foreach::foreach(x = xs, .combine = c) %do% local({ [10:25:54.452] | : . on.exit(.progressr_progressor()) [10:25:54.452] | : . { [10:25:54.452] | : . FUN(x) [10:25:54.452] | : . } [10:25:54.452] | : . }) [10:25:54.452] | : . }) [10:25:54.453] | : Transpile call expression ... done [10:25:54.453] | : Evaluate transpiled call expression [10:25:54.457] | transpile() ... done [10:25:54.458] progressify() ... done num [1:5] 2.5 2.5 3 3.5 3.5 [10:25:54.459] progressify() ... [10:25:54.459] | transpile() ... [10:25:54.460] | : get_transpiler() ... [10:25:54.460] | : . Finding call to be transpiled ... [10:25:54.461] | : . | descend_wrappers() ... [10:25:54.461] | : . | : Call: [10:25:54.462] | : . | : `%do%` [10:25:54.463] | : . | : parse_call() ... [10:25:54.464] | : . | : . Function: %do%(...) [10:25:54.464] | : . | : . Locate function ... [10:25:54.465] | : . | : . | Function located in: 'foreach' [10:25:54.465] | : . | : . Locate function ... done [10:25:54.466] | : . | : parse_call() ... done [10:25:54.466] | : . | descend_wrappers() ... done [10:25:54.467] | : . | parse_call() ... [10:25:54.467] | : . | : Function: %do%(...) [10:25:54.468] | : . | : Locate function ... [10:25:54.468] | : . | : . Function located in: 'foreach' [10:25:54.468] | : . | : Locate function ... done [10:25:54.469] | : . | parse_call() ... done [10:25:54.469] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.470] | : . | `%do%` [10:25:54.471] | : . Finding call to be transpiled ... done [10:25:54.471] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.472] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.472] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.472] | : . | Transpiler function: [10:25:54.473] | : . | function (expr, options) [10:25:54.473] | : . | { [10:25:54.473] | : . | ns <- getNamespace("foreach") [10:25:54.473] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.473] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.473] | : . | } [10:25:54.473] | : . | [10:25:54.474] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.474] | : get_transpiler() ... done [10:25:54.475] | : Transpile call expression ... [10:25:54.475] | : . local({ [10:25:54.475] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.475] | : . foreach::foreach(x = xs, .combine = c) %do% local({ [10:25:54.475] | : . on.exit(.progressr_progressor()) [10:25:54.475] | : . { [10:25:54.475] | : . FUN(x) [10:25:54.475] | : . } [10:25:54.475] | : . }) [10:25:54.475] | : . }) [10:25:54.476] | : Transpile call expression ... done [10:25:54.477] | : Evaluate transpiled call expression [10:25:54.481] | transpile() ... done [10:25:54.481] progressify() ... done character(0) [10:25:54.482] progressify() ... [10:25:54.482] | transpile() ... [10:25:54.483] | : get_transpiler() ... [10:25:54.483] | : . Finding call to be transpiled ... [10:25:54.484] | : . | descend_wrappers() ... [10:25:54.484] | : . | : Call: [10:25:54.485] | : . | : `%do%` [10:25:54.485] | : . | : parse_call() ... [10:25:54.486] | : . | : . Function: %do%(...) [10:25:54.486] | : . | : . Locate function ... [10:25:54.487] | : . | : . | Function located in: 'foreach' [10:25:54.487] | : . | : . Locate function ... done [10:25:54.488] | : . | : parse_call() ... done [10:25:54.488] | : . | descend_wrappers() ... done [10:25:54.489] | : . | parse_call() ... [10:25:54.489] | : . | : Function: %do%(...) [10:25:54.490] | : . | : Locate function ... [10:25:54.490] | : . | : . Function located in: 'foreach' [10:25:54.490] | : . | : Locate function ... done [10:25:54.491] | : . | parse_call() ... done [10:25:54.491] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.492] | : . | `%do%` [10:25:54.493] | : . Finding call to be transpiled ... done [10:25:54.493] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.494] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.494] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.495] | : . | Transpiler function: [10:25:54.495] | : . | function (expr, options) [10:25:54.495] | : . | { [10:25:54.495] | : . | ns <- getNamespace("foreach") [10:25:54.495] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.495] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.495] | : . | } [10:25:54.495] | : . | [10:25:54.496] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.496] | : get_transpiler() ... done [10:25:54.497] | : Transpile call expression ... [10:25:54.497] | : . local({ [10:25:54.497] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.497] | : . foreach::foreach(x = xs, .combine = c) %do% local({ [10:25:54.497] | : . on.exit(.progressr_progressor()) [10:25:54.497] | : . { [10:25:54.497] | : . FUN(x) [10:25:54.497] | : . } [10:25:54.497] | : . }) [10:25:54.497] | : . }) [10:25:54.498] | : Transpile call expression ... done [10:25:54.499] | : Evaluate transpiled call expression [10:25:54.503] | transpile() ... done [10:25:54.503] progressify() ... done === %do% ========================== foreach(x = xs) %do% { FUN(x) } --------------------------------- progressify(foreach(x = xs) %do% { FUN(x) }) [10:25:54.506] progressify() ... [10:25:54.507] | transpile() ... [10:25:54.507] | : get_transpiler() ... [10:25:54.508] | : . Finding call to be transpiled ... [10:25:54.508] | : . | descend_wrappers() ... [10:25:54.509] | : . | : Call: [10:25:54.509] | : . | : `%do%` [10:25:54.510] | : . | : parse_call() ... [10:25:54.510] | : . | : . Function: %do%(...) [10:25:54.511] | : . | : . Locate function ... [10:25:54.511] | : . | : . | Function located in: 'foreach' [10:25:54.512] | : . | : . Locate function ... done [10:25:54.512] | : . | : parse_call() ... done [10:25:54.513] | : . | descend_wrappers() ... done [10:25:54.513] | : . | parse_call() ... [10:25:54.513] | : . | : Function: %do%(...) [10:25:54.514] | : . | : Locate function ... [10:25:54.514] | : . | : . Function located in: 'foreach' [10:25:54.515] | : . | : Locate function ... done [10:25:54.515] | : . | parse_call() ... done [10:25:54.516] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.516] | : . | `%do%` [10:25:54.517] | : . Finding call to be transpiled ... done [10:25:54.517] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.518] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.518] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.519] | : . | Transpiler function: [10:25:54.519] | : . | function (expr, options) [10:25:54.519] | : . | { [10:25:54.519] | : . | ns <- getNamespace("foreach") [10:25:54.519] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.519] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.519] | : . | } [10:25:54.519] | : . | [10:25:54.520] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.520] | : get_transpiler() ... done [10:25:54.521] | : Transpile call expression ... [10:25:54.522] | : . local({ [10:25:54.522] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.522] | : . foreach(x = xs) %do% local({ [10:25:54.522] | : . on.exit(.progressr_progressor()) [10:25:54.522] | : . { [10:25:54.522] | : . FUN(x) [10:25:54.522] | : . } [10:25:54.522] | : . }) [10:25:54.522] | : . }) [10:25:54.523] | : Transpile call expression ... done [10:25:54.524] | : Evaluate transpiled call expression [10:25:54.528] | transpile() ... done [10:25:54.528] progressify() ... done List of 5 $ : num 2.5 $ : num 2.5 $ : num 3 $ : num 3.5 $ : num 3.5 [10:25:54.531] progressify() ... [10:25:54.532] | transpile() ... [10:25:54.532] | : get_transpiler() ... [10:25:54.533] | : . Finding call to be transpiled ... [10:25:54.533] | : . | descend_wrappers() ... [10:25:54.534] | : . | : Call: [10:25:54.534] | : . | : `%do%` [10:25:54.535] | : . | : parse_call() ... [10:25:54.535] | : . | : . Function: %do%(...) [10:25:54.536] | : . | : . Locate function ... [10:25:54.536] | : . | : . | Function located in: 'foreach' [10:25:54.537] | : . | : . Locate function ... done [10:25:54.537] | : . | : parse_call() ... done [10:25:54.538] | : . | descend_wrappers() ... done [10:25:54.538] | : . | parse_call() ... [10:25:54.539] | : . | : Function: %do%(...) [10:25:54.539] | : . | : Locate function ... [10:25:54.540] | : . | : . Function located in: 'foreach' [10:25:54.540] | : . | : Locate function ... done [10:25:54.541] | : . | parse_call() ... done [10:25:54.541] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.542] | : . | `%do%` [10:25:54.542] | : . Finding call to be transpiled ... done [10:25:54.543] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.543] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.544] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.544] | : . | Transpiler function: [10:25:54.545] | : . | function (expr, options) [10:25:54.545] | : . | { [10:25:54.545] | : . | ns <- getNamespace("foreach") [10:25:54.545] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.545] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.545] | : . | } [10:25:54.545] | : . | [10:25:54.545] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.546] | : get_transpiler() ... done [10:25:54.546] | : Transpile call expression ... [10:25:54.547] | : . local({ [10:25:54.547] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.547] | : . foreach(x = xs) %do% local({ [10:25:54.547] | : . on.exit(.progressr_progressor()) [10:25:54.547] | : . { [10:25:54.547] | : . FUN(x) [10:25:54.547] | : . } [10:25:54.547] | : . }) [10:25:54.547] | : . }) [10:25:54.548] | : Transpile call expression ... done [10:25:54.548] | : Evaluate transpiled call expression [10:25:54.552] | transpile() ... done [10:25:54.553] progressify() ... done character(0) [10:25:54.553] progressify() ... [10:25:54.554] | transpile() ... [10:25:54.554] | : get_transpiler() ... [10:25:54.555] | : . Finding call to be transpiled ... [10:25:54.555] | : . | descend_wrappers() ... [10:25:54.556] | : . | : Call: [10:25:54.556] | : . | : `%do%` [10:25:54.557] | : . | : parse_call() ... [10:25:54.557] | : . | : . Function: %do%(...) [10:25:54.558] | : . | : . Locate function ... [10:25:54.558] | : . | : . | Function located in: 'foreach' [10:25:54.559] | : . | : . Locate function ... done [10:25:54.559] | : . | : parse_call() ... done [10:25:54.560] | : . | descend_wrappers() ... done [10:25:54.560] | : . | parse_call() ... [10:25:54.560] | : . | : Function: %do%(...) [10:25:54.561] | : . | : Locate function ... [10:25:54.561] | : . | : . Function located in: 'foreach' [10:25:54.562] | : . | : Locate function ... done [10:25:54.562] | : . | parse_call() ... done [10:25:54.563] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.563] | : . | `%do%` [10:25:54.564] | : . Finding call to be transpiled ... done [10:25:54.564] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.565] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.565] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.566] | : . | Transpiler function: [10:25:54.566] | : . | function (expr, options) [10:25:54.566] | : . | { [10:25:54.566] | : . | ns <- getNamespace("foreach") [10:25:54.566] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.566] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.566] | : . | } [10:25:54.566] | : . | [10:25:54.567] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.567] | : get_transpiler() ... done [10:25:54.568] | : Transpile call expression ... [10:25:54.568] | : . local({ [10:25:54.568] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.568] | : . foreach(x = xs) %do% local({ [10:25:54.568] | : . on.exit(.progressr_progressor()) [10:25:54.568] | : . { [10:25:54.568] | : . FUN(x) [10:25:54.568] | : . } [10:25:54.568] | : . }) [10:25:54.568] | : . }) [10:25:54.569] | : Transpile call expression ... done [10:25:54.570] | : Evaluate transpiled call expression [10:25:54.575] | transpile() ... done [10:25:54.575] progressify() ... done === %do% ========================== foreach(x = xs, .combine = list) %do% { FUN(x) } --------------------------------- progressify(foreach(x = xs, .combine = list) %do% { FUN(x) }) [10:25:54.579] progressify() ... [10:25:54.579] | transpile() ... [10:25:54.580] | : get_transpiler() ... [10:25:54.580] | : . Finding call to be transpiled ... [10:25:54.581] | : . | descend_wrappers() ... [10:25:54.581] | : . | : Call: [10:25:54.581] | : . | : `%do%` [10:25:54.582] | : . | : parse_call() ... [10:25:54.583] | : . | : . Function: %do%(...) [10:25:54.583] | : . | : . Locate function ... [10:25:54.584] | : . | : . | Function located in: 'foreach' [10:25:54.584] | : . | : . Locate function ... done [10:25:54.584] | : . | : parse_call() ... done [10:25:54.585] | : . | descend_wrappers() ... done [10:25:54.585] | : . | parse_call() ... [10:25:54.586] | : . | : Function: %do%(...) [10:25:54.586] | : . | : Locate function ... [10:25:54.587] | : . | : . Function located in: 'foreach' [10:25:54.587] | : . | : Locate function ... done [10:25:54.588] | : . | parse_call() ... done [10:25:54.588] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.589] | : . | `%do%` [10:25:54.589] | : . Finding call to be transpiled ... done [10:25:54.590] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.590] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.591] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.591] | : . | Transpiler function: [10:25:54.592] | : . | function (expr, options) [10:25:54.592] | : . | { [10:25:54.592] | : . | ns <- getNamespace("foreach") [10:25:54.592] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.592] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.592] | : . | } [10:25:54.592] | : . | [10:25:54.592] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.593] | : get_transpiler() ... done [10:25:54.593] | : Transpile call expression ... [10:25:54.594] | : . local({ [10:25:54.594] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.594] | : . foreach(x = xs, .combine = list) %do% local({ [10:25:54.594] | : . on.exit(.progressr_progressor()) [10:25:54.594] | : . { [10:25:54.594] | : . FUN(x) [10:25:54.594] | : . } [10:25:54.594] | : . }) [10:25:54.594] | : . }) [10:25:54.595] | : Transpile call expression ... done [10:25:54.595] | : Evaluate transpiled call expression [10:25:54.599] | transpile() ... done [10:25:54.600] 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:54.604] progressify() ... [10:25:54.604] | transpile() ... [10:25:54.605] | : get_transpiler() ... [10:25:54.605] | : . Finding call to be transpiled ... [10:25:54.606] | : . | descend_wrappers() ... [10:25:54.606] | : . | : Call: [10:25:54.607] | : . | : `%do%` [10:25:54.607] | : . | : parse_call() ... [10:25:54.608] | : . | : . Function: %do%(...) [10:25:54.608] | : . | : . Locate function ... [10:25:54.609] | : . | : . | Function located in: 'foreach' [10:25:54.609] | : . | : . Locate function ... done [10:25:54.609] | : . | : parse_call() ... done [10:25:54.610] | : . | descend_wrappers() ... done [10:25:54.610] | : . | parse_call() ... [10:25:54.611] | : . | : Function: %do%(...) [10:25:54.611] | : . | : Locate function ... [10:25:54.612] | : . | : . Function located in: 'foreach' [10:25:54.612] | : . | : Locate function ... done [10:25:54.613] | : . | parse_call() ... done [10:25:54.613] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.614] | : . | `%do%` [10:25:54.614] | : . Finding call to be transpiled ... done [10:25:54.615] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.615] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.616] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.616] | : . | Transpiler function: [10:25:54.617] | : . | function (expr, options) [10:25:54.617] | : . | { [10:25:54.617] | : . | ns <- getNamespace("foreach") [10:25:54.617] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.617] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.617] | : . | } [10:25:54.617] | : . | [10:25:54.617] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.618] | : get_transpiler() ... done [10:25:54.618] | : Transpile call expression ... [10:25:54.619] | : . local({ [10:25:54.619] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.619] | : . foreach(x = xs, .combine = list) %do% local({ [10:25:54.619] | : . on.exit(.progressr_progressor()) [10:25:54.619] | : . { [10:25:54.619] | : . FUN(x) [10:25:54.619] | : . } [10:25:54.619] | : . }) [10:25:54.619] | : . }) [10:25:54.620] | : Transpile call expression ... done [10:25:54.620] | : Evaluate transpiled call expression [10:25:54.625] | transpile() ... done [10:25:54.626] progressify() ... done character(0) [10:25:54.626] progressify() ... [10:25:54.627] | transpile() ... [10:25:54.627] | : get_transpiler() ... [10:25:54.628] | : . Finding call to be transpiled ... [10:25:54.628] | : . | descend_wrappers() ... [10:25:54.629] | : . | : Call: [10:25:54.629] | : . | : `%do%` [10:25:54.630] | : . | : parse_call() ... [10:25:54.630] | : . | : . Function: %do%(...) [10:25:54.631] | : . | : . Locate function ... [10:25:54.631] | : . | : . | Function located in: 'foreach' [10:25:54.632] | : . | : . Locate function ... done [10:25:54.632] | : . | : parse_call() ... done [10:25:54.633] | : . | descend_wrappers() ... done [10:25:54.633] | : . | parse_call() ... [10:25:54.634] | : . | : Function: %do%(...) [10:25:54.634] | : . | : Locate function ... [10:25:54.635] | : . | : . Function located in: 'foreach' [10:25:54.635] | : . | : Locate function ... done [10:25:54.636] | : . | parse_call() ... done [10:25:54.636] | : . | Position of call to be transpiled in expression: c(1) [10:25:54.637] | : . | `%do%` [10:25:54.637] | : . Finding call to be transpiled ... done [10:25:54.638] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... [10:25:54.638] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:25:54.639] | : . | Transpiler description: foreach::`%do%` transpiler [10:25:54.639] | : . | Transpiler function: [10:25:54.640] | : . | function (expr, options) [10:25:54.640] | : . | { [10:25:54.640] | : . | ns <- getNamespace("foreach") [10:25:54.640] | : . | fcn <- get("%do%", mode = "function", envir = ns) [10:25:54.640] | : . | progressify_foreach(expr, fcn_name = "%do%", fcn = fcn, envir = parent.frame()) [10:25:54.640] | : . | } [10:25:54.640] | : . | [10:25:54.640] | : . Locating 'progressify::built-in' transpiler for foreach::%do%() of class 'function' ... done [10:25:54.641] | : get_transpiler() ... done [10:25:54.641] | : Transpile call expression ... [10:25:54.642] | : . local({ [10:25:54.642] | : . .progressr_progressor <- progressr::progressor(along = xs) [10:25:54.642] | : . foreach(x = xs, .combine = list) %do% local({ [10:25:54.642] | : . on.exit(.progressr_progressor()) [10:25:54.642] | : . { [10:25:54.642] | : . FUN(x) [10:25:54.642] | : . } [10:25:54.642] | : . }) [10:25:54.642] | : . }) [10:25:54.643] | : Transpile call expression ... done [10:25:54.643] | : Evaluate transpiled call expression [10:25:54.647] | transpile() ... done [10:25:54.648] progressify() ... done Test time: user.self=0.4s, sys.self=0.05s, elapsed=0.4s, user.child=NAs, sys.child=NAs Test 'progressify-foreach' ... success > > proc.time() user system elapsed 0.65 0.09 0.73