Last updated on 2025-09-07 01:48:37 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.4.2 | 3.20 | 101.85 | 105.05 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 0.4.2 | 2.16 | 76.71 | 78.87 | OK | |
| r-devel-linux-x86_64-fedora-clang | 0.4.2 | 166.10 | OK | |||
| r-devel-linux-x86_64-fedora-gcc | 0.4.2 | 162.06 | OK | |||
| r-devel-windows-x86_64 | 0.4.2 | 10.00 | 101.00 | 111.00 | ERROR | |
| r-patched-linux-x86_64 | 0.4.2 | 3.50 | 103.23 | 106.73 | OK | |
| r-release-linux-x86_64 | 0.4.2 | 3.13 | 104.31 | 107.44 | OK | |
| r-release-macos-arm64 | 0.4.2 | 49.00 | OK | |||
| r-release-macos-x86_64 | 0.4.2 | 109.00 | OK | |||
| r-release-windows-x86_64 | 0.4.2 | 10.00 | 110.00 | 120.00 | OK | |
| r-oldrel-macos-arm64 | 0.4.2 | 53.00 | OK | |||
| r-oldrel-macos-x86_64 | 0.4.2 | 103.00 | OK | |||
| r-oldrel-windows-x86_64 | 0.4.2 | 11.00 | 140.00 | 151.00 | OK |
Version: 0.4.2
Check: examples
Result: ERROR
Running examples in ‘crossmap-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cross_fit
> ### Title: Cross map a model across multiple formulas, subsets, and weights
> ### Aliases: cross_fit
>
> ### ** Examples
>
> cross_fit(mtcars, mpg ~ wt, cyl)
Error in `dplyr::reframe()`:
ℹ In argument: `tidy(...)`.
ℹ In row 1.
Caused by error in `ll()`:
! could not find function "ll"
Backtrace:
▆
1. ├─crossmap::cross_fit(mtcars, mpg ~ wt, cyl)
2. │ └─crossmap:::cross_fit_internal(...)
3. │ ├─dplyr::reframe(...)
4. │ └─dplyr:::reframe.data.frame(...)
5. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
6. │ ├─base::withCallingHandlers(...)
7. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
8. │ └─base::lapply(.x, .f, ...)
9. │ └─dplyr (local) FUN(X[[i]], ...)
10. │ └─mask$eval_all_summarise(quo)
11. │ └─dplyr (local) eval()
12. ├─purrr (local) tidy(...)
13. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
14. │ └─crossmap (local) ..f(`<lm>`)
15. │ ├─base::do.call(generics::glance, glance_args)
16. │ ├─generics (local) `<fn>`(`<lm>`)
17. │ └─broom:::glance.lm(`<lm>`)
18. │ ├─base::with(...)
19. │ └─base::with.default(...)
20. │ └─base::eval(substitute(expr), data, enclos = parent.frame())
21. │ └─base::eval(substitute(expr), data, enclos = parent.frame())
22. │ └─tibble::tibble(...)
23. │ └─tibble:::tibble_quos(xs, .rows, .name_repair)
24. │ └─rlang::eval_tidy(xs[[j]], mask)
25. ├─stats::AIC(x)
26. ├─stats:::AIC.default(x)
27. └─base::.handleSimpleError(...)
28. └─dplyr (local) h(simpleError(msg, call))
29. └─dplyr (local) handler(cnd)
30. └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.4.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [12s/16s]
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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.4.2
Check: examples
Result: ERROR
Running examples in 'crossmap-Ex.R' failed
The error most likely occurred in:
> ### Name: cross_fit
> ### Title: Cross map a model across multiple formulas, subsets, and weights
> ### Aliases: cross_fit
>
> ### ** Examples
>
> cross_fit(mtcars, mpg ~ wt, cyl)
Error in `dplyr::reframe()`:
ℹ In argument: `tidy(...)`.
ℹ In row 1.
Caused by error in `ll()`:
! could not find function "ll"
Backtrace:
▆
1. ├─crossmap::cross_fit(mtcars, mpg ~ wt, cyl)
2. │ └─crossmap:::cross_fit_internal(...)
3. │ ├─dplyr::reframe(...)
4. │ └─dplyr:::reframe.data.frame(...)
5. │ └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "reframe")
6. │ ├─base::withCallingHandlers(...)
7. │ └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
8. │ └─base::lapply(.x, .f, ...)
9. │ └─dplyr (local) FUN(X[[i]], ...)
10. │ └─mask$eval_all_summarise(quo)
11. │ └─dplyr (local) eval()
12. ├─purrr (local) tidy(...)
13. │ ├─base::do.call("..f", c(.x, defaults, list(...)))
14. │ └─crossmap (local) ..f(`<lm>`)
15. │ ├─base::do.call(generics::glance, glance_args)
16. │ ├─generics (local) `<fn>`(`<lm>`)
17. │ └─broom:::glance.lm(`<lm>`)
18. │ ├─base::with(...)
19. │ └─base::with.default(...)
20. │ └─base::eval(substitute(expr), data, enclos = parent.frame())
21. │ └─base::eval(substitute(expr), data, enclos = parent.frame())
22. │ └─tibble::tibble(...)
23. │ └─tibble:::tibble_quos(xs, .rows, .name_repair)
24. │ └─rlang::eval_tidy(xs[[j]], mask)
25. ├─stats::AIC(x)
26. ├─stats:::AIC.default(x)
27. └─base::.handleSimpleError(...)
28. └─dplyr (local) h(simpleError(msg, call))
29. └─dplyr (local) handler(cnd)
30. └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted
Flavor: r-devel-windows-x86_64
Version: 0.4.2
Check: tests
Result: ERROR
Running 'testthat.R' [11s]
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
Flavor: r-devel-windows-x86_64