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-partykit.R > ## Don't edit - it was autogenerated by inst/testme/deploy.R > progressify:::testme("progressify-partykit") Test 'progressify-partykit' ... chr "none" > if (requireNamespace("partykit")) { + library(progressify) + library(partykit) + options(progressify.debug = TRUE) + data("Titanic", .... [TRUNCATED] Loading required namespace: partykit Loading required package: progressr Loading required package: grid Loading required package: libcoin Loading required package: mvtnorm === cforest ========================== cforest(Survived ~ ., data = tt, ntree = 20L) --------------------------------- progressify(cforest(Survived ~ ., data = tt, ntree = 20L)) [10:26:38.622] progressify() ... [10:26:38.624] | transpile() ... [10:26:38.625] | : get_transpiler() ... [10:26:38.625] | : . Finding call to be transpiled ... [10:26:38.626] | : . | descend_wrappers() ... [10:26:38.626] | : . | : Call: [10:26:38.627] | : . | : cforest [10:26:38.628] | : . | : parse_call() ... [10:26:38.629] | : . | : . Function: cforest(...) [10:26:38.629] | : . | : . Locate function ... [10:26:38.630] | : . | : . | Function located in: 'partykit' [10:26:38.630] | : . | : . Locate function ... done [10:26:38.631] | : . | : parse_call() ... done [10:26:38.631] | : . | descend_wrappers() ... done [10:26:38.632] | : . | parse_call() ... [10:26:38.632] | : . | : Function: cforest(...) [10:26:38.633] | : . | : Locate function ... [10:26:38.633] | : . | : . Function located in: 'partykit' [10:26:38.634] | : . | : Locate function ... done [10:26:38.634] | : . | parse_call() ... done [10:26:38.635] | : . | Position of call to be transpiled in expression: c(1) [10:26:38.635] | : . | cforest [10:26:38.636] | : . Finding call to be transpiled ... done [10:26:38.636] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... [10:26:38.637] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.638] | : . | Transpiler description: partykit::cforest() transpiler [10:26:38.638] | : . | Transpiler function: [10:26:38.639] | : . | function (expr, options) [10:26:38.639] | : . | { [10:26:38.639] | : . | ns <- getNamespace("partykit") [10:26:38.639] | : . | fcn <- get("cforest", mode = "function", envir = ns) [10:26:38.639] | : . | progressify_partykit(expr, fcn_name = "cforest", fcn = fcn, [10:26:38.639] | : . | envir = parent.frame()) [10:26:38.639] | : . | } [10:26:38.639] | : . | [10:26:38.640] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... done [10:26:38.640] | : get_transpiler() ... done [10:26:38.641] | : Transpile call expression ... [10:26:38.641] | : . cforest(Survived ~ ., data = tt, ntree = 20L, applyfun = function(X, [10:26:38.641] | : . FUN, ...) { [10:26:38.641] | : . progressify::progressify(lapply(X = X, FUN = FUN, ...)) [10:26:38.641] | : . }) [10:26:38.642] | : Transpile call expression ... done [10:26:38.643] | : Evaluate transpiled call expression [10:26:38.649] | : progressify() ... [10:26:38.650] | : . transpile() ... [10:26:38.650] | : . | get_transpiler() ... [10:26:38.651] | : . | : Finding call to be transpiled ... [10:26:38.651] | : . | : . descend_wrappers() ... [10:26:38.652] | : . | : . | Call: [10:26:38.652] | : . | : . | lapply [10:26:38.653] | : . | : . | parse_call() ... [10:26:38.653] | : . | : . | : Function: lapply(...) [10:26:38.654] | : . | : . | : Locate function ... [10:26:38.654] | : . | : . | : . Function located in: 'base' [10:26:38.655] | : . | : . | : Locate function ... done [10:26:38.655] | : . | : . | parse_call() ... done [10:26:38.656] | : . | : . descend_wrappers() ... done [10:26:38.656] | : . | : . parse_call() ... [10:26:38.657] | : . | : . | Function: lapply(...) [10:26:38.657] | : . | : . | Locate function ... [10:26:38.658] | : . | : . | : Function located in: 'base' [10:26:38.658] | : . | : . | Locate function ... done [10:26:38.659] | : . | : . parse_call() ... done [10:26:38.659] | : . | : . Position of call to be transpiled in expression: c(1) [10:26:38.660] | : . | : . lapply [10:26:38.660] | : . | : Finding call to be transpiled ... done [10:26:38.661] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... [10:26:38.661] | : . | : . Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.662] | : . | : . Transpiler description: base::lapply() transpiler [10:26:38.662] | : . | : . Transpiler function: [10:26:38.663] | : . | : . function (expr, options) [10:26:38.663] | : . | : . { [10:26:38.663] | : . | : . ns <- baseenv() [10:26:38.663] | : . | : . fcn <- get("lapply", mode = "function", envir = ns) [10:26:38.663] | : . | : . progressify_base(expr, fcn_name = "lapply", fcn = fcn, envir = parent.frame()) [10:26:38.663] | : . | : . } [10:26:38.663] | : . | : . [10:26:38.664] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... done [10:26:38.664] | : . | get_transpiler() ... done [10:26:38.665] | : . | Transpile call expression ... [10:26:38.665] | : . | : local(lapply(X = { [10:26:38.665] | : . | : .progressr_progressor <- progressr::progressor(along = X) [10:26:38.665] | : . | : X [10:26:38.665] | : . | : }, FUN = function(..., ...FUN, .progressr_progressor) { [10:26:38.665] | : . | : on.exit(.progressr_progressor()) [10:26:38.665] | : . | : ...FUN(...) [10:26:38.665] | : . | : }, ..., ...FUN = FUN, .progressr_progressor = .progressr_progressor)) [10:26:38.666] | : . | Transpile call expression ... done [10:26:38.667] | : . | Evaluate transpiled call expression [10:26:38.693] | : . transpile() ... done [10:26:38.694] | : progressify() ... done [10:26:38.695] | transpile() ... done [10:26:38.695] progressify() ... done Predictions match! [10:26:38.712] progressify() ... [10:26:38.712] | transpile() ... [10:26:38.713] | : get_transpiler() ... [10:26:38.713] | : . Finding call to be transpiled ... [10:26:38.714] | : . | descend_wrappers() ... [10:26:38.714] | : . | : Call: [10:26:38.715] | : . | : cforest [10:26:38.715] | : . | : parse_call() ... [10:26:38.716] | : . | : . Function: cforest(...) [10:26:38.716] | : . | : . Locate function ... [10:26:38.717] | : . | : . | Function located in: 'partykit' [10:26:38.718] | : . | : . Locate function ... done [10:26:38.718] | : . | : parse_call() ... done [10:26:38.719] | : . | descend_wrappers() ... done [10:26:38.719] | : . | parse_call() ... [10:26:38.720] | : . | : Function: cforest(...) [10:26:38.720] | : . | : Locate function ... [10:26:38.721] | : . | : . Function located in: 'partykit' [10:26:38.721] | : . | : Locate function ... done [10:26:38.722] | : . | parse_call() ... done [10:26:38.722] | : . | Position of call to be transpiled in expression: c(1) [10:26:38.723] | : . | cforest [10:26:38.723] | : . Finding call to be transpiled ... done [10:26:38.724] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... [10:26:38.724] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.725] | : . | Transpiler description: partykit::cforest() transpiler [10:26:38.725] | : . | Transpiler function: [10:26:38.726] | : . | function (expr, options) [10:26:38.726] | : . | { [10:26:38.726] | : . | ns <- getNamespace("partykit") [10:26:38.726] | : . | fcn <- get("cforest", mode = "function", envir = ns) [10:26:38.726] | : . | progressify_partykit(expr, fcn_name = "cforest", fcn = fcn, [10:26:38.726] | : . | envir = parent.frame()) [10:26:38.726] | : . | } [10:26:38.726] | : . | [10:26:38.727] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... done [10:26:38.727] | : get_transpiler() ... done [10:26:38.728] | : Transpile call expression ... [10:26:38.728] | : . cforest(Survived ~ ., data = tt, ntree = 20L, applyfun = function(X, [10:26:38.728] | : . FUN, ...) { [10:26:38.728] | : . progressify::progressify(lapply(X = X, FUN = FUN, ...)) [10:26:38.728] | : . }) [10:26:38.729] | : Transpile call expression ... done [10:26:38.730] | : Evaluate transpiled call expression [10:26:38.736] | : progressify() ... [10:26:38.736] | : . transpile() ... [10:26:38.737] | : . | get_transpiler() ... [10:26:38.737] | : . | : Finding call to be transpiled ... [10:26:38.738] | : . | : . descend_wrappers() ... [10:26:38.738] | : . | : . | Call: [10:26:38.739] | : . | : . | lapply [10:26:38.740] | : . | : . | parse_call() ... [10:26:38.740] | : . | : . | : Function: lapply(...) [10:26:38.741] | : . | : . | : Locate function ... [10:26:38.741] | : . | : . | : . Function located in: 'base' [10:26:38.742] | : . | : . | : Locate function ... done [10:26:38.742] | : . | : . | parse_call() ... done [10:26:38.743] | : . | : . descend_wrappers() ... done [10:26:38.743] | : . | : . parse_call() ... [10:26:38.744] | : . | : . | Function: lapply(...) [10:26:38.744] | : . | : . | Locate function ... [10:26:38.745] | : . | : . | : Function located in: 'base' [10:26:38.745] | : . | : . | Locate function ... done [10:26:38.746] | : . | : . parse_call() ... done [10:26:38.746] | : . | : . Position of call to be transpiled in expression: c(1) [10:26:38.747] | : . | : . lapply [10:26:38.748] | : . | : Finding call to be transpiled ... done [10:26:38.748] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... [10:26:38.749] | : . | : . Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.749] | : . | : . Transpiler description: base::lapply() transpiler [10:26:38.750] | : . | : . Transpiler function: [10:26:38.750] | : . | : . function (expr, options) [10:26:38.750] | : . | : . { [10:26:38.750] | : . | : . ns <- baseenv() [10:26:38.750] | : . | : . fcn <- get("lapply", mode = "function", envir = ns) [10:26:38.750] | : . | : . progressify_base(expr, fcn_name = "lapply", fcn = fcn, envir = parent.frame()) [10:26:38.750] | : . | : . } [10:26:38.750] | : . | : . [10:26:38.751] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... done [10:26:38.751] | : . | get_transpiler() ... done [10:26:38.752] | : . | Transpile call expression ... [10:26:38.753] | : . | : local(lapply(X = { [10:26:38.753] | : . | : .progressr_progressor <- progressr::progressor(along = X) [10:26:38.753] | : . | : X [10:26:38.753] | : . | : }, FUN = function(..., ...FUN, .progressr_progressor) { [10:26:38.753] | : . | : on.exit(.progressr_progressor()) [10:26:38.753] | : . | : ...FUN(...) [10:26:38.753] | : . | : }, ..., ...FUN = FUN, .progressr_progressor = .progressr_progressor)) [10:26:38.754] | : . | Transpile call expression ... done [10:26:38.754] | : . | Evaluate transpiled call expression [10:26:38.784] | : . transpile() ... done [10:26:38.785] | : progressify() ... done [10:26:38.786] | transpile() ... done [10:26:38.786] progressify() ... done character(0) [10:26:38.793] progressify() ... [10:26:38.793] | transpile() ... [10:26:38.794] | : get_transpiler() ... [10:26:38.794] | : . Finding call to be transpiled ... [10:26:38.795] | : . | descend_wrappers() ... [10:26:38.795] | : . | : Call: [10:26:38.796] | : . | : cforest [10:26:38.796] | : . | : parse_call() ... [10:26:38.797] | : . | : . Function: cforest(...) [10:26:38.797] | : . | : . Locate function ... [10:26:38.798] | : . | : . | Function located in: 'partykit' [10:26:38.798] | : . | : . Locate function ... done [10:26:38.799] | : . | : parse_call() ... done [10:26:38.799] | : . | descend_wrappers() ... done [10:26:38.800] | : . | parse_call() ... [10:26:38.800] | : . | : Function: cforest(...) [10:26:38.801] | : . | : Locate function ... [10:26:38.801] | : . | : . Function located in: 'partykit' [10:26:38.802] | : . | : Locate function ... done [10:26:38.802] | : . | parse_call() ... done [10:26:38.803] | : . | Position of call to be transpiled in expression: c(1) [10:26:38.803] | : . | cforest [10:26:38.804] | : . Finding call to be transpiled ... done [10:26:38.804] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... [10:26:38.805] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.805] | : . | Transpiler description: partykit::cforest() transpiler [10:26:38.806] | : . | Transpiler function: [10:26:38.806] | : . | function (expr, options) [10:26:38.806] | : . | { [10:26:38.806] | : . | ns <- getNamespace("partykit") [10:26:38.806] | : . | fcn <- get("cforest", mode = "function", envir = ns) [10:26:38.806] | : . | progressify_partykit(expr, fcn_name = "cforest", fcn = fcn, [10:26:38.806] | : . | envir = parent.frame()) [10:26:38.806] | : . | } [10:26:38.806] | : . | [10:26:38.807] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... done [10:26:38.807] | : get_transpiler() ... done [10:26:38.808] | : Transpile call expression ... [10:26:38.808] | : . cforest(Survived ~ ., data = tt, ntree = 20L, applyfun = function(X, [10:26:38.808] | : . FUN, ...) { [10:26:38.808] | : . progressify::progressify(lapply(X = X, FUN = FUN, ...)) [10:26:38.808] | : . }) [10:26:38.809] | : Transpile call expression ... done [10:26:38.810] | : Evaluate transpiled call expression [10:26:38.815] | : progressify() ... [10:26:38.815] | : . transpile() ... [10:26:38.816] | : . | get_transpiler() ... [10:26:38.816] | : . | : Finding call to be transpiled ... [10:26:38.817] | : . | : . descend_wrappers() ... [10:26:38.817] | : . | : . | Call: [10:26:38.818] | : . | : . | lapply [10:26:38.818] | : . | : . | parse_call() ... [10:26:38.819] | : . | : . | : Function: lapply(...) [10:26:38.819] | : . | : . | : Locate function ... [10:26:38.820] | : . | : . | : . Function located in: 'base' [10:26:38.820] | : . | : . | : Locate function ... done [10:26:38.821] | : . | : . | parse_call() ... done [10:26:38.821] | : . | : . descend_wrappers() ... done [10:26:38.822] | : . | : . parse_call() ... [10:26:38.822] | : . | : . | Function: lapply(...) [10:26:38.823] | : . | : . | Locate function ... [10:26:38.823] | : . | : . | : Function located in: 'base' [10:26:38.824] | : . | : . | Locate function ... done [10:26:38.824] | : . | : . parse_call() ... done [10:26:38.825] | : . | : . Position of call to be transpiled in expression: c(1) [10:26:38.825] | : . | : . lapply [10:26:38.826] | : . | : Finding call to be transpiled ... done [10:26:38.826] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... [10:26:38.827] | : . | : . Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.827] | : . | : . Transpiler description: base::lapply() transpiler [10:26:38.828] | : . | : . Transpiler function: [10:26:38.828] | : . | : . function (expr, options) [10:26:38.828] | : . | : . { [10:26:38.828] | : . | : . ns <- baseenv() [10:26:38.828] | : . | : . fcn <- get("lapply", mode = "function", envir = ns) [10:26:38.828] | : . | : . progressify_base(expr, fcn_name = "lapply", fcn = fcn, envir = parent.frame()) [10:26:38.828] | : . | : . } [10:26:38.828] | : . | : . [10:26:38.829] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... done [10:26:38.829] | : . | get_transpiler() ... done [10:26:38.830] | : . | Transpile call expression ... [10:26:38.830] | : . | : local(lapply(X = { [10:26:38.830] | : . | : .progressr_progressor <- progressr::progressor(along = X) [10:26:38.830] | : . | : X [10:26:38.830] | : . | : }, FUN = function(..., ...FUN, .progressr_progressor) { [10:26:38.830] | : . | : on.exit(.progressr_progressor()) [10:26:38.830] | : . | : ...FUN(...) [10:26:38.830] | : . | : }, ..., ...FUN = FUN, .progressr_progressor = .progressr_progressor)) [10:26:38.831] | : . | Transpile call expression ... done [10:26:38.832] | : . | Evaluate transpiled call expression [10:26:38.853] | : . transpile() ... done [10:26:38.853] | : progressify() ... done [10:26:38.854] | transpile() ... done [10:26:38.855] progressify() ... done === cforest ========================== partykit::cforest(Survived ~ ., data = tt, ntree = 20L) --------------------------------- progressify(partykit::cforest(Survived ~ ., data = tt, ntree = 20L)) [10:26:38.887] progressify() ... [10:26:38.888] | transpile() ... [10:26:38.888] | : get_transpiler() ... [10:26:38.889] | : . Finding call to be transpiled ... [10:26:38.889] | : . | descend_wrappers() ... [10:26:38.890] | : . | : Call: [10:26:38.890] | : . | : partykit::cforest [10:26:38.891] | : . | : parse_call() ... [10:26:38.891] | : . | : . Function: partykit::cforest(...) [10:26:38.892] | : . | : parse_call() ... done [10:26:38.892] | : . | descend_wrappers() ... done [10:26:38.893] | : . | parse_call() ... [10:26:38.893] | : . | : Function: partykit::cforest(...) [10:26:38.894] | : . | parse_call() ... done [10:26:38.894] | : . | Position of call to be transpiled in expression: c(1) [10:26:38.895] | : . | partykit::cforest [10:26:38.895] | : . Finding call to be transpiled ... done [10:26:38.896] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... [10:26:38.896] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.897] | : . | Transpiler description: partykit::cforest() transpiler [10:26:38.897] | : . | Transpiler function: [10:26:38.898] | : . | function (expr, options) [10:26:38.898] | : . | { [10:26:38.898] | : . | ns <- getNamespace("partykit") [10:26:38.898] | : . | fcn <- get("cforest", mode = "function", envir = ns) [10:26:38.898] | : . | progressify_partykit(expr, fcn_name = "cforest", fcn = fcn, [10:26:38.898] | : . | envir = parent.frame()) [10:26:38.898] | : . | } [10:26:38.898] | : . | [10:26:38.898] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... done [10:26:38.899] | : get_transpiler() ... done [10:26:38.899] | : Transpile call expression ... [10:26:38.900] | : . partykit::cforest(Survived ~ ., data = tt, ntree = 20L, applyfun = function(X, [10:26:38.900] | : . FUN, ...) { [10:26:38.900] | : . progressify::progressify(lapply(X = X, FUN = FUN, ...)) [10:26:38.900] | : . }) [10:26:38.901] | : Transpile call expression ... done [10:26:38.901] | : Evaluate transpiled call expression [10:26:38.906] | : progressify() ... [10:26:38.907] | : . transpile() ... [10:26:38.907] | : . | get_transpiler() ... [10:26:38.908] | : . | : Finding call to be transpiled ... [10:26:38.908] | : . | : . descend_wrappers() ... [10:26:38.909] | : . | : . | Call: [10:26:38.909] | : . | : . | lapply [10:26:38.910] | : . | : . | parse_call() ... [10:26:38.910] | : . | : . | : Function: lapply(...) [10:26:38.911] | : . | : . | : Locate function ... [10:26:38.911] | : . | : . | : . Function located in: 'base' [10:26:38.912] | : . | : . | : Locate function ... done [10:26:38.912] | : . | : . | parse_call() ... done [10:26:38.913] | : . | : . descend_wrappers() ... done [10:26:38.913] | : . | : . parse_call() ... [10:26:38.914] | : . | : . | Function: lapply(...) [10:26:38.914] | : . | : . | Locate function ... [10:26:38.915] | : . | : . | : Function located in: 'base' [10:26:38.915] | : . | : . | Locate function ... done [10:26:38.916] | : . | : . parse_call() ... done [10:26:38.916] | : . | : . Position of call to be transpiled in expression: c(1) [10:26:38.916] | : . | : . lapply [10:26:38.917] | : . | : Finding call to be transpiled ... done [10:26:38.918] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... [10:26:38.918] | : . | : . Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.919] | : . | : . Transpiler description: base::lapply() transpiler [10:26:38.919] | : . | : . Transpiler function: [10:26:38.920] | : . | : . function (expr, options) [10:26:38.920] | : . | : . { [10:26:38.920] | : . | : . ns <- baseenv() [10:26:38.920] | : . | : . fcn <- get("lapply", mode = "function", envir = ns) [10:26:38.920] | : . | : . progressify_base(expr, fcn_name = "lapply", fcn = fcn, envir = parent.frame()) [10:26:38.920] | : . | : . } [10:26:38.920] | : . | : . [10:26:38.920] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... done [10:26:38.921] | : . | get_transpiler() ... done [10:26:38.921] | : . | Transpile call expression ... [10:26:38.922] | : . | : local(lapply(X = { [10:26:38.922] | : . | : .progressr_progressor <- progressr::progressor(along = X) [10:26:38.922] | : . | : X [10:26:38.922] | : . | : }, FUN = function(..., ...FUN, .progressr_progressor) { [10:26:38.922] | : . | : on.exit(.progressr_progressor()) [10:26:38.922] | : . | : ...FUN(...) [10:26:38.922] | : . | : }, ..., ...FUN = FUN, .progressr_progressor = .progressr_progressor)) [10:26:38.923] | : . | Transpile call expression ... done [10:26:38.923] | : . | Evaluate transpiled call expression [10:26:38.946] | : . transpile() ... done [10:26:38.947] | : progressify() ... done [10:26:38.948] | transpile() ... done [10:26:38.948] progressify() ... done Predictions match! [10:26:38.962] progressify() ... [10:26:38.963] | transpile() ... [10:26:38.963] | : get_transpiler() ... [10:26:38.964] | : . Finding call to be transpiled ... [10:26:38.964] | : . | descend_wrappers() ... [10:26:38.965] | : . | : Call: [10:26:38.965] | : . | : partykit::cforest [10:26:38.966] | : . | : parse_call() ... [10:26:38.967] | : . | : . Function: partykit::cforest(...) [10:26:38.967] | : . | : parse_call() ... done [10:26:38.968] | : . | descend_wrappers() ... done [10:26:38.968] | : . | parse_call() ... [10:26:38.968] | : . | : Function: partykit::cforest(...) [10:26:38.969] | : . | parse_call() ... done [10:26:38.969] | : . | Position of call to be transpiled in expression: c(1) [10:26:38.970] | : . | partykit::cforest [10:26:38.970] | : . Finding call to be transpiled ... done [10:26:38.971] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... [10:26:38.971] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.972] | : . | Transpiler description: partykit::cforest() transpiler [10:26:38.972] | : . | Transpiler function: [10:26:38.973] | : . | function (expr, options) [10:26:38.973] | : . | { [10:26:38.973] | : . | ns <- getNamespace("partykit") [10:26:38.973] | : . | fcn <- get("cforest", mode = "function", envir = ns) [10:26:38.973] | : . | progressify_partykit(expr, fcn_name = "cforest", fcn = fcn, [10:26:38.973] | : . | envir = parent.frame()) [10:26:38.973] | : . | } [10:26:38.973] | : . | [10:26:38.974] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... done [10:26:38.974] | : get_transpiler() ... done [10:26:38.975] | : Transpile call expression ... [10:26:38.975] | : . partykit::cforest(Survived ~ ., data = tt, ntree = 20L, applyfun = function(X, [10:26:38.975] | : . FUN, ...) { [10:26:38.975] | : . progressify::progressify(lapply(X = X, FUN = FUN, ...)) [10:26:38.975] | : . }) [10:26:38.976] | : Transpile call expression ... done [10:26:38.976] | : Evaluate transpiled call expression [10:26:38.981] | : progressify() ... [10:26:38.982] | : . transpile() ... [10:26:38.983] | : . | get_transpiler() ... [10:26:38.983] | : . | : Finding call to be transpiled ... [10:26:38.983] | : . | : . descend_wrappers() ... [10:26:38.984] | : . | : . | Call: [10:26:38.984] | : . | : . | lapply [10:26:38.985] | : . | : . | parse_call() ... [10:26:38.986] | : . | : . | : Function: lapply(...) [10:26:38.986] | : . | : . | : Locate function ... [10:26:38.986] | : . | : . | : . Function located in: 'base' [10:26:38.987] | : . | : . | : Locate function ... done [10:26:38.987] | : . | : . | parse_call() ... done [10:26:38.988] | : . | : . descend_wrappers() ... done [10:26:38.988] | : . | : . parse_call() ... [10:26:38.989] | : . | : . | Function: lapply(...) [10:26:38.989] | : . | : . | Locate function ... [10:26:38.990] | : . | : . | : Function located in: 'base' [10:26:38.990] | : . | : . | Locate function ... done [10:26:38.991] | : . | : . parse_call() ... done [10:26:38.991] | : . | : . Position of call to be transpiled in expression: c(1) [10:26:38.992] | : . | : . lapply [10:26:38.992] | : . | : Finding call to be transpiled ... done [10:26:38.993] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... [10:26:38.993] | : . | : . Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:38.994] | : . | : . Transpiler description: base::lapply() transpiler [10:26:38.994] | : . | : . Transpiler function: [10:26:38.995] | : . | : . function (expr, options) [10:26:38.995] | : . | : . { [10:26:38.995] | : . | : . ns <- baseenv() [10:26:38.995] | : . | : . fcn <- get("lapply", mode = "function", envir = ns) [10:26:38.995] | : . | : . progressify_base(expr, fcn_name = "lapply", fcn = fcn, envir = parent.frame()) [10:26:38.995] | : . | : . } [10:26:38.995] | : . | : . [10:26:38.995] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... done [10:26:38.996] | : . | get_transpiler() ... done [10:26:38.996] | : . | Transpile call expression ... [10:26:38.997] | : . | : local(lapply(X = { [10:26:38.997] | : . | : .progressr_progressor <- progressr::progressor(along = X) [10:26:38.997] | : . | : X [10:26:38.997] | : . | : }, FUN = function(..., ...FUN, .progressr_progressor) { [10:26:38.997] | : . | : on.exit(.progressr_progressor()) [10:26:38.997] | : . | : ...FUN(...) [10:26:38.997] | : . | : }, ..., ...FUN = FUN, .progressr_progressor = .progressr_progressor)) [10:26:38.998] | : . | Transpile call expression ... done [10:26:38.999] | : . | Evaluate transpiled call expression [10:26:39.019] | : . transpile() ... done [10:26:39.020] | : progressify() ... done [10:26:39.021] | transpile() ... done [10:26:39.021] progressify() ... done character(0) [10:26:39.028] progressify() ... [10:26:39.029] | transpile() ... [10:26:39.029] | : get_transpiler() ... [10:26:39.030] | : . Finding call to be transpiled ... [10:26:39.030] | : . | descend_wrappers() ... [10:26:39.031] | : . | : Call: [10:26:39.031] | : . | : partykit::cforest [10:26:39.032] | : . | : parse_call() ... [10:26:39.032] | : . | : . Function: partykit::cforest(...) [10:26:39.033] | : . | : parse_call() ... done [10:26:39.033] | : . | descend_wrappers() ... done [10:26:39.034] | : . | parse_call() ... [10:26:39.034] | : . | : Function: partykit::cforest(...) [10:26:39.035] | : . | parse_call() ... done [10:26:39.035] | : . | Position of call to be transpiled in expression: c(1) [10:26:39.036] | : . | partykit::cforest [10:26:39.036] | : . Finding call to be transpiled ... done [10:26:39.037] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... [10:26:39.037] | : . | Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:39.038] | : . | Transpiler description: partykit::cforest() transpiler [10:26:39.038] | : . | Transpiler function: [10:26:39.039] | : . | function (expr, options) [10:26:39.039] | : . | { [10:26:39.039] | : . | ns <- getNamespace("partykit") [10:26:39.039] | : . | fcn <- get("cforest", mode = "function", envir = ns) [10:26:39.039] | : . | progressify_partykit(expr, fcn_name = "cforest", fcn = fcn, [10:26:39.039] | : . | envir = parent.frame()) [10:26:39.039] | : . | } [10:26:39.039] | : . | [10:26:39.042] | : . Locating 'progressify::built-in' transpiler for partykit::cforest() of class 'function' ... done [10:26:39.042] | : get_transpiler() ... done [10:26:39.043] | : Transpile call expression ... [10:26:39.044] | : . partykit::cforest(Survived ~ ., data = tt, ntree = 20L, applyfun = function(X, [10:26:39.044] | : . FUN, ...) { [10:26:39.044] | : . progressify::progressify(lapply(X = X, FUN = FUN, ...)) [10:26:39.044] | : . }) [10:26:39.045] | : Transpile call expression ... done [10:26:39.045] | : Evaluate transpiled call expression [10:26:39.050] | : progressify() ... [10:26:39.051] | : . transpile() ... [10:26:39.051] | : . | get_transpiler() ... [10:26:39.052] | : . | : Finding call to be transpiled ... [10:26:39.052] | : . | : . descend_wrappers() ... [10:26:39.053] | : . | : . | Call: [10:26:39.053] | : . | : . | lapply [10:26:39.054] | : . | : . | parse_call() ... [10:26:39.054] | : . | : . | : Function: lapply(...) [10:26:39.055] | : . | : . | : Locate function ... [10:26:39.055] | : . | : . | : . Function located in: 'base' [10:26:39.056] | : . | : . | : Locate function ... done [10:26:39.056] | : . | : . | parse_call() ... done [10:26:39.057] | : . | : . descend_wrappers() ... done [10:26:39.057] | : . | : . parse_call() ... [10:26:39.058] | : . | : . | Function: lapply(...) [10:26:39.058] | : . | : . | Locate function ... [10:26:39.059] | : . | : . | : Function located in: 'base' [10:26:39.059] | : . | : . | Locate function ... done [10:26:39.060] | : . | : . parse_call() ... done [10:26:39.060] | : . | : . Position of call to be transpiled in expression: c(1) [10:26:39.060] | : . | : . lapply [10:26:39.061] | : . | : Finding call to be transpiled ... done [10:26:39.062] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... [10:26:39.062] | : . | : . Namespaces registered with progressify(): 'base', 'crossmap', 'future.apply', 'purrr', 'furrr', 'partykit', 'plyr', 'stats', 'foreach', 'doFuture' [10:26:39.063] | : . | : . Transpiler description: base::lapply() transpiler [10:26:39.063] | : . | : . Transpiler function: [10:26:39.063] | : . | : . function (expr, options) [10:26:39.063] | : . | : . { [10:26:39.063] | : . | : . ns <- baseenv() [10:26:39.063] | : . | : . fcn <- get("lapply", mode = "function", envir = ns) [10:26:39.063] | : . | : . progressify_base(expr, fcn_name = "lapply", fcn = fcn, envir = parent.frame()) [10:26:39.063] | : . | : . } [10:26:39.063] | : . | : . [10:26:39.064] | : . | : Locating 'progressify::built-in' transpiler for base::lapply() of class 'function' ... done [10:26:39.065] | : . | get_transpiler() ... done [10:26:39.065] | : . | Transpile call expression ... [10:26:39.066] | : . | : local(lapply(X = { [10:26:39.066] | : . | : .progressr_progressor <- progressr::progressor(along = X) [10:26:39.066] | : . | : X [10:26:39.066] | : . | : }, FUN = function(..., ...FUN, .progressr_progressor) { [10:26:39.066] | : . | : on.exit(.progressr_progressor()) [10:26:39.066] | : . | : ...FUN(...) [10:26:39.066] | : . | : }, ..., ...FUN = FUN, .progressr_progressor = .progressr_progressor)) [10:26:39.067] | : . | Transpile call expression ... done [10:26:39.067] | : . | Evaluate transpiled call expression [10:26:39.088] | : . transpile() ... done [10:26:39.089] | : progressify() ... done [10:26:39.090] | transpile() ... done [10:26:39.091] progressify() ... done Test time: user.self=1s, sys.self=0.2s, elapsed=1s, user.child=NAs, sys.child=NAs Test 'progressify-partykit' ... success > > proc.time() user system elapsed 1.43 0.25 1.67