Last updated on 2024-03-27 22:57:54 CET.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.12.0 | 24.72 | 276.18 | 300.90 | ERROR | |
r-devel-linux-x86_64-debian-gcc | 0.12.1 | 22.26 | 205.35 | 227.61 | OK | |
r-devel-linux-x86_64-fedora-clang | 0.12.1 | 403.36 | NOTE | |||
r-devel-linux-x86_64-fedora-gcc | 0.12.1 | 382.33 | NOTE | |||
r-devel-windows-x86_64 | 0.12.1 | 26.00 | 228.00 | 254.00 | OK | |
r-patched-linux-x86_64 | 0.12.0 | 24.94 | 265.71 | 290.65 | ERROR | |
r-release-linux-x86_64 | 0.12.0 | 16.89 | 266.46 | 283.35 | ERROR | |
r-release-macos-arm64 | 0.12.1 | 84.00 | OK | |||
r-release-macos-x86_64 | 0.12.1 | 238.00 | OK | |||
r-release-windows-x86_64 | 0.12.1 | 34.00 | 296.00 | 330.00 | OK | |
r-oldrel-macos-arm64 | 0.12.1 | 83.00 | OK | |||
r-oldrel-windows-x86_64 | 0.12.1 | 29.00 | 211.00 | 240.00 | OK |
Version: 0.12.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [76s/98s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(pointblank)
> library(dittodb)
Loading required package: DBI
> test_check("pointblank")
[ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-has_columns.R:67:3'): the `has_columns()` function works with tidyselect ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `has_columns()`:
ℹ In argument: `all_of(has_one)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Elements `y` and `z` don't exist.
Backtrace:
▆
1. ├─testthat::expect_false(small_table %>% has_columns(all_of(has_one))) at test-has_columns.R:67:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─small_table %>% has_columns(all_of(has_one))
5. └─pointblank::has_columns(., all_of(has_one))
6. └─base::lapply(column_quos, has_column)
7. └─pointblank (local) FUN(X[[i]], ...)
8. ├─base::tryCatch(...)
9. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
10. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
11. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
12. └─pointblank:::resolve_columns(...)
13. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely.R:10:3'): tidyselect errors signaled at report, not during development of validation plan ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_not_null()`:
ℹ In argument: `all_of("z")`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-tidyselect_fails_safely.R:10:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─agent %>% col_vals_not_null(all_of("z"))
5. └─pointblank::col_vals_not_null(., all_of("z"))
6. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
7. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely.R:29:3'): fail state correctly registered in the report for tidyselect errors ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_not_null()`:
ℹ In argument: `all_of("z")`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─... %>% interrogate() at test-tidyselect_fails_safely.R:29:3
2. ├─pointblank::interrogate(.)
3. ├─pointblank::col_vals_gt(., vars(c), 1, na_pass = TRUE)
4. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
5. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions)
6. │ └─pointblank:::is_ptblank_agent(x)
7. └─pointblank::col_vals_not_null(., all_of("z"))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:94:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:94: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. ├─small_table %>% col_vals_not_null(z)
7. ├─pointblank::col_vals_not_null(., z)
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
15. │ └─tidyselect:::eval_select_impl(...)
16. │ ├─tidyselect:::with_subscript_errors(...)
17. │ │ └─base::withCallingHandlers(...)
18. │ └─tidyselect:::vars_select_eval(...)
19. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
20. │ └─tidyselect:::as_indices_sel_impl(...)
21. │ └─tidyselect:::as_indices_impl(...)
22. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
23. │ └─vctrs::vec_as_location(...)
24. └─vctrs (local) `<fn>`()
25. └─vctrs:::stop_subscript_oob(...)
26. └─vctrs:::stop_subscript(...)
27. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:95:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:95: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. ├─small_table %>% col_vals_not_null("z")
7. ├─pointblank::col_vals_not_null(., "z")
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
15. │ └─tidyselect:::eval_select_impl(...)
16. │ ├─tidyselect:::with_subscript_errors(...)
17. │ │ └─base::withCallingHandlers(...)
18. │ └─tidyselect:::vars_select_eval(...)
19. │ └─tidyselect:::as_indices_sel_impl(...)
20. │ └─tidyselect:::as_indices_impl(...)
21. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
22. │ └─vctrs::vec_as_location(...)
23. └─vctrs (local) `<fn>`()
24. └─vctrs:::stop_subscript_oob(...)
25. └─vctrs:::stop_subscript(...)
26. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:96:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:96: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. ├─small_table %>% col_vals_not_null(all_of("z"))
7. └─pointblank::col_vals_not_null(., all_of("z"))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:97:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:97: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. ├─small_table %>% col_vals_not_null(all_of(nonexistent_col))
7. └─pointblank::col_vals_not_null(., all_of(nonexistent_col))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:100:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:100: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. ├─small_table %>% expect_col_vals_not_null(z)
7. ├─pointblank::expect_col_vals_not_null(., z)
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
23. │ └─tidyselect:::as_indices_sel_impl(...)
24. │ └─tidyselect:::as_indices_impl(...)
25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
26. │ └─vctrs::vec_as_location(...)
27. └─vctrs (local) `<fn>`()
28. └─vctrs:::stop_subscript_oob(...)
29. └─vctrs:::stop_subscript(...)
30. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:101:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:101: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. ├─small_table %>% expect_col_vals_not_null("z")
7. ├─pointblank::expect_col_vals_not_null(., "z")
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::as_indices_sel_impl(...)
23. │ └─tidyselect:::as_indices_impl(...)
24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
25. │ └─vctrs::vec_as_location(...)
26. └─vctrs (local) `<fn>`()
27. └─vctrs:::stop_subscript_oob(...)
28. └─vctrs:::stop_subscript(...)
29. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:102:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:102: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. ├─small_table %>% expect_col_vals_not_null(all_of("z"))
7. ├─pointblank::expect_col_vals_not_null(., all_of("z"))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:103:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:103: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. ├─small_table %>% ...
7. ├─pointblank::expect_col_vals_not_null(., all_of(nonexistent_col))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:106:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:106: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. ├─small_table %>% test_col_vals_not_null(z)
7. ├─pointblank::test_col_vals_not_null(., z)
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
23. │ └─tidyselect:::as_indices_sel_impl(...)
24. │ └─tidyselect:::as_indices_impl(...)
25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
26. │ └─vctrs::vec_as_location(...)
27. └─vctrs (local) `<fn>`()
28. └─vctrs:::stop_subscript_oob(...)
29. └─vctrs:::stop_subscript(...)
30. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:107:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:107: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. ├─small_table %>% test_col_vals_not_null("z")
7. ├─pointblank::test_col_vals_not_null(., "z")
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::as_indices_sel_impl(...)
23. │ └─tidyselect:::as_indices_impl(...)
24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
25. │ └─vctrs::vec_as_location(...)
26. └─vctrs (local) `<fn>`()
27. └─vctrs:::stop_subscript_oob(...)
28. └─vctrs:::stop_subscript(...)
29. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:108:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:108: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. ├─small_table %>% test_col_vals_not_null(all_of("z"))
7. ├─pointblank::test_col_vals_not_null(., all_of("z"))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:109:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:109: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. ├─small_table %>% ...
7. ├─pointblank::test_col_vals_not_null(., all_of(nonexistent_col))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:116:3'): tidyselect errors cannot be downgraded in assertion/expectation on table ──
`{ ... }` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:116: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. ├─... %>% col_vals_not_null(b) at test-tidyselect_fails_safely.R:117:5
7. ├─pointblank::col_vals_not_null(., b)
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions)
10. │ └─pointblank:::is_ptblank_agent(x)
11. ├─pointblank::col_vals_not_null(., z, actions = warn_on_fail())
12. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
13. │ ├─base::tryCatch(...)
14. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
15. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
16. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
17. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
18. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
19. │ └─tidyselect:::eval_select_impl(...)
20. │ ├─tidyselect:::with_subscript_errors(...)
21. │ │ └─base::withCallingHandlers(...)
22. │ └─tidyselect:::vars_select_eval(...)
23. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
24. │ └─tidyselect:::as_indices_sel_impl(...)
25. │ └─tidyselect:::as_indices_impl(...)
26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
27. │ └─vctrs::vec_as_location(...)
28. └─vctrs (local) `<fn>`()
29. └─vctrs:::stop_subscript_oob(...)
30. └─vctrs:::stop_subscript(...)
31. └─rlang::abort(...)
── Error ('test-tidyselect_fails_safely_batch.R:50:5'): `col_*()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_lt()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% col_vals_lt({{ select_expr }}, value = 5) %>% ... at test-tidyselect_fails_safely_batch.R:61:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:50:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::col_vals_lt(...)
7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely_batch.R:110:5'): `rows_*()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `rows_distinct()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% rows_distinct({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:121:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:110:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::rows_distinct(...)
7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions = NULL)
8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely_batch.R:146:5'): `col_exists()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_exists()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% col_exists({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:157:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:146:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::col_exists(...)
7. ├─base::tryCatch(...)
8. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
9. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
10. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
11. └─pointblank:::resolve_columns(...)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
[ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ]
Error: Test failures
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.12.1
Check: data for non-ASCII characters
Result: NOTE
Note: found 1 marked UTF-8 string
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.12.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [72s/89s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(pointblank)
> library(dittodb)
Loading required package: DBI
> test_check("pointblank")
[ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-has_columns.R:67:3'): the `has_columns()` function works with tidyselect ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `has_columns()`:
ℹ In argument: `all_of(has_one)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Elements `y` and `z` don't exist.
Backtrace:
▆
1. ├─testthat::expect_false(small_table %>% has_columns(all_of(has_one))) at test-has_columns.R:67:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─small_table %>% has_columns(all_of(has_one))
5. └─pointblank::has_columns(., all_of(has_one))
6. └─base::lapply(column_quos, has_column)
7. └─pointblank (local) FUN(X[[i]], ...)
8. ├─base::tryCatch(...)
9. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
10. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
11. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
12. └─pointblank:::resolve_columns(...)
13. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely.R:10:3'): tidyselect errors signaled at report, not during development of validation plan ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_not_null()`:
ℹ In argument: `all_of("z")`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-tidyselect_fails_safely.R:10:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─agent %>% col_vals_not_null(all_of("z"))
5. └─pointblank::col_vals_not_null(., all_of("z"))
6. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
7. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely.R:29:3'): fail state correctly registered in the report for tidyselect errors ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_not_null()`:
ℹ In argument: `all_of("z")`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─... %>% interrogate() at test-tidyselect_fails_safely.R:29:3
2. ├─pointblank::interrogate(.)
3. ├─pointblank::col_vals_gt(., vars(c), 1, na_pass = TRUE)
4. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
5. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions)
6. │ └─pointblank:::is_ptblank_agent(x)
7. └─pointblank::col_vals_not_null(., all_of("z"))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:94:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:94: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. ├─small_table %>% col_vals_not_null(z)
7. ├─pointblank::col_vals_not_null(., z)
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
15. │ └─tidyselect:::eval_select_impl(...)
16. │ ├─tidyselect:::with_subscript_errors(...)
17. │ │ └─base::withCallingHandlers(...)
18. │ └─tidyselect:::vars_select_eval(...)
19. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
20. │ └─tidyselect:::as_indices_sel_impl(...)
21. │ └─tidyselect:::as_indices_impl(...)
22. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
23. │ └─vctrs::vec_as_location(...)
24. └─vctrs (local) `<fn>`()
25. └─vctrs:::stop_subscript_oob(...)
26. └─vctrs:::stop_subscript(...)
27. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:95:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:95: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. ├─small_table %>% col_vals_not_null("z")
7. ├─pointblank::col_vals_not_null(., "z")
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
15. │ └─tidyselect:::eval_select_impl(...)
16. │ ├─tidyselect:::with_subscript_errors(...)
17. │ │ └─base::withCallingHandlers(...)
18. │ └─tidyselect:::vars_select_eval(...)
19. │ └─tidyselect:::as_indices_sel_impl(...)
20. │ └─tidyselect:::as_indices_impl(...)
21. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
22. │ └─vctrs::vec_as_location(...)
23. └─vctrs (local) `<fn>`()
24. └─vctrs:::stop_subscript_oob(...)
25. └─vctrs:::stop_subscript(...)
26. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:96:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:96: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. ├─small_table %>% col_vals_not_null(all_of("z"))
7. └─pointblank::col_vals_not_null(., all_of("z"))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:97:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:97: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. ├─small_table %>% col_vals_not_null(all_of(nonexistent_col))
7. └─pointblank::col_vals_not_null(., all_of(nonexistent_col))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:100:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:100: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. ├─small_table %>% expect_col_vals_not_null(z)
7. ├─pointblank::expect_col_vals_not_null(., z)
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
23. │ └─tidyselect:::as_indices_sel_impl(...)
24. │ └─tidyselect:::as_indices_impl(...)
25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
26. │ └─vctrs::vec_as_location(...)
27. └─vctrs (local) `<fn>`()
28. └─vctrs:::stop_subscript_oob(...)
29. └─vctrs:::stop_subscript(...)
30. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:101:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:101: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. ├─small_table %>% expect_col_vals_not_null("z")
7. ├─pointblank::expect_col_vals_not_null(., "z")
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::as_indices_sel_impl(...)
23. │ └─tidyselect:::as_indices_impl(...)
24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
25. │ └─vctrs::vec_as_location(...)
26. └─vctrs (local) `<fn>`()
27. └─vctrs:::stop_subscript_oob(...)
28. └─vctrs:::stop_subscript(...)
29. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:102:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:102: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. ├─small_table %>% expect_col_vals_not_null(all_of("z"))
7. ├─pointblank::expect_col_vals_not_null(., all_of("z"))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:103:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:103: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. ├─small_table %>% ...
7. ├─pointblank::expect_col_vals_not_null(., all_of(nonexistent_col))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:106:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:106: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. ├─small_table %>% test_col_vals_not_null(z)
7. ├─pointblank::test_col_vals_not_null(., z)
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
23. │ └─tidyselect:::as_indices_sel_impl(...)
24. │ └─tidyselect:::as_indices_impl(...)
25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
26. │ └─vctrs::vec_as_location(...)
27. └─vctrs (local) `<fn>`()
28. └─vctrs:::stop_subscript_oob(...)
29. └─vctrs:::stop_subscript(...)
30. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:107:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:107: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. ├─small_table %>% test_col_vals_not_null("z")
7. ├─pointblank::test_col_vals_not_null(., "z")
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::as_indices_sel_impl(...)
23. │ └─tidyselect:::as_indices_impl(...)
24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
25. │ └─vctrs::vec_as_location(...)
26. └─vctrs (local) `<fn>`()
27. └─vctrs:::stop_subscript_oob(...)
28. └─vctrs:::stop_subscript(...)
29. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:108:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:108: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. ├─small_table %>% test_col_vals_not_null(all_of("z"))
7. ├─pointblank::test_col_vals_not_null(., all_of("z"))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:109:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:109: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. ├─small_table %>% ...
7. ├─pointblank::test_col_vals_not_null(., all_of(nonexistent_col))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:116:3'): tidyselect errors cannot be downgraded in assertion/expectation on table ──
`{ ... }` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:116: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. ├─... %>% col_vals_not_null(b) at test-tidyselect_fails_safely.R:117:5
7. ├─pointblank::col_vals_not_null(., b)
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions)
10. │ └─pointblank:::is_ptblank_agent(x)
11. ├─pointblank::col_vals_not_null(., z, actions = warn_on_fail())
12. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
13. │ ├─base::tryCatch(...)
14. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
15. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
16. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
17. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
18. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
19. │ └─tidyselect:::eval_select_impl(...)
20. │ ├─tidyselect:::with_subscript_errors(...)
21. │ │ └─base::withCallingHandlers(...)
22. │ └─tidyselect:::vars_select_eval(...)
23. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
24. │ └─tidyselect:::as_indices_sel_impl(...)
25. │ └─tidyselect:::as_indices_impl(...)
26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
27. │ └─vctrs::vec_as_location(...)
28. └─vctrs (local) `<fn>`()
29. └─vctrs:::stop_subscript_oob(...)
30. └─vctrs:::stop_subscript(...)
31. └─rlang::abort(...)
── Error ('test-tidyselect_fails_safely_batch.R:50:5'): `col_*()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_lt()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% col_vals_lt({{ select_expr }}, value = 5) %>% ... at test-tidyselect_fails_safely_batch.R:61:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:50:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::col_vals_lt(...)
7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely_batch.R:110:5'): `rows_*()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `rows_distinct()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% rows_distinct({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:121:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:110:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::rows_distinct(...)
7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions = NULL)
8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely_batch.R:146:5'): `col_exists()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_exists()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% col_exists({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:157:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:146:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::col_exists(...)
7. ├─base::tryCatch(...)
8. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
9. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
10. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
11. └─pointblank:::resolve_columns(...)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
[ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ]
Error: Test failures
Execution halted
Flavor: r-patched-linux-x86_64
Version: 0.12.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [73s/95s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(pointblank)
> library(dittodb)
Loading required package: DBI
> test_check("pointblank")
[ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-has_columns.R:67:3'): the `has_columns()` function works with tidyselect ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `has_columns()`:
ℹ In argument: `all_of(has_one)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Elements `y` and `z` don't exist.
Backtrace:
▆
1. ├─testthat::expect_false(small_table %>% has_columns(all_of(has_one))) at test-has_columns.R:67:3
2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─small_table %>% has_columns(all_of(has_one))
5. └─pointblank::has_columns(., all_of(has_one))
6. └─base::lapply(column_quos, has_column)
7. └─pointblank (local) FUN(X[[i]], ...)
8. ├─base::tryCatch(...)
9. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
10. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
11. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
12. └─pointblank:::resolve_columns(...)
13. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely.R:10:3'): tidyselect errors signaled at report, not during development of validation plan ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_not_null()`:
ℹ In argument: `all_of("z")`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─testthat::expect_s3_class(...) at test-tidyselect_fails_safely.R:10:3
2. │ └─testthat::quasi_label(enquo(object), arg = "object")
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─agent %>% col_vals_not_null(all_of("z"))
5. └─pointblank::col_vals_not_null(., all_of("z"))
6. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
7. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely.R:29:3'): fail state correctly registered in the report for tidyselect errors ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_not_null()`:
ℹ In argument: `all_of("z")`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─... %>% interrogate() at test-tidyselect_fails_safely.R:29:3
2. ├─pointblank::interrogate(.)
3. ├─pointblank::col_vals_gt(., vars(c), 1, na_pass = TRUE)
4. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
5. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions)
6. │ └─pointblank:::is_ptblank_agent(x)
7. └─pointblank::col_vals_not_null(., all_of("z"))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:94:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:94: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. ├─small_table %>% col_vals_not_null(z)
7. ├─pointblank::col_vals_not_null(., z)
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
15. │ └─tidyselect:::eval_select_impl(...)
16. │ ├─tidyselect:::with_subscript_errors(...)
17. │ │ └─base::withCallingHandlers(...)
18. │ └─tidyselect:::vars_select_eval(...)
19. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
20. │ └─tidyselect:::as_indices_sel_impl(...)
21. │ └─tidyselect:::as_indices_impl(...)
22. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
23. │ └─vctrs::vec_as_location(...)
24. └─vctrs (local) `<fn>`()
25. └─vctrs:::stop_subscript_oob(...)
26. └─vctrs:::stop_subscript(...)
27. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:95:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:95: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. ├─small_table %>% col_vals_not_null("z")
7. ├─pointblank::col_vals_not_null(., "z")
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ ├─base::tryCatch(...)
10. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
11. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
12. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
13. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
14. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
15. │ └─tidyselect:::eval_select_impl(...)
16. │ ├─tidyselect:::with_subscript_errors(...)
17. │ │ └─base::withCallingHandlers(...)
18. │ └─tidyselect:::vars_select_eval(...)
19. │ └─tidyselect:::as_indices_sel_impl(...)
20. │ └─tidyselect:::as_indices_impl(...)
21. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
22. │ └─vctrs::vec_as_location(...)
23. └─vctrs (local) `<fn>`()
24. └─vctrs:::stop_subscript_oob(...)
25. └─vctrs:::stop_subscript(...)
26. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:96:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:96: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. ├─small_table %>% col_vals_not_null(all_of("z"))
7. └─pointblank::col_vals_not_null(., all_of("z"))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:97:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:97: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. ├─small_table %>% col_vals_not_null(all_of(nonexistent_col))
7. └─pointblank::col_vals_not_null(., all_of(nonexistent_col))
8. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:100:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:100: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. ├─small_table %>% expect_col_vals_not_null(z)
7. ├─pointblank::expect_col_vals_not_null(., z)
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
23. │ └─tidyselect:::as_indices_sel_impl(...)
24. │ └─tidyselect:::as_indices_impl(...)
25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
26. │ └─vctrs::vec_as_location(...)
27. └─vctrs (local) `<fn>`()
28. └─vctrs:::stop_subscript_oob(...)
29. └─vctrs:::stop_subscript(...)
30. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:101:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:101: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. ├─small_table %>% expect_col_vals_not_null("z")
7. ├─pointblank::expect_col_vals_not_null(., "z")
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::as_indices_sel_impl(...)
23. │ └─tidyselect:::as_indices_impl(...)
24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
25. │ └─vctrs::vec_as_location(...)
26. └─vctrs (local) `<fn>`()
27. └─vctrs:::stop_subscript_oob(...)
28. └─vctrs:::stop_subscript(...)
29. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:102:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:102: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. ├─small_table %>% expect_col_vals_not_null(all_of("z"))
7. ├─pointblank::expect_col_vals_not_null(., all_of("z"))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:103:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% expect_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:103: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. ├─small_table %>% ...
7. ├─pointblank::expect_col_vals_not_null(., all_of(nonexistent_col))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:106:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(z)` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:106: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. ├─small_table %>% test_col_vals_not_null(z)
7. ├─pointblank::test_col_vals_not_null(., z)
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
23. │ └─tidyselect:::as_indices_sel_impl(...)
24. │ └─tidyselect:::as_indices_impl(...)
25. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
26. │ └─vctrs::vec_as_location(...)
27. └─vctrs (local) `<fn>`()
28. └─vctrs:::stop_subscript_oob(...)
29. └─vctrs:::stop_subscript(...)
30. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:107:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null("z")` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:107: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. ├─small_table %>% test_col_vals_not_null("z")
7. ├─pointblank::test_col_vals_not_null(., "z")
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. ├─pointblank::col_vals_not_null(...)
11. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. │ ├─base::tryCatch(...)
13. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
14. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
15. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
16. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
17. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
18. │ └─tidyselect:::eval_select_impl(...)
19. │ ├─tidyselect:::with_subscript_errors(...)
20. │ │ └─base::withCallingHandlers(...)
21. │ └─tidyselect:::vars_select_eval(...)
22. │ └─tidyselect:::as_indices_sel_impl(...)
23. │ └─tidyselect:::as_indices_impl(...)
24. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
25. │ └─vctrs::vec_as_location(...)
26. └─vctrs (local) `<fn>`()
27. └─vctrs:::stop_subscript_oob(...)
28. └─vctrs:::stop_subscript(...)
29. └─rlang::abort(...)
── Failure ('test-tidyselect_fails_safely.R:108:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(all_of("z"))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(\"z\")`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:108: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. ├─small_table %>% test_col_vals_not_null(all_of("z"))
7. ├─pointblank::test_col_vals_not_null(., all_of("z"))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:109:3'): tidyselect errors *are* immediate for assertion/expectation/test ──
`small_table %>% test_col_vals_not_null(all_of(nonexistent_col))` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "\nCaused by error in `col_vals_not_null()`:\nℹ In argument: `all_of(nonexistent_col)`.\nCaused by error in `all_of()`:\n! Can't subset elements that don't exist.\n✖ Element `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:109: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. ├─small_table %>% ...
7. ├─pointblank::test_col_vals_not_null(., all_of(nonexistent_col))
8. │ └─... %>% .$validation_set
9. ├─pointblank::interrogate(.)
10. └─pointblank::col_vals_not_null(...)
11. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Failure ('test-tidyselect_fails_safely.R:116:3'): tidyselect errors cannot be downgraded in assertion/expectation on table ──
`{ ... }` threw an error with unexpected message.
Expected match: "Can't subset columns that don't exist."
Actual message: "Can't select columns that don't exist.\n✖ Column `z` doesn't exist."
Backtrace:
▆
1. ├─testthat::expect_error(...) at test-tidyselect_fails_safely.R:116: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. ├─... %>% col_vals_not_null(b) at test-tidyselect_fails_safely.R:117:5
7. ├─pointblank::col_vals_not_null(., b)
8. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
9. │ └─pointblank:::apply_preconditions_for_cols(x, preconditions)
10. │ └─pointblank:::is_ptblank_agent(x)
11. ├─pointblank::col_vals_not_null(., z, actions = warn_on_fail())
12. │ └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
13. │ ├─base::tryCatch(...)
14. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
15. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
16. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
17. │ └─pointblank:::resolve_columns_internal(tbl, var_expr, ..., call = call)
18. │ └─tidyselect::eval_select(var_expr, tbl, error_call = call, ...)
19. │ └─tidyselect:::eval_select_impl(...)
20. │ ├─tidyselect:::with_subscript_errors(...)
21. │ │ └─base::withCallingHandlers(...)
22. │ └─tidyselect:::vars_select_eval(...)
23. │ └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
24. │ └─tidyselect:::as_indices_sel_impl(...)
25. │ └─tidyselect:::as_indices_impl(...)
26. │ └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
27. │ └─vctrs::vec_as_location(...)
28. └─vctrs (local) `<fn>`()
29. └─vctrs:::stop_subscript_oob(...)
30. └─vctrs:::stop_subscript(...)
31. └─rlang::abort(...)
── Error ('test-tidyselect_fails_safely_batch.R:50:5'): `col_*()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_vals_lt()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% col_vals_lt({{ select_expr }}, value = 5) %>% ... at test-tidyselect_fails_safely_batch.R:61:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:50:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::col_vals_lt(...)
7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions)
8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely_batch.R:110:5'): `rows_*()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `rows_distinct()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% rows_distinct({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:121:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:110:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::rows_distinct(...)
7. └─pointblank:::resolve_columns(x = x, var_expr = columns, preconditions = NULL)
8. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
── Error ('test-tidyselect_fails_safely_batch.R:146:5'): `col_exists()`s show expected column selection failure/success behavior ──
<resolve_eval_err/rlang_error/error/condition>
Error:
Caused by error in `col_exists()`:
ℹ In argument: `all_of(mixed_cols)`.
Caused by error in `all_of()`:
! Can't subset elements that don't exist.
✖ Element `z` doesn't exist.
Backtrace:
▆
1. ├─agent %>% col_exists({{ select_expr }}) %>% ... at test-tidyselect_fails_safely_batch.R:157:5
2. ├─pointblank (local) check_behaviors(., expr_name)
3. │ ├─base::suppressMessages(interrogate(agent)) at test-tidyselect_fails_safely_batch.R:146:5
4. │ │ └─base::withCallingHandlers(...)
5. │ └─pointblank::interrogate(agent)
6. └─pointblank::col_exists(...)
7. ├─base::tryCatch(...)
8. │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
9. │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
10. │ └─base (local) doTryCatch(return(expr), name, parentenv, handler)
11. └─pointblank:::resolve_columns(...)
12. └─rlang::cnd_signal(rlang::error_cnd("resolve_eval_err", parent = out))
[ FAIL 19 | WARN 0 | SKIP 0 | PASS 1540 ]
Error: Test failures
Execution halted
Flavor: r-release-linux-x86_64