Running ‘testthat.R’ [5s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(moderndive)
  > 
  > test_check("moderndive")
  [ FAIL 1 | WARN 1 | SKIP 4 | PASS 74 ]
  
  ══ Skipped tests (4) ═══════════════════════════════════════════════════════════
  • On CRAN (4): 'test-geom_categorical_model.R:13:3',
    'test-geom_categorical_model.R:49:3', 'test-geom_parallel_slopes.R:28:3',
    'test-geom_parallel_slopes.R:95:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-get_regression_functions.R:112:3'): README code works ──────────
  Error in `ll(object)`: could not find function "ll"
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(get_regression_summaries(mpg_model)) at test-get_regression_functions.R:112: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. ├─moderndive::get_regression_summaries(mpg_model)
   10. │ └─... %>% ...
   11. ├─dplyr::select(., r_squared, adj_r_squared, mse, rmse, everything())
   12. ├─dplyr::bind_cols(., mse_and_rmse)
   13. │ └─rlang::list2(...)
   14. ├─janitor::clean_names(.)
   15. ├─tibble::as_tibble(.)
   16. ├─dplyr::select(., -c(AIC, BIC, deviance, df.residual, logLik))
   17. ├─dplyr::mutate_if(., is.numeric, round, digits = digits)
   18. │ └─dplyr:::check_grouped(.tbl, "mutate", "if")
   19. │   └─dplyr::is_grouped_df(tbl)
   20. ├─generics::glance(.)
   21. ├─broom:::glance.lm(.)
   22. │ ├─base::with(...)
   23. │ └─base::with.default(...)
   24. │   └─base::eval(substitute(expr), data, enclos = parent.frame())
   25. │     └─base::eval(substitute(expr), data, enclos = parent.frame())
   26. │       └─tibble::tibble(...)
   27. │         └─tibble:::tibble_quos(xs, .rows, .name_repair)
   28. │           └─rlang::eval_tidy(xs[[j]], mask)
   29. ├─stats::AIC(x)
   30. └─stats:::AIC.default(x)
  
  [ FAIL 1 | WARN 1 | SKIP 4 | PASS 74 ]
  Error: Test failures
  Execution halted