R version 4.6.0 alpha (2026-03-31 r89747 ucrt) Copyright (C) 2026 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > #! /usr/bin/env Rscript > ## This runs testme test script inst/testme/test-internals-futurize.R > ## Don't edit - it was autogenerated by inst/testme/deploy.R > futurize:::testme("internals-futurize") Test 'internals-futurize' ... chr "none" > library(futurize) Loading required package: future > message("*** Futurize internals") *** Futurize internals > options(futurize.debug = TRUE) > message("descend_wrappers()") descend_wrappers() > try(futurize:::descend_wrappers(NULL, unwrap = list())) [1] 1 > try(futurize:::descend_wrappers(quote({ + lapply(x, f) + }), unwrap = list(`{`), debug = TRUE)) [07:36:15.052] descend_wrappers() ... [07:36:15.054] | Call: [07:36:15.055] | `{` [07:36:15.056] | parse_call() ... [07:36:15.057] | : Function: {(...) [07:36:15.058] | : Locate function ... [07:36:15.059] | : . Function located in: 'base' [07:36:15.060] | : Locate function ... done [07:36:15.061] | parse_call() ... done [07:36:15.062] | Wrapped in { ... } [07:36:15.063] | descend_wrappers() ... [07:36:15.064] | : Call: [07:36:15.065] | : lapply [07:36:15.066] | : parse_call() ... [07:36:15.067] | : . Function: lapply(...) [07:36:15.068] | : . Locate function ... [07:36:15.070] | : . | Function located in: 'base' [07:36:15.071] | : . Locate function ... done [07:36:15.072] | : parse_call() ... done [07:36:15.073] | descend_wrappers() ... done [07:36:15.074] descend_wrappers() ... done [1] 2 1 > try(futurize:::descend_wrappers(quote(with(data, lapply(x, + f))), unwrap = list(base::with), debug = TRUE)) [07:36:15.075] descend_wrappers() ... [07:36:15.076] | Call: [07:36:15.078] | with [07:36:15.079] | parse_call() ... [07:36:15.080] | : Function: with(...) [07:36:15.081] | : Locate function ... [07:36:15.082] | : . Function located in: 'base' [07:36:15.083] | : Locate function ... done [07:36:15.085] | parse_call() ... done [07:36:15.086] | Wrapped in with( ... ) [07:36:15.087] | descend_wrappers() ... [07:36:15.088] | : Call: [07:36:15.089] | : lapply [07:36:15.090] | : parse_call() ... [07:36:15.091] | : . Function: lapply(...) [07:36:15.091] | : . Locate function ... [07:36:15.092] | : . | Function located in: 'base' [07:36:15.093] | : . Locate function ... done [07:36:15.094] | : parse_call() ... done [07:36:15.095] | descend_wrappers() ... done [07:36:15.096] descend_wrappers() ... done [1] 3 1 > message("register_all_transpilers()") register_all_transpilers() > futurize:::register_all_transpilers() > message("register_vignette_engine_during_build_only()") register_vignette_engine_during_build_only() > futurize:::register_vignette_engine_during_build_only("futurize") > Sys.setenv(R_CMD = "something") > futurize:::register_vignette_engine_during_build_only("futurize") > message("transpiler_packages()") transpiler_packages() > db <- futurize:::transpiler_packages() > print(db) class package 1 futurize::add-on base 2 futurize::add-on stats 3 futurize::add-on pbapply 4 futurize::add-on purrr 5 futurize::add-on crossmap 6 futurize::add-on foreach 7 futurize::add-on plyr 8 futurize::add-on BiocParallel 9 futurize::add-on boot 10 futurize::add-on mgcv 11 futurize::add-on DESeq2 12 futurize::add-on fgsea 13 futurize::add-on GenomicAlignments 14 futurize::add-on Rsamtools 15 futurize::add-on GSVA 16 futurize::add-on scater 17 futurize::add-on scuttle 18 futurize::add-on SingleCellExperiment 19 futurize::add-on sva 20 futurize::add-on caret 21 futurize::add-on fwb 22 futurize::add-on gamlss 23 futurize::add-on glmnet 24 futurize::add-on kernelshap 25 futurize::add-on glmmTMB 26 futurize::add-on lme4 27 futurize::add-on metafor 28 futurize::add-on partykit 29 futurize::add-on riskRegression 30 futurize::add-on seriation 31 futurize::add-on SimDesign 32 futurize::add-on shapr 33 futurize::add-on strucchange 34 futurize::add-on tm 35 futurize::add-on TSP 36 futurize::add-on vegan > if (requireNamespace("future.apply", quietly = TRUE)) { + y <- futurize(lapply(x, f), eval = FALSE) + db <- futurize:::transpiler_packages() .... [TRUNCATED] [07:36:15.104] futurize() ... [07:36:15.105] | transpile() ... [07:36:15.106] | : get_transpiler() ... [07:36:15.107] | : . Finding call to be transpiled ... [07:36:15.108] | : . | descend_wrappers() ... [07:36:15.109] | : . | : Call: [07:36:15.110] | : . | : lapply [07:36:15.112] | : . | : parse_call() ... [07:36:15.113] | : . | : . Function: lapply(...) [07:36:15.114] | : . | : . Locate function ... [07:36:15.115] | : . | : . | Function located in: 'base' [07:36:15.116] | : . | : . Locate function ... done [07:36:15.117] | : . | : parse_call() ... done [07:36:15.118] | : . | descend_wrappers() ... done [07:36:15.119] | : . | parse_call() ... [07:36:15.120] | : . | : Function: lapply(...) [07:36:15.120] | : . | : Locate function ... [07:36:15.121] | : . | : . Function located in: 'base' [07:36:15.122] | : . | : Locate function ... done [07:36:15.123] | : . | parse_call() ... done [07:36:15.124] | : . | Position of call to be transpiled in expression: c(1) [07:36:15.125] | : . | lapply [07:36:15.126] | : . Finding call to be transpiled ... done [07:36:15.127] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:36:15.128] | : . | transpilers_for_package(action = 'make', type = 'futurize::add-on') ... [07:36:15.129] | : . | : - package: 'base' [07:36:15.130] | : . | : $fcns [07:36:15.130] | : . | : $fcns[[1]] [07:36:15.130] | : . | : function () [07:36:15.130] | : . | : { [07:36:15.130] | : . | : append_transpilers("futurize::add-on", make_addon_transpilers("base", [07:36:15.130] | : . | : "future.apply", make_options = make_options_for_future.apply)) [07:36:15.130] | : . | : append_transpilers("futurize::add-on", make_addon_transpilers("stats", [07:36:15.130] | : . | : "future.apply", make_options = make_options_for_future.apply)) [07:36:15.130] | : . | : c("future.apply") [07:36:15.130] | : . | : } [07:36:15.130] | : . | : [07:36:15.130] | : . | : [07:36:15.130] | : . | : [07:36:15.130] | : . | : $fcns[[2]] [07:36:15.130] | : . | : function () [07:36:15.130] | : . | : { [07:36:15.130] | : . | : append_transpilers("futurize::add-on", make_addon_transpilers("base", [07:36:15.130] | : . | : "future.apply", make_options = make_options_for_future.apply)) [07:36:15.130] | : . | : append_transpilers("futurize::add-on", make_addon_transpilers("stats", [07:36:15.130] | : . | : "future.apply", make_options = make_options_for_future.apply)) [07:36:15.130] | : . | : c("future.apply") [07:36:15.130] | : . | : } [07:36:15.130] | : . | : [07:36:15.130] | : . | : [07:36:15.130] | : . | : [07:36:15.130] | : . | : [07:36:15.158] | : . | transpilers_for_package(action = 'make', type = 'futurize::add-on') ... done [07:36:15.159] | : . | Required packages: [n=1] 'future.apply' [07:36:15.160] | : . | Namespaces registered with futurize(): 'base', 'stats', 'base', 'stats' [07:36:15.161] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:36:15.162] | : . | Transpiler function: [07:36:15.163] | : . | function (expr, options = NULL) [07:36:15.163] | : . | { [07:36:15.163] | : . | call <- make_call("future_lapply") [07:36:15.163] | : . | fcn <- eval(call) [07:36:15.163] | : . | expr[[1]] <- call [07:36:15.163] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:36:15.163] | : . | { [07:36:15.163] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:36:15.163] | : . | if (is.null(defaults_base)) { [07:36:15.163] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:36:15.163] | : . | } [07:36:15.163] | : . | if (length(defaults) > 0) { [07:36:15.163] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:36:15.163] | : . | } [07:36:15.163] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:36:15.163] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:36:15.163] | : . | defaults <- defaults[keep] [07:36:15.163] | : . | specified <- attr(options, "specified") [07:36:15.163] | : . | if (length(specified) > 0) { [07:36:15.163] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:36:15.163] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:36:15.163] | : . | names(options)) [07:36:15.163] | : . | } [07:36:15.163] | : . | specified <- sprintf("future.%s", specified) [07:36:15.163] | : . | names <- setdiff(names(defaults), specified) [07:36:15.163] | : . | names(options) <- sprintf("future.%s", names(options)) [07:36:15.163] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:36:15.163] | : . | keep <- intersect(names(options), names(defaults)) [07:36:15.163] | : . | options <- options[keep] [07:36:15.163] | : . | options [07:36:15.163] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:36:15.163] | : . | prefix = "fz:base::lapply"))) [07:36:15.163] | : . | expr <- as.call(parts) [07:36:15.163] | : . | expr [07:36:15.163] | : . | } [07:36:15.163] | : . | [07:36:15.164] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:36:15.165] | : get_transpiler() ... done [07:36:15.166] | : Transpile call expression ... [07:36:15.167] | : . future.apply::future_lapply(x, f, future.seed = FALSE, future.globals = TRUE, [07:36:15.167] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:36:15.167] | : . future.label = "fz:base::lapply-%d") [07:36:15.169] | : Transpile call expression ... done [07:36:15.170] | : Return transpiled call expression [07:36:15.170] | transpile() ... done [07:36:15.171] futurize() ... done class package 1 futurize::add-on base 2 futurize::add-on stats 3 futurize::add-on pbapply 4 futurize::add-on purrr 5 futurize::add-on crossmap 6 futurize::add-on foreach 7 futurize::add-on plyr 8 futurize::add-on BiocParallel 9 futurize::add-on boot 10 futurize::add-on mgcv 11 futurize::add-on DESeq2 12 futurize::add-on fgsea 13 futurize::add-on GenomicAlignments 14 futurize::add-on Rsamtools 15 futurize::add-on GSVA 16 futurize::add-on scater 17 futurize::add-on scuttle 18 futurize::add-on SingleCellExperiment 19 futurize::add-on sva 20 futurize::add-on caret 21 futurize::add-on fwb 22 futurize::add-on gamlss 23 futurize::add-on glmnet 24 futurize::add-on kernelshap 25 futurize::add-on glmmTMB 26 futurize::add-on lme4 27 futurize::add-on metafor 28 futurize::add-on partykit 29 futurize::add-on riskRegression 30 futurize::add-on seriation 31 futurize::add-on SimDesign 32 futurize::add-on shapr 33 futurize::add-on strucchange 34 futurize::add-on tm 35 futurize::add-on TSP 36 futurize::add-on vegan class package 1 futurize::add-on base 2 futurize::add-on stats 3 futurize::add-on pbapply 4 futurize::add-on purrr 5 futurize::add-on crossmap 6 futurize::add-on foreach 7 futurize::add-on plyr 8 futurize::add-on BiocParallel 9 futurize::add-on boot 10 futurize::add-on mgcv 11 futurize::add-on DESeq2 12 futurize::add-on fgsea 13 futurize::add-on GenomicAlignments 14 futurize::add-on Rsamtools 15 futurize::add-on GSVA 16 futurize::add-on scater 17 futurize::add-on scuttle 18 futurize::add-on SingleCellExperiment 19 futurize::add-on sva 20 futurize::add-on caret 21 futurize::add-on fwb 22 futurize::add-on gamlss 23 futurize::add-on glmnet 24 futurize::add-on kernelshap 25 futurize::add-on glmmTMB 26 futurize::add-on lme4 27 futurize::add-on metafor 28 futurize::add-on partykit 29 futurize::add-on riskRegression 30 futurize::add-on seriation 31 futurize::add-on SimDesign 32 futurize::add-on shapr 33 futurize::add-on strucchange 34 futurize::add-on tm 35 futurize::add-on TSP 36 futurize::add-on vegan > message("list_transpilers()") list_transpilers() > ts <- futurize:::list_transpilers(class = "non-existing") > str(ts) NULL > ts <- futurize:::list_transpilers(class = "futurize::add-on") > str(ts) 'data.frame': 52 obs. of 3 variables: $ type : chr "base" "base" "base" "base" ... $ fcn : chr "replicate" "lapply" "tapply" "kernapply" ... $ description: chr "base::replicate() -> future.apply::future_replicate()" "base::lapply() -> future.apply::future_lapply()" "base::tapply() -> future.apply::future_tapply()" "base::kernapply() -> future.apply::future_kernapply()" ... > ts <- futurize:::list_transpilers(pattern = ".*", + class = "futurize::add-on") > str(ts) 'data.frame': 52 obs. of 3 variables: $ type : chr "base" "base" "base" "base" ... $ fcn : chr "replicate" "lapply" "tapply" "kernapply" ... $ description: chr "base::replicate() -> future.apply::future_replicate()" "base::lapply() -> future.apply::future_lapply()" "base::tapply() -> future.apply::future_tapply()" "base::kernapply() -> future.apply::future_kernapply()" ... > if (requireNamespace("future.apply", quietly = TRUE)) { + y <- futurize(lapply(x, f), eval = FALSE) + ts <- futurize:::list_transpilers(patt .... [TRUNCATED] [07:36:15.280] futurize() ... [07:36:15.281] | transpile() ... [07:36:15.282] | : get_transpiler() ... [07:36:15.283] | : . Finding call to be transpiled ... [07:36:15.284] | : . | descend_wrappers() ... [07:36:15.285] | : . | : Call: [07:36:15.285] | : . | : lapply [07:36:15.287] | : . | : parse_call() ... [07:36:15.287] | : . | : . Function: lapply(...) [07:36:15.288] | : . | : . Locate function ... [07:36:15.289] | : . | : . | Function located in: 'base' [07:36:15.290] | : . | : . Locate function ... done [07:36:15.290] | : . | : parse_call() ... done [07:36:15.292] | : . | descend_wrappers() ... done [07:36:15.293] | : . | parse_call() ... [07:36:15.294] | : . | : Function: lapply(...) [07:36:15.295] | : . | : Locate function ... [07:36:15.296] | : . | : . Function located in: 'base' [07:36:15.296] | : . | : Locate function ... done [07:36:15.297] | : . | parse_call() ... done [07:36:15.298] | : . | Position of call to be transpiled in expression: c(1) [07:36:15.298] | : . | lapply [07:36:15.301] | : . Finding call to be transpiled ... done [07:36:15.303] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... [07:36:15.304] | : . | Namespaces registered with futurize(): 'base', 'stats', 'base', 'stats' [07:36:15.305] | : . | Transpiler description: base::lapply() -> future.apply::future_lapply() [07:36:15.306] | : . | Transpiler function: [07:36:15.307] | : . | function (expr, options = NULL) [07:36:15.307] | : . | { [07:36:15.307] | : . | call <- make_call("future_lapply") [07:36:15.307] | : . | fcn <- eval(call) [07:36:15.307] | : . | expr[[1]] <- call [07:36:15.307] | : . | parts <- c(as.list(expr), (function (options, fcn, defaults = NULL) [07:36:15.307] | : . | { [07:36:15.307] | : . | if (length(options) == 0L && length(defaults) == 0L) return(options) [07:36:15.307] | : . | if (is.null(defaults_base)) { [07:36:15.307] | : . | defaults_base <<- get_defaults(future.apply::future_lapply) [07:36:15.307] | : . | } [07:36:15.307] | : . | if (length(defaults) > 0) { [07:36:15.307] | : . | defaults <- defaults[grepl("^future[.]", names(defaults))] [07:36:15.307] | : . | } [07:36:15.307] | : . | defaults <- c(defaults_base, get_defaults(fcn), defaults) [07:36:15.307] | : . | keep <- !duplicated(names(defaults), fromLast = TRUE) [07:36:15.307] | : . | defaults <- defaults[keep] [07:36:15.307] | : . | specified <- attr(options, "specified") [07:36:15.307] | : . | if (length(specified) > 0) { [07:36:15.307] | : . | specified <- sub("^chunk_size$", "chunk.size", specified) [07:36:15.307] | : . | names(options) <- sub("^chunk_size$", "chunk.size", [07:36:15.307] | : . | names(options)) [07:36:15.307] | : . | } [07:36:15.307] | : . | specified <- sprintf("future.%s", specified) [07:36:15.307] | : . | names <- setdiff(names(defaults), specified) [07:36:15.307] | : . | names(options) <- sprintf("future.%s", names(options)) [07:36:15.307] | : . | for (name in names) options[[name]] <- defaults[[name]] [07:36:15.307] | : . | keep <- intersect(names(options), names(defaults)) [07:36:15.307] | : . | options <- options[keep] [07:36:15.307] | : . | options [07:36:15.307] | : . | })(options, fcn, defaults = list(future.label = "fz:base::lapply-%d", [07:36:15.307] | : . | prefix = "fz:base::lapply"))) [07:36:15.307] | : . | expr <- as.call(parts) [07:36:15.307] | : . | expr [07:36:15.307] | : . | } [07:36:15.307] | : . | [07:36:15.309] | : . Locating 'futurize::add-on' transpiler for base::lapply() of class 'function' ... done [07:36:15.311] | : get_transpiler() ... done [07:36:15.312] | : Transpile call expression ... [07:36:15.313] | : . future.apply::future_lapply(x, f, future.seed = FALSE, future.globals = TRUE, [07:36:15.313] | : . future.stdout = TRUE, future.conditions = "condition", future.scheduling = 1, [07:36:15.313] | : . future.label = "fz:base::lapply-%d") [07:36:15.316] | : Transpile call expression ... done [07:36:15.317] | : Return transpiled call expression [07:36:15.318] | transpile() ... done [07:36:15.319] futurize() ... done 'data.frame': 52 obs. of 3 variables: $ type : chr "base" "base" "base" "base" ... $ fcn : chr "replicate" "lapply" "tapply" "kernapply" ... $ description: chr "base::replicate() -> future.apply::future_replicate()" "base::lapply() -> future.apply::future_lapply()" "base::tapply() -> future.apply::future_tapply()" "base::kernapply() -> future.apply::future_kernapply()" ... > message("*** is_s3_generic()") *** is_s3_generic() > stopifnot(isTRUE(futurize:::is_s3_generic(print))) > stopifnot(isTRUE(futurize:::is_s3_generic(summary))) > stopifnot(isFALSE(futurize:::is_s3_generic(identity))) > stopifnot(isFALSE(futurize:::is_s3_generic(sum))) > foo <- function() NULL > stopifnot(is.null(body(foo)), isFALSE(futurize:::is_s3_generic(foo))) > message("*** parse_call() - namespace-qualified calls") *** parse_call() - namespace-qualified calls > info <- futurize:::parse_call(quote(base::lapply), + envir = globalenv()) > stopifnot(info$fcn_name == "lapply", info$ns_name == + "base") > res <- tryCatch(futurize:::parse_call(quote(base::nonExistingFcn), + envir = globalenv()), error = identity) > stopifnot(inherits(res, "error")) > res <- tryCatch(futurize:::parse_call(quote((function() NULL)()), + envir = globalenv()), error = identity) > stopifnot(inherits(res, "error")) > res <- tryCatch(futurize:::parse_call(quote(base$lapply), + envir = globalenv()), error = identity) > stopifnot(inherits(res, "error")) > res <- tryCatch(futurize:::parse_call(as.symbol("nonExistingFcn"), + envir = globalenv()), error = identity) > stopifnot(inherits(res, "error")) > res <- tryCatch(futurize:::parse_call(as.symbol("%nonExisting%"), + envir = globalenv()), error = identity) > stopifnot(inherits(res, "error")) > res <- tryCatch(futurize:::parse_call(42, envir = globalenv()), + error = identity) > stopifnot(inherits(res, "error")) > info <- futurize:::parse_call(as.symbol("sum"), envir = globalenv()) > stopifnot(info$fcn_name == "sum", info$ns_name == + "base") > info <- futurize:::parse_call(quote(base::lapply), + envir = globalenv(), debug = TRUE) [07:36:15.366] parse_call() ... [07:36:15.367] | Function: base::lapply(...) [07:36:15.368] parse_call() ... done > stopifnot(info$fcn_name == "lapply", info$ns_name == + "base") > info <- futurize:::parse_call(as.symbol("lapply"), + envir = globalenv(), debug = TRUE) [07:36:15.369] parse_call() ... [07:36:15.369] | Function: lapply(...) [07:36:15.370] | Locate function ... [07:36:15.371] | : Function located in: 'base' [07:36:15.372] | Locate function ... done [07:36:15.372] parse_call() ... done > stopifnot(info$fcn_name == "lapply", info$ns_name == + "base") > message("*** find_s3_method()") *** find_s3_method() > find_s3_method <- futurize:::find_s3_method > df <- data.frame(a = 1) > res <- find_s3_method(fcn = print, fcn_name = "print", + call = quote(print(df)), envir = environment()) > stopifnot(is.list(res), res$name == "print.data.frame", + is.character(res$package), nzchar(res$package)) > res <- find_s3_method(fcn = print, fcn_name = "print", + call = quote(print(df)), envir = environment(), debug = TRUE) [07:36:15.375] S3 generic print() dispatches to base::print.data.frame() for class 'data.frame' > stopifnot(is.list(res), res$name == "print.data.frame") > res <- find_s3_method(fcn = function() NULL, fcn_name = "nofmls", + call = quote(nofmls()), envir = environment()) > stopifnot(is.null(res)) > dotfcn <- function(...) UseMethod("dotfcn") > res <- find_s3_method(fcn = dotfcn, fcn_name = "dotfcn", + call = quote(dotfcn(x)), envir = environment()) > stopifnot(is.null(res)) > res <- find_s3_method(fcn = print, fcn_name = "print", + call = quote(print()), envir = environment()) > stopifnot(is.null(res)) > res <- find_s3_method(fcn = print, fcn_name = "print", + call = quote(print(42)), envir = environment()) > stopifnot(is.null(res)) > res <- find_s3_method(fcn = print, fcn_name = "print", + call = quote(print(nonExistingVar)), envir = environment()) > stopifnot(is.null(res)) > my_generic <- function(x) UseMethod("my_generic") > obj <- structure(1, class = "noMethodForThis") > res <- find_s3_method(fcn = my_generic, fcn_name = "my_generic", + call = quote(my_generic(obj)), envir = environment()) > stopifnot(is.null(res)) > message("*** append_call_arguments()") *** append_call_arguments() > call <- quote(my_fcn(x, y)) > call2 <- futurize:::append_call_arguments(call, z = 42, + w = quote(1 + 2)) > stopifnot(length(call2) == 5) > stopifnot("z" %in% names(as.list(call2))) > stopifnot("w" %in% names(as.list(call2))) > call3 <- futurize:::append_call_arguments(call, .args = list(a = 1)) > stopifnot("a" %in% names(as.list(call3))) > message("transpilers_for_package()") transpilers_for_package() > ts <- futurize:::transpilers_for_package(type = "unknown", + package = "base", fcn = lapply, debug = TRUE) [07:36:15.380] transpilers_for_package(action = 'add', type = 'unknown') ... [07:36:15.381] | - package: 'base' [07:36:15.382] transpilers_for_package(action = 'add', type = 'unknown') ... done > str(ts) NULL > ts <- futurize:::transpilers_for_package(type = "unknown", + package = "base", fcn = lapply, action = "get", debug = TRUE) [07:36:15.383] transpilers_for_package(action = 'get', type = 'unknown') ... [07:36:15.384] | - package: 'base' [07:36:15.384] | - package: 'base' [07:36:15.385] transpilers_for_package(action = 'get', type = 'unknown') ... done > str(ts) List of 1 $ :function (X, FUN, ...) > ts <- futurize:::transpilers_for_package(type = "unknown", + package = "base", fcn = lapply, action = "list", debug = TRUE) [07:36:15.386] transpilers_for_package(action = 'list', type = 'unknown') ... [07:36:15.387] transpilers_for_package(action = 'list', type = 'unknown') ... done > str(ts) List of 2 $ futurize::add-on:List of 36 ..$ base :List of 2 .. ..$ :function () .. ..$ :function () ..$ stats :List of 2 .. ..$ :function () .. ..$ :function () ..$ pbapply :List of 2 .. ..$ :function () .. ..$ :function () ..$ purrr :List of 2 .. ..$ :function () .. ..$ :function () ..$ crossmap :List of 2 .. ..$ :function () .. ..$ :function () ..$ foreach :List of 2 .. ..$ :function () .. ..$ :function () ..$ plyr :List of 2 .. ..$ :function () .. ..$ :function () ..$ BiocParallel :List of 2 .. ..$ :function () .. ..$ :function () ..$ boot :List of 2 .. ..$ :function () .. ..$ :function () ..$ mgcv :List of 2 .. ..$ :function () .. ..$ :function () ..$ DESeq2 :List of 2 .. ..$ :function () .. ..$ :function () ..$ fgsea :List of 2 .. ..$ :function () .. ..$ :function () ..$ GenomicAlignments :List of 2 .. ..$ :function () .. ..$ :function () ..$ Rsamtools :List of 2 .. ..$ :function () .. ..$ :function () ..$ GSVA :List of 2 .. ..$ :function () .. ..$ :function () ..$ scater :List of 2 .. ..$ :function () .. ..$ :function () ..$ scuttle :List of 2 .. ..$ :function () .. ..$ :function () ..$ SingleCellExperiment:List of 2 .. ..$ :function () .. ..$ :function () ..$ sva :List of 2 .. ..$ :function () .. ..$ :function () ..$ caret :List of 2 .. ..$ :function () .. ..$ :function () ..$ fwb :List of 2 .. ..$ :function () .. ..$ :function () ..$ gamlss :List of 2 .. ..$ :function () .. ..$ :function () ..$ glmnet :List of 2 .. ..$ :function () .. ..$ :function () ..$ kernelshap :List of 2 .. ..$ :function () .. ..$ :function () ..$ glmmTMB :List of 2 .. ..$ :function () .. ..$ :function () ..$ lme4 :List of 2 .. ..$ :function () .. ..$ :function () ..$ metafor :List of 2 .. ..$ :function () .. ..$ :function () ..$ partykit :List of 2 .. ..$ :function () .. ..$ :function () ..$ riskRegression :List of 2 .. ..$ :function () .. ..$ :function () ..$ seriation :List of 2 .. ..$ :function () .. ..$ :function () ..$ SimDesign :List of 2 .. ..$ :function () .. ..$ :function () ..$ shapr :List of 2 .. ..$ :function () .. ..$ :function () ..$ strucchange :List of 2 .. ..$ :function () .. ..$ :function () ..$ tm :List of 2 .. ..$ :function () .. ..$ :function () ..$ TSP :List of 2 .. ..$ :function () .. ..$ :function () ..$ vegan :List of 2 .. ..$ :function () .. ..$ :function () $ unknown :List of 1 ..$ base:List of 1 .. ..$ :function (X, FUN, ...) > ts <- futurize:::transpilers_for_package(type = "unknown", + package = "base", fcn = lapply, action = "reset", debug = TRUE) [07:36:15.437] transpilers_for_package(action = 'reset', type = 'unknown') ... [07:36:15.439] transpilers_for_package(action = 'reset', type = 'unknown') ... done > str(ts) List of 1 $ base:List of 1 ..$ :function (X, FUN, ...) > res <- tryCatch(futurize:::transpilers_for_package(type = "unknown", + package = "unknown", action = "make", debug = TRUE), error = identity) [07:36:15.441] transpilers_for_package(action = 'make', type = 'unknown') ... [07:36:15.442] | - package: 'unknown' [07:36:15.443] | $fcns [07:36:15.443] | NULL [07:36:15.443] | [07:36:15.444] transpilers_for_package(action = 'make', type = 'unknown') ... done > str(res) List of 2 $ message: chr "[futurize 0.3.0] There are no factory functions for creating 'unknown' transpilers for package 'unknown'" $ call : language stop_with_version(sprintf("There are no factory functions for creating %s transpilers for package %s", sQuot| __truncated__ - attr(*, "class")= chr [1:3] "simpleError" "error" "condition" Failed to undo environment variables: - Expected environment variables: [n=219] '!ExitCode', 'ALLUSERSPROFILE', 'APPDATA', 'BIBINPUTS', 'BINDIR', 'BSTINPUTS', 'COMMONPROGRAMFILES', 'COMPUTERNAME', 'COMSPEC', 'CURL_CA_BUNDLE', 'CV_Instance001', 'CYGWIN', 'CommonProgramFiles(x86)', 'CommonProgramW6432', 'DriverData', 'HOME', 'HOMEDRIVE', 'HOMEPATH', 'JAGS_ROOT', 'JAVA_HOME', 'LANGUAGE', 'LC_COLLATE', 'LC_MONETARY', 'LC_TIME', 'LOCALAPPDATA', 'LOGONSERVER', 'LS_HOME', 'LS_LICENSE_PATH', 'MAKE', 'MAKEFLAGS', 'MAKELEVEL', 'MFLAGS', 'MSMPI_BENCHMARKS', 'MSMPI_BIN', 'MSYS2_ENV_CONV_EXCL', 'NUMBER_OF_PROCESSORS', 'OCL', 'OMP_THREAD_LIMIT', 'OS', 'PATH', 'PATHEXT', 'PROCESSOR_ARCHITECTURE', 'PROCESSOR_IDENTIFIER', 'PROCESSOR_LEVEL', 'PROCESSOR_REVISION', 'PROGRAMFILES', 'PROMPT', 'PSModulePath', 'PUBLIC', 'PWD', 'ProgramData', 'ProgramFiles(x86)', 'ProgramW6432', 'RTOOLS44_HOME', 'RTOOLS45_HOME', 'R_ARCH', 'R_BROWSER', 'R_BZIPCMD', 'R_CMD', 'R_COMPILED_BY', 'R_CRAN_WEB', 'R_CUSTOM_TOOLS_PATH', 'R_CUSTOM_TOOLS_SOFT', 'R_DOC_DIR', 'R_ENVIRON_USER', 'R_GSCMD', 'R_GZIPCMD', 'R_HOME', 'R_INCLUDE_DIR', 'R_INSTALL_TAR', 'R_LIBS', 'R_LIBS_SITE', 'R_LIBS_USER', 'R_MAX_NUM_DLLS', 'R_OSTYPE', 'R_PAPERSIZE', 'R_PAPERSIZE_USER', 'R_PARALLELLY_MAKENODEPSOCK_AUTOKILL', 'R_PARALLELLY_MAKENODEPSOCK_CONNECTTIMEOUT', 'R_PARALLELLY_MAKENODEPSOCK_RSCRIPT_LABEL', 'R_PARALLELLY_MAKENODEPSOCK_SESSIONINFO_PKGS', 'R_PARALLELLY_MAKENODEPSOCK_TIMEOUT', 'R_PARALLELLY_RANDOM_PORTS', 'R_PARALLEL_PORT', 'R_RD4PDF', 'R_RTOOLS45_PATH', 'R_SCRIPT_LEGACY', 'R_SHARE_DIR', 'R_TESTME_NAME', 'R_TESTME_PACKAGE', 'R_TESTME_PATH', 'R_TESTS', 'R_UNZIPCMD', 'R_USER', 'R_VERSION', 'R_ZIPCMD', 'SED', 'SHLVL', 'SYSTEMDRIVE', 'SYSTEMROOT', 'TAR', 'TAR_OPTIONS', 'TEMP', 'TERM', 'TETRAD_DIR', 'TEXINPUTS', 'TMP', 'TMPDIR', 'USERDOMAIN', 'USERDOMAIN_ROAMINGPROFILE', 'USERNAME', 'USERPROFILE', 'WINDIR', '_', '_R_BIBTOOLS_CACHE_BIBENTRIES_', '_R_CHECK_AUTOCONF_', '_R_CHECK_BOGUS_RETURN_', '_R_CHECK_BROWSER_NONINTERACTIVE_', '_R_CHECK_BUILD_VIGNETTES_SEPARATELY_', '_R_CHECK_CODETOOLS_PROFILE_', '_R_CHECK_CODE_ASSIGN_TO_GLOBALENV_', '_R_CHECK_CODE_ATTACH_', '_R_CHECK_CODE_CLASS_IS_STRING_', '_R_CHECK_CODE_DATA_INTO_GLOBALENV_', '_R_CHECK_CODE_USAGE_VIA_NAMESPACES_', '_R_CHECK_CODE_USAGE_WITHOUT_LOADING_', '_R_CHECK_CODE_USAGE_WITH_ONLY_BASE_ATTACHED_', '_R_CHECK_CODOC_VARIABLES_IN_USAGES_', '_R_CHECK_COMPACT_DATA2_', '_R_CHECK_COMPILATION_FLAGS_', '_R_CHECK_CONNECTIONS_LEFT_OPEN_', '_R_CHECK_CRAN_INCOMING_', '_R_CHECK_CRAN_INCOMING_ASPELL_RECHECK_MAYBE_', '_R_CHECK_CRAN_INCOMING_ASPELL_RECHECK_START_', '_R_CHECK_CRAN_INCOMING_CHECK_FILE_URIS_', '_R_CHECK_CRAN_INCOMING_CHECK_URLS_IN_PARALLEL_', '_R_CHECK_CRAN_INCOMING_NOTE_GNU_MAKE_', '_R_CHECK_CRAN_INCOMING_REMOTE_', '_R_CHECK_CRAN_INCOMING_USE_ASPELL_', '_R_CHECK_DATALIST_', '_R_CHECK_DEPRECATED_DEFUNCT_', '_R_CHECK_DOC_SIZES2_', '_R_CHECK_DOT_FIRSTLIB_', '_R_CHECK_DOT_INTERNAL_', '_R_CHECK_EXAMPLE_TIMING_THRESHOLD_', '_R_CHECK_EXECUTABLES_', '_R_CHECK_EXECUTABLES_EXCLUSIONS_', '_R_CHECK_FF_CALLS_', '_R_CHECK_FF_DUP_', '_R_CHECK_FORCE_SUGGESTS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_', '_R_CHECK_FUTURE_FILE_TIMESTAMPS_LEEWAY_', '_R_CHECK_HAVE_MYSQL_', '_R_CHECK_HAVE_ODBC_', '_R_CHECK_HAVE_PERL_', '_R_CHECK_HAVE_POSTGRES_', '_R_CHECK_INSTALL_DEPENDS_', '_R_CHECK_INTERNALS2_', '_R_CHECK_LENGTH_1_CONDITION_', '_R_CHECK_LICENSE_', '_R_CHECK_LIMIT_CORES_', '_R_CHECK_LOG_USE_INFO_', '_R_CHECK_MATRIX_DATA_', '_R_CHECK_MBCS_CONVERSION_FAILURE_', '_R_CHECK_NATIVE_ROUTINE_REGISTRATION_', '_R_CHECK_NEWS_IN_PLAIN_TEXT_', '_R_CHECK_NO_RECOMMENDED_', '_R_CHECK_NO_STOP_ON_TEST_ERROR_', '_R_CHECK_ORPHANED_', '_R_CHECK_OVERWRITE_REGISTERED_S3_METHODS_', '_R_CHECK_PACKAGES_USED_IGNORE_UNUSED_IMPORTS_', '_R_CHECK_PACKAGES_USED_IN_TESTS_USE_SUBDIRS_', '_R_CHECK_PACKAGE_DATASETS_SUPPRESS_NOTES_', '_R_CHECK_PACKAGE_NAME_', '_R_CHECK_PKG_SIZES_', '_R_CHECK_PKG_SIZES_THRESHOLD_', '_R_CHECK_PRAGMAS_', '_R_CHECK_RCPP_NOT_NEEDED_', '_R_CHECK_RD_BIBENTRIES_CITED_NOT_SHOWN_', '_R_CHECK_RD_EXAMPLES_T_AND_F_', '_R_CHECK_RD_LINE_WIDTHS_', '_R_CHECK_RD_MATH_RENDERING_', '_R_CHECK_RD_NOTE_LOST_BRACES_', '_R_CHECK_RD_VALIDATE_RD2HTML_', '_R_CHECK_REPLACING_IMPORTS_', '_R_CHECK_R_DEPENDS_', '_R_CHECK_S3_METHODS_SHOW_POSSIBLE_ISSUES_', '_R_CHECK_SCREEN_DEVICE_', '_R_CHECK_SERIALIZATION_', '_R_CHECK_SHLIB_OPENMP_FLAGS_', '_R_CHECK_SRC_MINUS_W_IMPLICIT_', '_R_CHECK_SUBDIRS_NOCASE_', '_R_CHECK_SUGGESTS_ONLY_', '_R_CHECK_SYSTEM_CLOCK_', '_R_CHECK_TESTS_NLINES_', '_R_CHECK_TEST_TIMING_', '_R_CHECK_TIMINGS_', '_R_CHECK_TOPLEVEL_FILES_', '_R_CHECK_UNDOC_USE_ALL_NAMES_', '_R_CHECK_UNSAFE_CALLS_', '_R_CHECK_URLS_RELATIVE_PATHS_', '_R_CHECK_URLS_SHOW_301_STATUS_', '_R_CHECK_VC_DIRS_', '_R_CHECK_VIGNETTES_NLINES_', '_R_CHECK_VIGNETTES_SKIP_RUN_MAYBE_', '_R_CHECK_VIGNETTE_TIMING_', '_R_CHECK_VIGNETTE_TITLES_', '_R_CHECK_WINDOWS_DEVICE_', '_R_CHECK_XREFS_NOTE_MISSING_PACKAGE_ANCHORS_', '_R_CHECK_XREFS_USE_ALIASES_FROM_CRAN_', '_R_CLASS_MATRIX_ARRAY_', '_R_DEPRECATED_IS_R_', '_R_S3_METHOD_LOOKUP_BASEENV_AFTER_GLOBALENV_', '_R_SHLIB_BUILD_OBJECTS_SYMBOL_TABLES_', '_R_USE_STRICT_R_HEADERS_', '__R_CHECK_DOC_FILES_NOTE_IF_ALL_INTERNAL__', 'maj.version', 'nextArg--timingsnextArg--install', 'tempdirname' - Environment variables still there: [n=0] - Environment variables missing: [n=1] 'MAKEFLAGS' Differences environment variable by environment variable: Skipping, because path appears not to be an 'R CMD check' folder: 'D:/temp/2026_04_01_06_55_16_3646' Test time: user.self=0.6s, sys.self=0.09s, elapsed=0.7s, user.child=NAs, sys.child=NAs Test 'internals-futurize' ... success > > proc.time() user system elapsed 1.07 0.21 1.23