Running ‘testthat.R’ [9s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(crossmap)
  > 
  > test_check("crossmap")
  [ FAIL 11 | WARN 0 | SKIP 2 | PASS 212 ]
  
  ══ Skipped tests (2) ═══════════════════════════════════════════════════════════
  • On CRAN (2): 'test-errors.R:1:1', 'test-future_xmap.R:1:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-cross_fit.R:11:3'): one subset, one formula ────────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(cross_fit(df, y ~ x, m)) at test-cross_fit.R:11:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, y ~ x, m)
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:26:3'): no subset, one formula ─────────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(cross_fit(df, y ~ x)) at test-cross_fit.R:26:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, y ~ x)
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:32:3'): one subset, two formulas ───────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(cross_fit(df, list(y ~ x, y ~ z), m)) at test-cross_fit.R:32:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, list(y ~ x, y ~ z), m)
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:39:3'): two subsets, one formula ───────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(cross_fit(df, y ~ x, c(m, n))) at test-cross_fit.R:39:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, y ~ x, c(m, n))
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:46:3'): two subsets, two formulas ──────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(cross_fit(df, c(y ~ x, y ~ z), c(m, n))) at test-cross_fit.R:46:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, c(y ~ x, y ~ z), c(m, n))
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:55:3'): one subset, one formula, one weight ────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(cross_fit(df, y ~ x, m, w)) at test-cross_fit.R:55:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, y ~ x, m, w)
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:64:3'): two subsets, one formula, two weights ──────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test-cross_fit.R:64:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, y ~ x, c(m, n), list(w, NULL))
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:89:3'): named formulas ─────────────────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test-cross_fit.R:89:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, list(x = y ~ x, z = y ~ z), m)
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`)
   19. │   └─broom:::glance.lm(`<lm>`)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:113:3'): conf.int ──────────────────────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(cross_fit(df, y ~ x, m, tidy_args = list(conf.int = TRUE))) at test-cross_fit.R:113:3
    2. │ └─base::withCallingHandlers(...)
    3. ├─crossmap::cross_fit(df, y ~ x, m, tidy_args = list(conf.int = TRUE))
    4. │ └─crossmap:::cross_fit_internal(...)
    5. │   ├─dplyr::reframe(...)
    6. │   └─dplyr:::reframe.data.frame(...)
    7. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
    8. │       ├─base::withCallingHandlers(...)
    9. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   10. │         └─base::lapply(.x, .f, ...)
   11. │           └─dplyr (local) FUN(X[[i]], ...)
   12. │             └─mask$eval_all_summarise(quo)
   13. │               └─dplyr (local) eval()
   14. ├─purrr (local) tidy(...)
   15. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   16. │ └─crossmap (local) ..f(`<lm>`, conf.int = TRUE)
   17. │   ├─base::do.call(generics::glance, glance_args)
   18. │   ├─generics (local) `<fn>`(`<lm>`, conf.int = TRUE)
   19. │   └─broom:::glance.lm(`<lm>`, conf.int = TRUE)
   20. │     ├─base::with(...)
   21. │     └─base::with.default(...)
   22. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   23. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   24. │           └─tibble::tibble(...)
   25. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   26. │               └─rlang::eval_tidy(xs[[j]], mask)
   27. ├─stats::AIC(x)
   28. ├─stats:::AIC.default(x)
   29. └─base::.handleSimpleError(...)
   30.   └─dplyr (local) h(simpleError(msg, call))
   31.     └─dplyr (local) handler(cnd)
   32.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:194:3'): clusters ──────────────────────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-cross_fit.R:194: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. ├─crossmap::cross_fit(df, y ~ x, clusters = list(m, n))
    7. │ └─crossmap:::cross_fit_internal(...)
    8. │   ├─dplyr::reframe(...)
    9. │   └─dplyr:::reframe.data.frame(...)
   10. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
   11. │       ├─base::withCallingHandlers(...)
   12. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   13. │         └─base::lapply(.x, .f, ...)
   14. │           └─dplyr (local) FUN(X[[i]], ...)
   15. │             └─mask$eval_all_summarise(quo)
   16. │               └─dplyr (local) eval()
   17. ├─purrr (local) tidy(...)
   18. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   19. │ └─crossmap (local) ..f(`<lm>`)
   20. │   ├─base::do.call(generics::glance, glance_args)
   21. │   ├─generics (local) `<fn>`(`<lm>`)
   22. │   └─broom:::glance.lm(`<lm>`)
   23. │     ├─base::with(...)
   24. │     └─base::with.default(...)
   25. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   26. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   27. │           └─tibble::tibble(...)
   28. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   29. │               └─rlang::eval_tidy(xs[[j]], mask)
   30. ├─stats::AIC(x)
   31. ├─stats:::AIC.default(x)
   32. └─base::.handleSimpleError(...)
   33.   └─dplyr (local) h(simpleError(msg, call))
   34.     └─dplyr (local) handler(cnd)
   35.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test-cross_fit.R:199:3'): no contrasts ──────────────────────────────
  Error in `dplyr::reframe(data, tidy(list(fn(c(list(formula = .formula, 
      data = data), if (!is.null(weights)) {
      list(weights = unlist(data$.weight))
  }, if (!is.null(clusters)) {
      list(clusters = unlist(data$.cluster))
  }, if (!is.null(families)) {
      list(family = .family)
  }, fn_args))), !!!tidy_args))`: ℹ In argument: `tidy(...)`.
  ℹ In row 1.
  Caused by error in `ll()`:
  ! could not find function "ll"
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-cross_fit.R:199: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. ├─crossmap::cross_fit(df, x ~ m, n, errors = "warn")
    7. │ └─crossmap:::cross_fit_internal(...)
    8. │   ├─dplyr::reframe(...)
    9. │   └─dplyr:::reframe.data.frame(...)
   10. │     └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
   11. │       ├─base::withCallingHandlers(...)
   12. │       └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   13. │         └─base::lapply(.x, .f, ...)
   14. │           └─dplyr (local) FUN(X[[i]], ...)
   15. │             └─mask$eval_all_summarise(quo)
   16. │               └─dplyr (local) eval()
   17. ├─purrr (local) tidy(...)
   18. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
   19. │ └─crossmap (local) ..f(`<lm>`)
   20. │   ├─base::do.call(generics::glance, glance_args)
   21. │   ├─generics (local) `<fn>`(`<lm>`)
   22. │   └─broom:::glance.lm(`<lm>`)
   23. │     ├─base::with(...)
   24. │     └─base::with.default(...)
   25. │       └─base::eval(substitute(expr), data, enclos = parent.frame())
   26. │         └─base::eval(substitute(expr), data, enclos = parent.frame())
   27. │           └─tibble::tibble(...)
   28. │             └─tibble:::tibble_quos(xs, .rows, .name_repair)
   29. │               └─rlang::eval_tidy(xs[[j]], mask)
   30. ├─stats::AIC(x)
   31. ├─stats:::AIC.default(x)
   32. └─base::.handleSimpleError(...)
   33.   └─dplyr (local) h(simpleError(msg, call))
   34.     └─dplyr (local) handler(cnd)
   35.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 11 | WARN 0 | SKIP 2 | PASS 212 ]
  Error: Test failures
  Execution halted