* using log directory 'd:/Rcompile/CRANpkg/local/4.6/swaprinc.Rcheck' * using R Under development (unstable) (2025-09-03 r88788 ucrt) * using platform: x86_64-w64-mingw32 * R was compiled by gcc.exe (GCC) 14.2.0 GNU Fortran (GCC) 14.2.0 * running under: Windows Server 2022 x64 (build 20348) * using session charset: UTF-8 * checking for file 'swaprinc/DESCRIPTION' ... OK * this is package 'swaprinc' version '1.0.1' * package encoding: UTF-8 * checking package namespace information ... OK * checking package dependencies ... OK * checking if this is a source package ... OK * checking if there is a namespace ... OK * checking for hidden files and directories ... OK * checking for portable file names ... OK * checking whether package 'swaprinc' can be installed ... OK * checking installed package size ... OK * checking package directory ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... OK * checking for left-over files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking code files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... [0s] OK * checking whether the package can be loaded with stated dependencies ... [0s] OK * checking whether the package can be unloaded cleanly ... [0s] OK * checking whether the namespace can be loaded with stated dependencies ... [0s] OK * checking whether the namespace can be unloaded cleanly ... [0s] OK * checking loading without being on the library search path ... [0s] OK * checking use of S3 registration ... OK * checking dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... [2s] OK * checking Rd files ... [0s] OK * checking Rd metadata ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking Rd contents ... OK * checking for unstated dependencies in examples ... OK * checking examples ... [1s] ERROR Running examples in 'swaprinc-Ex.R' failed The error most likely occurred in: > ### Name: compswap > ### Title: Compare swaprinc Models > ### Aliases: compswap > > ### ** Examples > > # Load the iris dataset > data(iris) > > # Define the formula > formula <- "Sepal.Length ~ Sepal.Width + Petal.Length + Petal.Width" > > # Define the pca_varlist > pca_varlist <- list(c("Sepal.Width", "Petal.Length"), + c("Sepal.Width", "Petal.Width")) > > # Define the n_pca_list > n_pca_list <- list(2, 2) > > # Set scaling values > lpca_center_list <- list("none", "none") > lpca_scale_list <- list("none", "none") > lpca_undo_list <- list(FALSE, FALSE) > > # Run compswap > compswap_results <- compswap(data = iris, + formula = formula, + engine = "stats", + .pca_varlist = pca_varlist, + .n_pca_list = n_pca_list, + .lpca_center_list = lpca_center_list, + .lpca_scale_list = lpca_scale_list, + .lpca_undo_list = lpca_undo_list) Error in ll(object) : could not find function "ll" Calls: compswap ... tibble_quos -> eval_tidy -> -> AIC.default Execution halted * checking for unstated dependencies in 'tests' ... OK * checking tests ... [7s] ERROR Running 'testthat.R' [7s] Running the tests in 'tests/testthat.R' failed. Complete output: > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/tests.html > # * https://testthat.r-lib.org/reference/test_package.html#special-files > > library(testthat) > library(swaprinc) > > test_check("swaprinc") [ FAIL 15 | WARN 0 | SKIP 0 | PASS 12 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-compswap.R:23:3'): compswap works correctly with for lm ──────── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::compswap(...) at test-compswap.R:23:3 2. │ └─swaprinc::swaprinc(...) 3. │ ├─utils::capture.output(...) 4. │ │ └─base::withVisible(...elt(i)) 5. │ └─swaprinc:::swaprinc_loud(...) 6. │ └─swaprinc (local) compare_models(model_raw, model_pca) 7. │ ├─broom::glance(model_raw) 8. │ └─broom:::glance.lm(model_raw) 9. │ ├─base::with(...) 10. │ └─base::with.default(...) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 13. │ └─tibble::tibble(...) 14. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 15. │ └─rlang::eval_tidy(xs[[j]], mask) 16. ├─stats::AIC(x) 17. └─stats:::AIC.default(x) ── Error ('test-compswap.R:63:3'): compswap works correctly with for lm with recycling ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::compswap(...) at test-compswap.R:63:3 2. │ └─swaprinc::swaprinc(...) 3. │ ├─utils::capture.output(...) 4. │ │ └─base::withVisible(...elt(i)) 5. │ └─swaprinc:::swaprinc_loud(...) 6. │ └─swaprinc (local) compare_models(model_raw, model_pca) 7. │ ├─broom::glance(model_raw) 8. │ └─broom:::glance.lm(model_raw) 9. │ ├─base::with(...) 10. │ └─base::with.default(...) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 13. │ └─tibble::tibble(...) 14. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 15. │ └─rlang::eval_tidy(xs[[j]], mask) 16. ├─stats::AIC(x) 17. └─stats:::AIC.default(x) ── Error ('test-compswap.R:100:3'): compswap works correctly with for lm with recycling and Gifi prc_eng ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::compswap(...) at test-compswap.R:100:3 2. │ └─swaprinc::swaprinc(...) 3. │ ├─utils::capture.output(...) 4. │ │ └─base::withVisible(...elt(i)) 5. │ └─swaprinc:::swaprinc_loud(...) 6. │ └─swaprinc (local) compare_models(model_raw, model_pca) 7. │ ├─broom::glance(model_raw) 8. │ └─broom:::glance.lm(model_raw) 9. │ ├─base::with(...) 10. │ └─base::with.default(...) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 13. │ └─tibble::tibble(...) 14. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 15. │ └─rlang::eval_tidy(xs[[j]], mask) 16. ├─stats::AIC(x) 17. └─stats:::AIC.default(x) ── Error ('test-compswap.R:165:3'): compswap works correctly for lm with recycling and passing extra arguments to gifi_transform ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::compswap(...) at test-compswap.R:165:3 2. │ └─swaprinc::swaprinc(...) 3. │ ├─utils::capture.output(...) 4. │ │ └─base::withVisible(...elt(i)) 5. │ └─swaprinc:::swaprinc_loud(...) 6. │ └─swaprinc (local) compare_models(model_raw, model_pca) 7. │ ├─broom::glance(model_raw) 8. │ └─broom:::glance.lm(model_raw) 9. │ ├─base::with(...) 10. │ └─base::with.default(...) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 13. │ └─tibble::tibble(...) 14. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 15. │ └─rlang::eval_tidy(xs[[j]], mask) 16. ├─stats::AIC(x) 17. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:7:3'): swaprinc returns correct class for basic lm ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:7:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:212:3'): swaprinc returns correct class for basic lm for norun_raw = TRUE ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:212:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_pca) 7. │ └─broom:::glance.lm(model_pca) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:232:3'): swaprinc returns correct class for when lpca_center = 'all' & lpca_scale = 'all' ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:232:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:251:13'): swaprinc returns correct class when lpca_center = 'all' & lpca_scale = 'all' and no_tresp = TRUE ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:251:13 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:286:3'): swaprinc works with prc_eng set to Gifi ──── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:286:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:322:3'): swaprinc works with prc_eng set to stats_Gifi ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:322:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:360:3'): swaprinc works with prc_eng set to stats_Gifi using named lists for pca_vars ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:360:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:398:13'): swaprinc works with gifi_trans_vars ─────── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:398:13 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:437:3'): swaprinc works with gifi_trans_vars with gifi_trans_options ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:437:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:474:3'): swaprinc works with prc_eng set to Gifi and extra parameters passed to Gifi::princals (gifi_princals_options) ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:474:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) ── Error ('test-swaprinc.R:496:3'): swaprinc works with miss_handler set to omit ── Error in `ll(object)`: could not find function "ll" Backtrace: ▆ 1. ├─swaprinc::swaprinc(...) at test-swaprinc.R:496:3 2. │ ├─utils::capture.output(...) 3. │ │ └─base::withVisible(...elt(i)) 4. │ └─swaprinc:::swaprinc_loud(...) 5. │ └─swaprinc (local) compare_models(model_raw, model_pca) 6. │ ├─broom::glance(model_raw) 7. │ └─broom:::glance.lm(model_raw) 8. │ ├─base::with(...) 9. │ └─base::with.default(...) 10. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 11. │ └─base::eval(substitute(expr), data, enclos = parent.frame()) 12. │ └─tibble::tibble(...) 13. │ └─tibble:::tibble_quos(xs, .rows, .name_repair) 14. │ └─rlang::eval_tidy(xs[[j]], mask) 15. ├─stats::AIC(x) 16. └─stats:::AIC.default(x) [ FAIL 15 | WARN 0 | SKIP 0 | PASS 12 ] Error: Test failures Execution halted * checking PDF version of manual ... [21s] OK * checking HTML version of manual ... [1s] OK * DONE Status: 2 ERRORs