Running ‘testthat.R’ [21s/49s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(missCompare)
  
  Attaching package: 'missCompare'
  
  The following object is masked from 'package:stats':
  
      simulate
  
  > 
  > test_check("missCompare")
  [1] "random replacement imputation - in progress"
  [1] "mice mixed imputation - in progress"
  [1] "mi imputation - in progress"
  starting worker pid=1632578 on localhost:11987 at 18:36:04.671
  starting worker pid=1632579 on localhost:11987 at 18:36:04.707
  [1] "missForest imputation - in progress"
  [1] "Hmisc aregImpute imputation - in progress"
  [1] "VIM kNN imputation - in progress"
  [1] "random replacement imputation - in progress"
  [1] "mice mixed imputation - in progress"
  [1] "mi imputation - in progress"
  starting worker pid=1634220 on localhost:11987 at 18:36:21.620
  starting worker pid=1634219 on localhost:11987 at 18:36:21.637
  [1] "missForest imputation - in progress"
  [1] "Hmisc aregImpute imputation - in progress"
  [1] "VIM kNN imputation - in progress"
  [1] "random replacement imputation - in progress"
  [1] "Median imputation - in progress"
  [1] "Mean imputation - in progress"
  [1] "missMDA regularized imputation - in progress"
  Saving _problems/test.imp_data-34.R
  [1] "random replacement imputation - in progress"
  [1] "Median imputation - in progress"
  [1] "Mean imputation - in progress"
  [1] "missMDA regularized imputation - in progress"
  Saving _problems/test.imp_data-40.R
  [1] "Median imputation - in progress"
  [1] "Mean imputation - in progress"
  [1] "missMDA regularized imputation - in progress"
  Saving _problems/test.imp_data-45.R
  [1] "ITERATION 1 OF TOTAL 1 - IN PROGRESS"
  [1] "random replacement imputation - in progress"
  [1] "Median imputation - in progress"
  [1] "Mean imputation - in progress"
  [1] "missMDA regularized imputation - in progress"
  Saving _problems/test.imp_simulation-23.R
  [ FAIL 4 | WARN 1 | SKIP 0 | PASS 21 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test.imp_data.R:34:3'): runs OK when all numeric and with scaling ──
  `impute_data(small, n.iter = 1, scale = T, sel_method = c(1:16))` threw an error.
  Message: infinite or missing values in 'x'
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test.imp_data.R:34:3
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─missCompare::impute_data(small, n.iter = 1, scale = T, sel_method = c(1:16))
    7.   └─missMDA::estim_ncpPCA(X, ncp.max = ncol(X) - 2)
    8.     └─missMDA::imputePCA(...)
    9.       └─missMDA (local) impute(...)
   10.         └─FactoMineR::svd.triplet(Xhat, row.w = row.w, ncp = ncp)
   11.           └─irlba::irlba(X, nu = ncp, nv = ncp)
   12.             └─base::svd(A)
  ── Failure ('test.imp_data.R:40:3'): runs OK when all numeric and without scaling ──
  `suppressWarnings(impute_data(small, n.iter = 1, scale = F, sel_method = c(1:16)))` threw an error.
  Message: infinite or missing values in 'x'
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test.imp_data.R:40:3
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─base::suppressWarnings(...)
    7. │ └─base::withCallingHandlers(...)
    8. └─missCompare::impute_data(small, n.iter = 1, scale = F, sel_method = c(1:16))
    9.   └─missMDA::estim_ncpPCA(X, ncp.max = ncol(X) - 2)
   10.     └─missMDA::imputePCA(...)
   11.       └─missMDA (local) impute(...)
   12.         └─FactoMineR::svd.triplet(Xhat, row.w = row.w, ncp = ncp)
   13.           └─irlba::irlba(X, nu = ncp, nv = ncp)
   14.             └─base::svd(A)
  ── Error ('test.imp_data.R:45:1'): (code run outside of `test_that()`) ─────────
  Error in `svd(A)`: infinite or missing values in 'x'
  Backtrace:
      ▆
   1. └─missCompare::impute_data(...) at test.imp_data.R:45:1
   2.   └─missMDA::estim_ncpPCA(X, ncp.max = ncol(X) - 2)
   3.     └─missMDA::imputePCA(...)
   4.       └─missMDA (local) impute(...)
   5.         └─FactoMineR::svd.triplet(Xhat, row.w = row.w, ncp = ncp)
   6.           └─irlba::irlba(X, nu = ncp, nv = ncp)
   7.             └─base::svd(A)
  ── Failure ('test.imp_simulation.R:17:3'): simulation runs without errors ──────
  `impute_simulated(...)` threw an error.
  Message: infinite or missing values in 'x'
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test.imp_simulation.R:17:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─testthat::expect_error(...)
    4. │ └─testthat:::quasi_capture(...)
    5. │   ├─testthat (local) .capture(...)
    6. │   │ └─base::withCallingHandlers(...)
    7. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    8. └─missCompare::impute_simulated(...)
    9.   ├─base::as.data.frame(test_missMDA_reg(sim$Simulated_matrix, list = res))
   10.   └─missCompare::test_missMDA_reg(sim$Simulated_matrix, list = res)
   11.     ├─utils::capture.output(results <- lapply(list, missMDA_regularized_imp))
   12.     │ └─base::withVisible(...elt(i))
   13.     └─base::lapply(list, missMDA_regularized_imp)
   14.       └─missCompare (local) FUN(X[[i]], ...)
   15.         └─missMDA::estim_ncpPCA(X, ncp.max = ncol(X) - 2)
   16.           └─missMDA::imputePCA(...)
   17.             └─missMDA (local) impute(...)
   18.               └─FactoMineR::svd.triplet(Xhat, row.w = row.w, ncp = ncp)
   19.                 └─irlba::irlba(X, nu = ncp, nv = ncp)
   20.                   └─base::svd(A)
  
  [ FAIL 4 | WARN 1 | SKIP 0 | PASS 21 ]
  Error:
  ! Test failures.
  Execution halted