Running ‘testthat.R’ [36s/65s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(mice)
  
  Attaching package: 'mice'
  
  The following object is masked from 'package:stats':
  
      filter
  
  The following objects are masked from 'package:base':
  
      cbind, rbind
  
  > 
  > test_check("mice")
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 373 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-D3.R:23:1'): (code run outside of `test_that()`) ───────────────
  Error in `ll(object)`: could not find function "ll"
  Backtrace:
       ▆
    1. ├─mice::D3(fit1 = fit1, fit0 = fit0) at test-D3.R:23:1
    2. │ ├─lapply(fit1, glance) %>% bind_rows() %>% pull(.data$logLik)
    3. │ └─base::lapply(fit1, glance)
    4. │   ├─generics (local) FUN(X[[i]], ...)
    5. │   └─broom:::glance.lm(X[[i]], ...)
    6. │     ├─base::with(...)
    7. │     └─base::with.default(...)
    8. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
    9. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   10. │           └─tibble::tibble(...)
   11. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   12. │               └─rlang::eval_tidy(xs[[j]], mask)
   13. ├─dplyr::pull(., .data$logLik)
   14. ├─dplyr::bind_rows(.)
   15. │ └─rlang::list2(...)
   16. ├─stats::AIC(x)
   17. └─stats:::AIC.default(x)
  ── Error ('test-anova.R:9:3'): anova.mira() produces silent D1 and D3 ──────────
  Error in `ll(object)`: could not find function "ll"
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(z1 <- anova(m2, m1, m0)) at test-anova.R:9:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─stats::anova(m2, m1, m0)
   10. ├─mice:::anova.mira(m2, m1, m0)
   11. │ └─lapply(modlist, getfit, 1L) %>% sapply(glance)
   12. ├─base::sapply(., glance)
   13. │ └─base::lapply(X = X, FUN = FUN, ...)
   14. │   ├─generics (local) FUN(X[[i]], ...)
   15. │   └─broom:::glance.lm(X[[i]], ...)
   16. │     ├─base::with(...)
   17. │     └─base::with.default(...)
   18. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   19. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   20. │           └─tibble::tibble(...)
   21. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   22. │               └─rlang::eval_tidy(xs[[j]], mask)
   23. ├─stats::AIC(x)
   24. └─stats:::AIC.default(x)
  ── Error ('test-anova.R:14:3'): anova.mira() produces silent with D2 ───────────
  Error in `ll(object)`: could not find function "ll"
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(z2a <- anova(m2, m1, m0, method = "D2")) at test-anova.R:14:3
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. ├─stats::anova(m2, m1, m0, method = "D2")
   10. ├─mice:::anova.mira(m2, m1, m0, method = "D2")
   11. │ └─lapply(modlist, getfit, 1L) %>% sapply(glance)
   12. ├─base::sapply(., glance)
   13. │ └─base::lapply(X = X, FUN = FUN, ...)
   14. │   ├─generics (local) FUN(X[[i]], ...)
   15. │   └─broom:::glance.lm(X[[i]], ...)
   16. │     ├─base::with(...)
   17. │     └─base::with.default(...)
   18. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   19. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   20. │           └─tibble::tibble(...)
   21. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   22. │               └─rlang::eval_tidy(xs[[j]], mask)
   23. ├─stats::AIC(x)
   24. └─stats:::AIC.default(x)
  ── Error ('test-pool.r.squared.R:9:3'): pool.r.squared mira ────────────────────
  Error in `ll(object)`: could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::as.vector(...) at test-pool.r.squared.R:9:3
    2. ├─mice::pool.r.squared(fit_mira, adjusted = FALSE)
    3. │ ├─base::summary(object, type = "glance")
    4. │ └─mice:::summary.mira(object, type = "glance")
    5. │   ├─lapply(fitlist, glance, ...) %>% bind_rows()
    6. │   └─base::lapply(fitlist, glance, ...)
    7. │     ├─generics (local) FUN(X[[i]], ...)
    8. │     └─broom:::glance.lm(X[[i]], ...)
    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. ├─dplyr::bind_rows(.)
   17. │ └─rlang::list2(...)
   18. ├─stats::AIC(x)
   19. └─stats:::AIC.default(x)
  ── Error ('test-pool.r.squared.R:14:3'): r.squared mipo ────────────────────────
  Error in `if (nrow(object$glanced) < 2) {
      stop("At least two imputations are needed for pooling.\n")
  }`: argument is of length zero
  Backtrace:
      ▆
   1. ├─base::as.vector(...) at test-pool.r.squared.R:14:3
   2. └─mice::pool.r.squared(fit_mipo, adjusted = FALSE)
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 373 ]
  Error: Test failures
  Execution halted