Last updated on 2025-09-06 03:50:00 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.0.1 | 2.13 | 34.21 | 36.34 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.0.1 | 1.44 | 26.56 | 28.00 | OK | |
| r-devel-linux-x86_64-fedora-clang | 1.0.1 | 51.98 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 1.0.1 | 48.00 | OK | |||
| r-devel-windows-x86_64 | 1.0.1 | 3.00 | 51.00 | 54.00 | ERROR | |
| r-patched-linux-x86_64 | 1.0.1 | 2.32 | 30.71 | 33.03 | OK | |
| r-release-linux-x86_64 | 1.0.1 | 2.22 | 29.90 | 32.12 | OK | |
| r-release-macos-arm64 | 1.0.1 | 19.00 | OK | |||
| r-release-macos-x86_64 | 1.0.1 | 41.00 | OK | |||
| r-release-windows-x86_64 | 1.0.1 | 3.00 | 49.00 | 52.00 | OK | |
| r-oldrel-macos-arm64 | 1.0.1 | 19.00 | OK | |||
| r-oldrel-macos-x86_64 | 1.0.1 | 27.00 | OK | |||
| r-oldrel-windows-x86_64 | 1.0.1 | 4.00 | 58.00 | 62.00 | OK |
Version: 1.0.1
Check: examples
Result: 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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.0.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [8s/12s]
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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.0.1
Check: examples
Result: 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 -> <Anonymous> -> AIC.default
Execution halted
Flavor: r-devel-windows-x86_64
Version: 1.0.1
Check: tests
Result: 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
Flavor: r-devel-windows-x86_64