Running ‘testthat.R’ [26s/30s]
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