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