- using R Under development (unstable) (2025-09-03 r88788)
- using platform: x86_64-pc-linux-gnu
- R was compiled by
gcc-15 (Debian 15.2.0-2) 15.2.0
GNU Fortran (Debian 15.2.0-2) 15.2.0
- running under: Debian GNU/Linux forky/sid
- using session charset: UTF-8
- checking for file ‘swaprinc/DESCRIPTION’ ... OK
- this is package ‘swaprinc’ version ‘1.0.1’
- package encoding: UTF-8
- checking CRAN incoming feasibility ... [1s/1s] OK
- 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 executable files ... OK
- checking for hidden files and directories ... OK
- checking for portable file names ... OK
- checking for sufficient/correct file permissions ... OK
- checking serialization versions ... OK
- checking whether package ‘swaprinc’ can be installed ... OK
See the install log for details.
- checking package directory ... OK
- checking for future file timestamps ... 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/0s] OK
- checking whether the package can be loaded with stated dependencies ... [0s/0s] OK
- checking whether the package can be unloaded cleanly ... [0s/0s] OK
- checking whether the namespace can be loaded with stated dependencies ... [0s/0s] OK
- checking whether the namespace can be unloaded cleanly ... [0s/0s] OK
- checking loading without being on the library search path ... [0s/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 ... [3s/5s] OK
- checking Rd files ... [0s/0s] OK
- checking Rd metadata ... OK
- checking Rd line widths ... 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/1s] ERROR
Running examples in ‘swaprinc-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### 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 -> <Anonymous> -> AIC.default
Execution halted
- checking for unstated dependencies in ‘tests’ ... OK
- checking tests ... [5s/6s] ERROR
Running ‘testthat.R’ [5s/6s]
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 ... [4s/6s] OK
- checking HTML version of manual ... [0s/0s] OK
- checking for non-standard things in the check directory ... OK
- DONE
Status: 2 ERRORs