Last updated on 2025-12-20 01:50:12 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 0.11.2 | 7.51 | 87.93 | 95.44 | OK | |
| r-devel-linux-x86_64-debian-gcc | 0.11.2 | 5.15 | 55.73 | 60.88 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 0.11.2 | 13.00 | 129.49 | 142.49 | ERROR | |
| r-devel-linux-x86_64-fedora-gcc | 0.11.2 | 11.00 | 116.80 | 127.80 | ERROR | |
| r-devel-windows-x86_64 | 0.11.2 | 8.00 | 111.00 | 119.00 | OK | |
| r-patched-linux-x86_64 | 0.11.2 | 8.30 | 74.20 | 82.50 | OK | |
| r-release-linux-x86_64 | 0.11.2 | 7.01 | 74.62 | 81.63 | OK | |
| r-release-macos-arm64 | 0.11.2 | OK | ||||
| r-release-macos-x86_64 | 0.11.2 | 5.00 | 91.00 | 96.00 | OK | |
| r-release-windows-x86_64 | 0.11.2 | 9.00 | 108.00 | 117.00 | OK | |
| r-oldrel-macos-arm64 | 0.11.2 | OK | ||||
| r-oldrel-macos-x86_64 | 0.11.2 | 5.00 | 84.00 | 89.00 | OK | |
| r-oldrel-windows-x86_64 | 0.11.2 | 12.00 | 134.00 | 146.00 | OK |
Version: 0.11.2
Check: examples
Result: ERROR
Running examples in ‘tidytable-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: add_count
> ### Title: Add a count column to the data frame
> ### Aliases: add_count add_tally
>
> ### ** Examples
>
> df <- data.table(
+ a = c("a", "a", "b"),
+ b = 1:3
+ )
>
> df %>%
+ add_count(a)
Error in `[.data.table`(~.df, , `:=`(n = .N), by = "a", keyby = FALSE) :
attempt access index 2/2 in VECTOR_ELT
Calls: %>% ... mutate -> mutate.tidytable -> eval_tidy -> [ -> [.data.table
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.11.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [15s/16s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(tidytable)
Attaching package: 'tidytable'
The following objects are masked from 'package:stats':
dt, filter, lag
The following objects are masked from 'package:base':
%in%, %notin%
>
> test_check("tidytable")
Saving _problems/test-add_count-6.R
Saving _problems/test-add_count-20.R
Saving _problems/test-cur-context-34.R
Saving _problems/test-cur-context-45.R
Saving _problems/test-mutate-12.R
Saving _problems/test-mutate-130.R
Saving _problems/test-mutate-156.R
Saving _problems/test-mutate-183.R
Saving _problems/test-mutate-192.R
Saving _problems/test-mutate-230.R
Saving _problems/test-mutate-268.R
Saving _problems/test-mutate-276.R
Saving _problems/test-mutate-345.R
Saving _problems/test-mutate-382.R
Saving _problems/test-mutate-406.R
Saving _problems/test-mutate-420.R
Saving _problems/test-mutate-429.R
Saving _problems/test-mutate_rowwise-5.R
Saving _problems/test-mutate_rowwise-26.R
Saving _problems/test-mutate_rowwise-36.R
Saving _problems/test-mutate_rowwise-47.R
Saving _problems/test-mutate_rowwise-55.R
Saving _problems/test-mutate_rowwise-66.R
Saving _problems/test-rank-21.R
[ FAIL 24 | WARN 0 | SKIP 0 | PASS 1300 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-add_count.R:6:3'): adds count ──────────────────────────────────
Error in ``[.data.table`(~.df, , `:=`(n = .N), by = "g", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% add_count(g) at test-add_count.R:6:3
2. ├─tidytable::add_count(., g)
3. ├─tidytable:::add_count.tidytable(., g)
4. │ ├─tidytable::mutate(.df, `:=`(!!name, n()), .by = c(!!!.by))
5. │ └─tidytable:::mutate.tidytable(.df, `:=`(!!name, n()), .by = c(!!!.by))
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(n = .N), by = "g", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(n = .N), by = "g", keyby = FALSE)
── Error ('test-add_count.R:18:3'): works on a grouped_tt ──────────────────────
Error in ``[.data.table`(~.df, , `:=`(n = .N), by = "g", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% group_by(g) %>% add_count() at test-add_count.R:18:3
2. ├─tidytable::add_count(.)
3. ├─tidytable:::add_count.grouped_tt(.)
4. │ ├─tidytable::add_count(...)
5. │ └─tidytable:::add_count.tidytable(...)
6. │ ├─tidytable::mutate(.df, `:=`(!!name, n()), .by = c(!!!.by))
7. │ └─tidytable:::mutate.tidytable(.df, `:=`(!!name, n()), .by = c(!!!.by))
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(n = .N), by = "g", keyby = FALSE]
10. └─data.table:::`[.data.table`(.df, , `:=`(n = .N), by = "g", keyby = FALSE)
── Error ('test-cur-context.R:31:3'): cur_group_rows() works ───────────────────
Error in ``[.data.table`(~.df, , `:=`(rows1 = seq_len(.N), rows_check = 1:.N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% ... at test-cur-context.R:31:3
2. ├─tidytable::mutate(...)
3. ├─tidytable:::mutate.tidytable(...)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-cur-context.R:42:3'): cur_group_id() works ─────────────────────
Error in ``[.data.table`(~.df, , `:=`(id1 = .GRP, id_check = .GRP), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(id1 = cur_group_id(), id_check = .GRP, .by = y) at test-cur-context.R:42:3
2. ├─tidytable::mutate(., id1 = cur_group_id(), id_check = .GRP, .by = y)
3. ├─tidytable:::mutate.tidytable(...)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─.df[, `:=`(id1 = .GRP, id_check = .GRP), by = "y", keyby = FALSE]
6. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:7:3'): can remove variables with NULL ─────────────────
Error in ``[.data.table`(~.df, , `:=`(c("x", "x_plus_y"), { x = NULL x = rep(1, 3) x_plus_y = x + y list(x, x_plus_y) }), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% ... at test-mutate.R:7:3
2. ├─tidytable::mutate(...)
3. ├─tidytable:::mutate.data.frame(...)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:129:3'): can mutate in order with .by ─────────────────
Error in ``[.data.table`(~.df, , `:=`(c("x", "y"), { x = x + 1 y = x + 1 list(x, y) }), by = "z", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(x = x + 1, y = x + 1, .by = z) at test-mutate.R:129:3
2. ├─tidytable::mutate(., x = x + 1, y = x + 1, .by = z)
3. ├─tidytable:::mutate.tidytable(., x = x + 1, y = x + 1, .by = z)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:155:3'): can use .N with .by ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = .N, .by = y) at test-mutate.R:155:3
2. ├─tidytable::mutate(., z = .N, .by = y)
3. ├─tidytable:::mutate.data.frame(., z = .N, .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .N), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = .N), by = "y", keyby = FALSE)
── Error ('test-mutate.R:182:3'): can use n() with by ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = n(), .by = y) at test-mutate.R:182:3
2. ├─tidytable::mutate(., z = n(), .by = y)
3. ├─tidytable:::mutate.data.frame(., z = n(), .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .N), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = .N), by = "y", keyby = FALSE)
── Error ('test-mutate.R:191:3'): can use .GRP ─────────────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .GRP), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = .GRP, .by = y) at test-mutate.R:191:3
2. ├─tidytable::mutate(., z = .GRP, .by = y)
3. ├─tidytable:::mutate.data.frame(., z = .GRP, .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .GRP), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:229:5'): can make custom functions with quosures ──────
Error in ``[.data.table`(~.df, , `:=`(stuff = x + val), by = "z", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% add_one(x, stuff, 1, z) at test-mutate.R:233:3
2. ├─tidytable (local) add_one(., x, stuff, 1, z)
3. │ └─.data %>% ... at test-mutate.R:229:5
4. ├─tidytable::mutate(...)
5. ├─tidytable:::mutate.data.frame(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(stuff = x + val), by = "z", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:268:3'): .keep = 'none' only keeps grouping variables ──
Error in ``[.data.table`(~.df, , `:=`(z = 1), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-mutate.R:268:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─tidytable::mutate(df, z = 1, .by = x, .keep = "none")
5. ├─tidytable:::mutate.tidytable(df, z = 1, .by = x, .keep = "none")
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = 1), by = "x", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = 1), by = "x", keyby = FALSE)
── Error ('test-mutate.R:273:3'): .keep= always retains grouping variables (#5582) ──
Error in ``[.data.table`(~.df, , `:=`(a = x + 1), by = "z", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-mutate.R:273:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─tidytable::mutate(df, a = x + 1, .keep = "none", .by = z)
5. ├─tidytable:::mutate.tidytable(df, a = x + 1, .keep = "none", .by = z)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(a = x + 1), by = "z", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:344:3'): can use .data and .env with .by ──────────────
Error in ``[.data.table`(~.df, , `:=`(new = mean(x) + .env$x), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(new = mean(.data$x) + .env$x, .by = y) at test-mutate.R:344:3
2. ├─tidytable::mutate(., new = mean(.data$x) + .env$x, .by = y)
3. ├─tidytable:::mutate.data.frame(...)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(new = mean(x) + .env$x), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:380:3'): works on rowwise_tt ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(row_mean = mean(c(x, y))) at test-mutate.R:380:3
2. ├─tidytable::mutate(., row_mean = mean(c(x, y)))
3. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c(x, y)))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:404:3'): c_across does all cols automatically ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(row_mean = mean(c_across())) at test-mutate.R:404:3
2. ├─tidytable::mutate(., row_mean = mean(c_across()))
3. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c_across()))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:417:3'): c_across cols selection works ────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ungroup() at test-mutate.R:417:3
2. ├─tidytable::ungroup(.)
3. ├─tidytable::mutate(., row_mean = mean(c_across(cols = where(is.numeric))))
4. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c_across(cols = where(is.numeric))))
5. │ ├─tidytable::mutate(...)
6. │ └─tidytable:::mutate.tidytable(...)
7. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
8. ├─...[]
9. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:427:3'): c_across works with space named columns ──────
Error in ``[.data.table`(~.df, , `:=`(sum = sum(vctrs::vec_c(`x y`, `x z`))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(sum = sum(c_across(contains(" ")))) at test-mutate.R:427:3
2. ├─tidytable::mutate(., sum = sum(c_across(contains(" "))))
3. ├─tidytable:::mutate.rowwise_tt(., sum = sum(c_across(contains(" "))))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:4:3'): mutate_rowwise() adds column ───────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(row_mean = mean(c(x, y))) at test-mutate_rowwise.R:4:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c(x, y)))
3. ├─tidytable:::mutate_rowwise.data.frame(...)
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:23:3'): can use .keep and relocate ────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% ... at test-mutate_rowwise.R:23:3
2. ├─tidytable::mutate_rowwise(...)
3. ├─tidytable:::mutate_rowwise.data.frame(...)
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:35:3'): c_across provides all columns ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(row_mean = mean(c_across())) at test-mutate_rowwise.R:35:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c_across()))
3. ├─tidytable:::mutate_rowwise.data.frame(., row_mean = mean(c_across()))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:46:3'): c_across cols selection works ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% ... at test-mutate_rowwise.R:46:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c_across(cols = where(is.numeric))))
3. ├─tidytable:::mutate_rowwise.data.frame(., row_mean = mean(c_across(cols = where(is.numeric))))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:54:3'): c_across works with space named columns ──
Error in ``[.data.table`(~.df, , `:=`(sum = sum(vctrs::vec_c(`x y`, `x z`))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(sum = sum(c_across(contains(" ")))) at test-mutate_rowwise.R:54:3
2. ├─tidytable::mutate_rowwise(., sum = sum(c_across(contains(" "))))
3. ├─tidytable:::mutate_rowwise.data.frame(., sum = sum(c_across(contains(" "))))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:63:3'): overrides grouped_tt ──────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% suppressWarnings() at test-mutate_rowwise.R:63:3
2. ├─base::suppressWarnings(.)
3. │ └─base::withCallingHandlers(...)
4. ├─tidytable::mutate_rowwise(., row_mean = mean(c(x, y)))
5. ├─tidytable:::mutate_rowwise.grouped_tt(...)
6. │ ├─tidytable::mutate_rowwise(...)
7. │ └─tidytable:::mutate_rowwise.tidytable(...)
8. │ ├─tidytable::mutate(...)
9. │ └─tidytable:::mutate.tidytable(...)
10. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
11. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
12. └─data.table:::`[.data.table`(...)
── Error ('test-rank.R:20:3'): row_number() works with .by ─────────────────────
Error in ``[.data.table`(~.df, , `:=`(row = seq_len(.N)), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(row = row_number(), .by = x) at test-rank.R:20:3
2. ├─tidytable::mutate(., row = row_number(), .by = x)
3. ├─tidytable:::mutate.data.frame(., row = row_number(), .by = x)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(row = seq_len(.N)), by = "x", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
[ FAIL 24 | WARN 0 | SKIP 0 | PASS 1300 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.11.2
Check: examples
Result: ERROR
Running examples in ‘tidytable-Ex.R’ failed
The error most likely occurred in:
> ### Name: add_count
> ### Title: Add a count column to the data frame
> ### Aliases: add_count add_tally
>
> ### ** Examples
>
> df <- data.table(
+ a = c("a", "a", "b"),
+ b = 1:3
+ )
>
> df %>%
+ add_count(a)
Error in `[.data.table`(~.df, , `:=`(n = .N), by = "a", keyby = FALSE) :
attempt access index 2/2 in VECTOR_ELT
Calls: %>% ... mutate -> mutate.tidytable -> eval_tidy -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.11.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [38s/55s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(tidytable)
Attaching package: 'tidytable'
The following objects are masked from 'package:stats':
dt, filter, lag
The following objects are masked from 'package:base':
%in%, %notin%
>
> test_check("tidytable")
Saving _problems/test-add_count-6.R
Saving _problems/test-add_count-20.R
Saving _problems/test-cur-context-34.R
Saving _problems/test-cur-context-45.R
Saving _problems/test-mutate-12.R
Saving _problems/test-mutate-130.R
Saving _problems/test-mutate-156.R
Saving _problems/test-mutate-183.R
Saving _problems/test-mutate-192.R
Saving _problems/test-mutate-230.R
Saving _problems/test-mutate-268.R
Saving _problems/test-mutate-276.R
Saving _problems/test-mutate-345.R
Saving _problems/test-mutate-382.R
Saving _problems/test-mutate-406.R
Saving _problems/test-mutate-420.R
Saving _problems/test-mutate-429.R
Saving _problems/test-mutate_rowwise-5.R
Saving _problems/test-mutate_rowwise-26.R
Saving _problems/test-mutate_rowwise-36.R
Saving _problems/test-mutate_rowwise-47.R
Saving _problems/test-mutate_rowwise-55.R
Saving _problems/test-mutate_rowwise-66.R
Saving _problems/test-rank-21.R
[ FAIL 24 | WARN 0 | SKIP 0 | PASS 1300 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-add_count.R:6:3'): adds count ──────────────────────────────────
Error in ``[.data.table`(~.df, , `:=`(n = .N), by = "g", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% add_count(g) at test-add_count.R:6:3
2. ├─tidytable::add_count(., g)
3. ├─tidytable:::add_count.tidytable(., g)
4. │ ├─tidytable::mutate(.df, `:=`(!!name, n()), .by = c(!!!.by))
5. │ └─tidytable:::mutate.tidytable(.df, `:=`(!!name, n()), .by = c(!!!.by))
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(n = .N), by = "g", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(n = .N), by = "g", keyby = FALSE)
── Error ('test-add_count.R:18:3'): works on a grouped_tt ──────────────────────
Error in ``[.data.table`(~.df, , `:=`(n = .N), by = "g", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% group_by(g) %>% add_count() at test-add_count.R:18:3
2. ├─tidytable::add_count(.)
3. ├─tidytable:::add_count.grouped_tt(.)
4. │ ├─tidytable::add_count(...)
5. │ └─tidytable:::add_count.tidytable(...)
6. │ ├─tidytable::mutate(.df, `:=`(!!name, n()), .by = c(!!!.by))
7. │ └─tidytable:::mutate.tidytable(.df, `:=`(!!name, n()), .by = c(!!!.by))
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(n = .N), by = "g", keyby = FALSE]
10. └─data.table:::`[.data.table`(.df, , `:=`(n = .N), by = "g", keyby = FALSE)
── Error ('test-cur-context.R:31:3'): cur_group_rows() works ───────────────────
Error in ``[.data.table`(~.df, , `:=`(rows1 = seq_len(.N), rows_check = 1:.N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% ... at test-cur-context.R:31:3
2. ├─tidytable::mutate(...)
3. ├─tidytable:::mutate.tidytable(...)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-cur-context.R:42:3'): cur_group_id() works ─────────────────────
Error in ``[.data.table`(~.df, , `:=`(id1 = .GRP, id_check = .GRP), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(id1 = cur_group_id(), id_check = .GRP, .by = y) at test-cur-context.R:42:3
2. ├─tidytable::mutate(., id1 = cur_group_id(), id_check = .GRP, .by = y)
3. ├─tidytable:::mutate.tidytable(...)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─.df[, `:=`(id1 = .GRP, id_check = .GRP), by = "y", keyby = FALSE]
6. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:7:3'): can remove variables with NULL ─────────────────
Error in ``[.data.table`(~.df, , `:=`(c("x", "x_plus_y"), { x = NULL x = rep(1, 3) x_plus_y = x + y list(x, x_plus_y) }), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% ... at test-mutate.R:7:3
2. ├─tidytable::mutate(...)
3. ├─tidytable:::mutate.data.frame(...)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:129:3'): can mutate in order with .by ─────────────────
Error in ``[.data.table`(~.df, , `:=`(c("x", "y"), { x = x + 1 y = x + 1 list(x, y) }), by = "z", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(x = x + 1, y = x + 1, .by = z) at test-mutate.R:129:3
2. ├─tidytable::mutate(., x = x + 1, y = x + 1, .by = z)
3. ├─tidytable:::mutate.tidytable(., x = x + 1, y = x + 1, .by = z)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:155:3'): can use .N with .by ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = .N, .by = y) at test-mutate.R:155:3
2. ├─tidytable::mutate(., z = .N, .by = y)
3. ├─tidytable:::mutate.data.frame(., z = .N, .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .N), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = .N), by = "y", keyby = FALSE)
── Error ('test-mutate.R:182:3'): can use n() with by ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = n(), .by = y) at test-mutate.R:182:3
2. ├─tidytable::mutate(., z = n(), .by = y)
3. ├─tidytable:::mutate.data.frame(., z = n(), .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .N), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = .N), by = "y", keyby = FALSE)
── Error ('test-mutate.R:191:3'): can use .GRP ─────────────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .GRP), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = .GRP, .by = y) at test-mutate.R:191:3
2. ├─tidytable::mutate(., z = .GRP, .by = y)
3. ├─tidytable:::mutate.data.frame(., z = .GRP, .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .GRP), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:229:5'): can make custom functions with quosures ──────
Error in ``[.data.table`(~.df, , `:=`(stuff = x + val), by = "z", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% add_one(x, stuff, 1, z) at test-mutate.R:233:3
2. ├─tidytable (local) add_one(., x, stuff, 1, z)
3. │ └─.data %>% ... at test-mutate.R:229:5
4. ├─tidytable::mutate(...)
5. ├─tidytable:::mutate.data.frame(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(stuff = x + val), by = "z", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:268:3'): .keep = 'none' only keeps grouping variables ──
Error in ``[.data.table`(~.df, , `:=`(z = 1), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-mutate.R:268:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─tidytable::mutate(df, z = 1, .by = x, .keep = "none")
5. ├─tidytable:::mutate.tidytable(df, z = 1, .by = x, .keep = "none")
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = 1), by = "x", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = 1), by = "x", keyby = FALSE)
── Error ('test-mutate.R:273:3'): .keep= always retains grouping variables (#5582) ──
Error in ``[.data.table`(~.df, , `:=`(a = x + 1), by = "z", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-mutate.R:273:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─tidytable::mutate(df, a = x + 1, .keep = "none", .by = z)
5. ├─tidytable:::mutate.tidytable(df, a = x + 1, .keep = "none", .by = z)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(a = x + 1), by = "z", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:344:3'): can use .data and .env with .by ──────────────
Error in ``[.data.table`(~.df, , `:=`(new = mean(x) + .env$x), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(new = mean(.data$x) + .env$x, .by = y) at test-mutate.R:344:3
2. ├─tidytable::mutate(., new = mean(.data$x) + .env$x, .by = y)
3. ├─tidytable:::mutate.data.frame(...)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(new = mean(x) + .env$x), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:380:3'): works on rowwise_tt ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(row_mean = mean(c(x, y))) at test-mutate.R:380:3
2. ├─tidytable::mutate(., row_mean = mean(c(x, y)))
3. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c(x, y)))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:404:3'): c_across does all cols automatically ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(row_mean = mean(c_across())) at test-mutate.R:404:3
2. ├─tidytable::mutate(., row_mean = mean(c_across()))
3. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c_across()))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:417:3'): c_across cols selection works ────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ungroup() at test-mutate.R:417:3
2. ├─tidytable::ungroup(.)
3. ├─tidytable::mutate(., row_mean = mean(c_across(cols = where(is.numeric))))
4. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c_across(cols = where(is.numeric))))
5. │ ├─tidytable::mutate(...)
6. │ └─tidytable:::mutate.tidytable(...)
7. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
8. ├─...[]
9. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:427:3'): c_across works with space named columns ──────
Error in ``[.data.table`(~.df, , `:=`(sum = sum(vctrs::vec_c(`x y`, `x z`))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(sum = sum(c_across(contains(" ")))) at test-mutate.R:427:3
2. ├─tidytable::mutate(., sum = sum(c_across(contains(" "))))
3. ├─tidytable:::mutate.rowwise_tt(., sum = sum(c_across(contains(" "))))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:4:3'): mutate_rowwise() adds column ───────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(row_mean = mean(c(x, y))) at test-mutate_rowwise.R:4:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c(x, y)))
3. ├─tidytable:::mutate_rowwise.data.frame(...)
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:23:3'): can use .keep and relocate ────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% ... at test-mutate_rowwise.R:23:3
2. ├─tidytable::mutate_rowwise(...)
3. ├─tidytable:::mutate_rowwise.data.frame(...)
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:35:3'): c_across provides all columns ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(row_mean = mean(c_across())) at test-mutate_rowwise.R:35:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c_across()))
3. ├─tidytable:::mutate_rowwise.data.frame(., row_mean = mean(c_across()))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:46:3'): c_across cols selection works ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% ... at test-mutate_rowwise.R:46:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c_across(cols = where(is.numeric))))
3. ├─tidytable:::mutate_rowwise.data.frame(., row_mean = mean(c_across(cols = where(is.numeric))))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:54:3'): c_across works with space named columns ──
Error in ``[.data.table`(~.df, , `:=`(sum = sum(vctrs::vec_c(`x y`, `x z`))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(sum = sum(c_across(contains(" ")))) at test-mutate_rowwise.R:54:3
2. ├─tidytable::mutate_rowwise(., sum = sum(c_across(contains(" "))))
3. ├─tidytable:::mutate_rowwise.data.frame(., sum = sum(c_across(contains(" "))))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:63:3'): overrides grouped_tt ──────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% suppressWarnings() at test-mutate_rowwise.R:63:3
2. ├─base::suppressWarnings(.)
3. │ └─base::withCallingHandlers(...)
4. ├─tidytable::mutate_rowwise(., row_mean = mean(c(x, y)))
5. ├─tidytable:::mutate_rowwise.grouped_tt(...)
6. │ ├─tidytable::mutate_rowwise(...)
7. │ └─tidytable:::mutate_rowwise.tidytable(...)
8. │ ├─tidytable::mutate(...)
9. │ └─tidytable:::mutate.tidytable(...)
10. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
11. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
12. └─data.table:::`[.data.table`(...)
── Error ('test-rank.R:20:3'): row_number() works with .by ─────────────────────
Error in ``[.data.table`(~.df, , `:=`(row = seq_len(.N)), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(row = row_number(), .by = x) at test-rank.R:20:3
2. ├─tidytable::mutate(., row = row_number(), .by = x)
3. ├─tidytable:::mutate.data.frame(., row = row_number(), .by = x)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(row = seq_len(.N)), by = "x", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
[ FAIL 24 | WARN 0 | SKIP 0 | PASS 1300 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.11.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [35s/63s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(tidytable)
Attaching package: 'tidytable'
The following objects are masked from 'package:stats':
dt, filter, lag
The following objects are masked from 'package:base':
%in%, %notin%
>
> test_check("tidytable")
Saving _problems/test-add_count-6.R
Saving _problems/test-add_count-20.R
Saving _problems/test-cur-context-34.R
Saving _problems/test-cur-context-45.R
Saving _problems/test-mutate-12.R
Saving _problems/test-mutate-130.R
Saving _problems/test-mutate-156.R
Saving _problems/test-mutate-183.R
Saving _problems/test-mutate-192.R
Saving _problems/test-mutate-230.R
Saving _problems/test-mutate-268.R
Saving _problems/test-mutate-276.R
Saving _problems/test-mutate-345.R
Saving _problems/test-mutate-382.R
Saving _problems/test-mutate-406.R
Saving _problems/test-mutate-420.R
Saving _problems/test-mutate-429.R
Saving _problems/test-mutate_rowwise-5.R
Saving _problems/test-mutate_rowwise-26.R
Saving _problems/test-mutate_rowwise-36.R
Saving _problems/test-mutate_rowwise-47.R
Saving _problems/test-mutate_rowwise-55.R
Saving _problems/test-mutate_rowwise-66.R
Saving _problems/test-rank-21.R
[ FAIL 24 | WARN 0 | SKIP 0 | PASS 1300 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-add_count.R:6:3'): adds count ──────────────────────────────────
Error in ``[.data.table`(~.df, , `:=`(n = .N), by = "g", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% add_count(g) at test-add_count.R:6:3
2. ├─tidytable::add_count(., g)
3. ├─tidytable:::add_count.tidytable(., g)
4. │ ├─tidytable::mutate(.df, `:=`(!!name, n()), .by = c(!!!.by))
5. │ └─tidytable:::mutate.tidytable(.df, `:=`(!!name, n()), .by = c(!!!.by))
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(n = .N), by = "g", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(n = .N), by = "g", keyby = FALSE)
── Error ('test-add_count.R:18:3'): works on a grouped_tt ──────────────────────
Error in ``[.data.table`(~.df, , `:=`(n = .N), by = "g", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% group_by(g) %>% add_count() at test-add_count.R:18:3
2. ├─tidytable::add_count(.)
3. ├─tidytable:::add_count.grouped_tt(.)
4. │ ├─tidytable::add_count(...)
5. │ └─tidytable:::add_count.tidytable(...)
6. │ ├─tidytable::mutate(.df, `:=`(!!name, n()), .by = c(!!!.by))
7. │ └─tidytable:::mutate.tidytable(.df, `:=`(!!name, n()), .by = c(!!!.by))
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(n = .N), by = "g", keyby = FALSE]
10. └─data.table:::`[.data.table`(.df, , `:=`(n = .N), by = "g", keyby = FALSE)
── Error ('test-cur-context.R:31:3'): cur_group_rows() works ───────────────────
Error in ``[.data.table`(~.df, , `:=`(rows1 = seq_len(.N), rows_check = 1:.N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% ... at test-cur-context.R:31:3
2. ├─tidytable::mutate(...)
3. ├─tidytable:::mutate.tidytable(...)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-cur-context.R:42:3'): cur_group_id() works ─────────────────────
Error in ``[.data.table`(~.df, , `:=`(id1 = .GRP, id_check = .GRP), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(id1 = cur_group_id(), id_check = .GRP, .by = y) at test-cur-context.R:42:3
2. ├─tidytable::mutate(., id1 = cur_group_id(), id_check = .GRP, .by = y)
3. ├─tidytable:::mutate.tidytable(...)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─.df[, `:=`(id1 = .GRP, id_check = .GRP), by = "y", keyby = FALSE]
6. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:7:3'): can remove variables with NULL ─────────────────
Error in ``[.data.table`(~.df, , `:=`(c("x", "x_plus_y"), { x = NULL x = rep(1, 3) x_plus_y = x + y list(x, x_plus_y) }), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% ... at test-mutate.R:7:3
2. ├─tidytable::mutate(...)
3. ├─tidytable:::mutate.data.frame(...)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:129:3'): can mutate in order with .by ─────────────────
Error in ``[.data.table`(~.df, , `:=`(c("x", "y"), { x = x + 1 y = x + 1 list(x, y) }), by = "z", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(x = x + 1, y = x + 1, .by = z) at test-mutate.R:129:3
2. ├─tidytable::mutate(., x = x + 1, y = x + 1, .by = z)
3. ├─tidytable:::mutate.tidytable(., x = x + 1, y = x + 1, .by = z)
4. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
5. ├─...[]
6. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:155:3'): can use .N with .by ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = .N, .by = y) at test-mutate.R:155:3
2. ├─tidytable::mutate(., z = .N, .by = y)
3. ├─tidytable:::mutate.data.frame(., z = .N, .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .N), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = .N), by = "y", keyby = FALSE)
── Error ('test-mutate.R:182:3'): can use n() with by ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .N), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = n(), .by = y) at test-mutate.R:182:3
2. ├─tidytable::mutate(., z = n(), .by = y)
3. ├─tidytable:::mutate.data.frame(., z = n(), .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .N), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = .N), by = "y", keyby = FALSE)
── Error ('test-mutate.R:191:3'): can use .GRP ─────────────────────────────────
Error in ``[.data.table`(~.df, , `:=`(z = .GRP), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(z = .GRP, .by = y) at test-mutate.R:191:3
2. ├─tidytable::mutate(., z = .GRP, .by = y)
3. ├─tidytable:::mutate.data.frame(., z = .GRP, .by = y)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = .GRP), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:229:5'): can make custom functions with quosures ──────
Error in ``[.data.table`(~.df, , `:=`(stuff = x + val), by = "z", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% add_one(x, stuff, 1, z) at test-mutate.R:233:3
2. ├─tidytable (local) add_one(., x, stuff, 1, z)
3. │ └─.data %>% ... at test-mutate.R:229:5
4. ├─tidytable::mutate(...)
5. ├─tidytable:::mutate.data.frame(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(stuff = x + val), by = "z", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:268:3'): .keep = 'none' only keeps grouping variables ──
Error in ``[.data.table`(~.df, , `:=`(z = 1), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_named(...) at test-mutate.R:268:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─tidytable::mutate(df, z = 1, .by = x, .keep = "none")
5. ├─tidytable:::mutate.tidytable(df, z = 1, .by = x, .keep = "none")
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(z = 1), by = "x", keyby = FALSE]
8. └─data.table:::`[.data.table`(.df, , `:=`(z = 1), by = "x", keyby = FALSE)
── Error ('test-mutate.R:273:3'): .keep= always retains grouping variables (#5582) ──
Error in ``[.data.table`(~.df, , `:=`(a = x + 1), by = "z", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_equal(...) at test-mutate.R:273:3
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─tidytable::mutate(df, a = x + 1, .keep = "none", .by = z)
5. ├─tidytable:::mutate.tidytable(df, a = x + 1, .keep = "none", .by = z)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(a = x + 1), by = "z", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:344:3'): can use .data and .env with .by ──────────────
Error in ``[.data.table`(~.df, , `:=`(new = mean(x) + .env$x), by = "y", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(new = mean(.data$x) + .env$x, .by = y) at test-mutate.R:344:3
2. ├─tidytable::mutate(., new = mean(.data$x) + .env$x, .by = y)
3. ├─tidytable:::mutate.data.frame(...)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(new = mean(x) + .env$x), by = "y", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:380:3'): works on rowwise_tt ──────────────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(row_mean = mean(c(x, y))) at test-mutate.R:380:3
2. ├─tidytable::mutate(., row_mean = mean(c(x, y)))
3. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c(x, y)))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:404:3'): c_across does all cols automatically ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(row_mean = mean(c_across())) at test-mutate.R:404:3
2. ├─tidytable::mutate(., row_mean = mean(c_across()))
3. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c_across()))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:417:3'): c_across cols selection works ────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% ungroup() at test-mutate.R:417:3
2. ├─tidytable::ungroup(.)
3. ├─tidytable::mutate(., row_mean = mean(c_across(cols = where(is.numeric))))
4. ├─tidytable:::mutate.rowwise_tt(., row_mean = mean(c_across(cols = where(is.numeric))))
5. │ ├─tidytable::mutate(...)
6. │ └─tidytable:::mutate.tidytable(...)
7. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
8. ├─...[]
9. └─data.table:::`[.data.table`(...)
── Error ('test-mutate.R:427:3'): c_across works with space named columns ──────
Error in ``[.data.table`(~.df, , `:=`(sum = sum(vctrs::vec_c(`x y`, `x z`))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% rowwise() %>% mutate(sum = sum(c_across(contains(" ")))) at test-mutate.R:427:3
2. ├─tidytable::mutate(., sum = sum(c_across(contains(" "))))
3. ├─tidytable:::mutate.rowwise_tt(., sum = sum(c_across(contains(" "))))
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─...[]
8. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:4:3'): mutate_rowwise() adds column ───────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(row_mean = mean(c(x, y))) at test-mutate_rowwise.R:4:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c(x, y)))
3. ├─tidytable:::mutate_rowwise.data.frame(...)
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:23:3'): can use .keep and relocate ────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% ... at test-mutate_rowwise.R:23:3
2. ├─tidytable::mutate_rowwise(...)
3. ├─tidytable:::mutate_rowwise.data.frame(...)
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:35:3'): c_across provides all columns ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(row_mean = mean(c_across())) at test-mutate_rowwise.R:35:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c_across()))
3. ├─tidytable:::mutate_rowwise.data.frame(., row_mean = mean(c_across()))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:46:3'): c_across cols selection works ─────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(vctrs::vec_c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% ... at test-mutate_rowwise.R:46:3
2. ├─tidytable::mutate_rowwise(., row_mean = mean(c_across(cols = where(is.numeric))))
3. ├─tidytable:::mutate_rowwise.data.frame(., row_mean = mean(c_across(cols = where(is.numeric))))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:54:3'): c_across works with space named columns ──
Error in ``[.data.table`(~.df, , `:=`(sum = sum(vctrs::vec_c(`x y`, `x z`))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─test_df %>% mutate_rowwise(sum = sum(c_across(contains(" ")))) at test-mutate_rowwise.R:54:3
2. ├─tidytable::mutate_rowwise(., sum = sum(c_across(contains(" "))))
3. ├─tidytable:::mutate_rowwise.data.frame(., sum = sum(c_across(contains(" "))))
4. │ ├─tidytable::mutate_rowwise(...)
5. │ └─tidytable:::mutate_rowwise.tidytable(...)
6. │ ├─tidytable::mutate(...)
7. │ └─tidytable:::mutate.tidytable(...)
8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
9. ├─...[]
10. └─data.table:::`[.data.table`(...)
── Error ('test-mutate_rowwise.R:63:3'): overrides grouped_tt ──────────────────
Error in ``[.data.table`(~.df, , `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─... %>% suppressWarnings() at test-mutate_rowwise.R:63:3
2. ├─base::suppressWarnings(.)
3. │ └─base::withCallingHandlers(...)
4. ├─tidytable::mutate_rowwise(., row_mean = mean(c(x, y)))
5. ├─tidytable:::mutate_rowwise.grouped_tt(...)
6. │ ├─tidytable::mutate_rowwise(...)
7. │ └─tidytable:::mutate_rowwise.tidytable(...)
8. │ ├─tidytable::mutate(...)
9. │ └─tidytable:::mutate.tidytable(...)
10. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
11. ├─.df[, `:=`(row_mean = mean(c(x, y))), by = ".rowwise_id", keyby = FALSE]
12. └─data.table:::`[.data.table`(...)
── Error ('test-rank.R:20:3'): row_number() works with .by ─────────────────────
Error in ``[.data.table`(~.df, , `:=`(row = seq_len(.N)), by = "x", keyby = FALSE)`: attempt access index 2/2 in VECTOR_ELT
Backtrace:
▆
1. ├─df %>% mutate(row = row_number(), .by = x) at test-rank.R:20:3
2. ├─tidytable::mutate(., row = row_number(), .by = x)
3. ├─tidytable:::mutate.data.frame(., row = row_number(), .by = x)
4. │ ├─tidytable::mutate(...)
5. │ └─tidytable:::mutate.tidytable(...)
6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
7. ├─.df[, `:=`(row = seq_len(.N)), by = "x", keyby = FALSE]
8. └─data.table:::`[.data.table`(...)
[ FAIL 24 | WARN 0 | SKIP 0 | PASS 1300 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc