Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(neatRanges)
  > 
  > test_check("neatRanges")
  Saving _problems/testneatRanges_fill-42.R
  Saving _problems/testneatRanges_fill-78.R
  Saving _problems/testneatRanges_fill-177.R
  Saving _problems/testneatRanges_fill-271.R
  [ FAIL 4 | WARN 5 | SKIP 0 | PASS 32 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('testneatRanges_fill.R:42:3'): fill_ranges functions with date formats ──
  Error in ``[.data.table`(dfFilled, , `:=`(gapFlag, shift(get(end_var)) < (get(start_var) - 1L)), by = mget(groups))`: attempt access index 4/4 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─neatRanges::fill_ranges(...) at testneatRanges_fill.R:42:3
   2.   ├─...[]
   3.   └─data.table:::`[.data.table`(...)
  ── Error ('testneatRanges_fill.R:78:3'): fill_ranges functions with date formats & data.tables ──
  Error in ``[.data.table`(dfFilled, , `:=`(gapFlag, shift(get(end_var)) < (get(start_var) - 1L)), by = mget(groups))`: attempt access index 4/4 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─neatRanges::fill_ranges(...) at testneatRanges_fill.R:78:3
   2.   ├─...[]
   3.   └─data.table:::`[.data.table`(...)
  ── Error ('testneatRanges_fill.R:177:3'): fill_ranges functions with timestamp formats ──
  Error in ``[.data.table`(dfFilled, , `:=`(gapFlag, shift(get(end_var)) < (get(start_var) - 1L)), by = mget(groups))`: attempt access index 4/4 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─neatRanges::fill_ranges(...) at testneatRanges_fill.R:177:3
   2.   ├─...[]
   3.   └─data.table:::`[.data.table`(...)
  ── Error ('testneatRanges_fill.R:266:3'): fill_ranges functions with fill ──────
  Error in ``[.data.table`(dfFilled, , `:=`(gapFlag, shift(get(end_var)) < (get(start_var) - 1L)), by = mget(groups))`: attempt access index 5/5 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─neatRanges::fill_ranges(...) at testneatRanges_fill.R:266:3
   2.   ├─...[]
   3.   └─data.table:::`[.data.table`(...)
  
  [ FAIL 4 | WARN 5 | SKIP 0 | PASS 32 ]
  Error:
  ! Test failures.
  Execution halted