Running ‘testthat.R’ [45s/43s]
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/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(SEQTaRget)
  > 
  > test_check("SEQTaRget")
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-5.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-26.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-44.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-64.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-82.R
  Expanding Data...
  Saving _problems/test_coefficients-105.R
  Expanding Data...
  Saving _problems/test_coefficients-125.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-142.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-160.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_coefficients-178.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_errors-24.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_hazard-4.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_methods-5.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_misc-8.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_misc-19.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_misc-27.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_misc-35.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_misc-43.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_misc-51.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_multinomial-5.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_multinomial-26.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_multinomial-46.R
  Expanding Data...
  Saving _problems/test_multinomial-65.R
  Expanding Data...
  Saving _problems/test_multinomial-82.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_parallel-8.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_parallel-20.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_survival-4.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_survival-12.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_survival-20.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_warnings-6.R
  Non-required columns provided, pruning for efficiency
  Pruned
  Expanding Data...
  Saving _problems/test_warnings-14.R
  [ FAIL 31 | WARN 0 | SKIP 0 | PASS 32 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_coefficients.R:3:3'): ITT ──────────────────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_coefficients.R:3:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:22:3'): Pre-Expansion Dose-Response ─────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_coefficients.R:22:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:40:3'): Post-Expansion Dose-Response ────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_coefficients.R:40:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:60:3'): Pre-Expansion Censoring ─────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_coefficients.R:60:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:78:3'): Post-Expansion Censoring ────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_coefficients.R:78:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:99:3'): Pre-Expansion Excused Censoring ─────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_coefficients.R:99:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:118:3'): Post-Expansion Excused Censoring ───────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_coefficients.R:118:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:140:3'): Pre-Expansion ITT (Cense 1 - LTFU) ─────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_coefficients.R:140:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:158:3'): Post-Expansion ITT (Cense 1 - LTFU) ────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_coefficients.R:158:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_coefficients.R:176:3'): ITT - Multinomial, Treatment Levels 1,2 ──
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_coefficients.R:176:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_errors.R:21:3'): Early Column Erroring ─────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_errors.R:21:3
    2. │ └─testthat:::expect_condition_matching_(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─SEQTaRget::SEQuential(...)
    8.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
    9.   │ └─encodes %in% names(data)
   10.   └─SEQTaRget:::SEQexpand(params)
   11.     └─(function() {...
   12.       ├─...[]
   13.       └─data.table:::`[.data.table`(...)
  ── Error ('test_hazard.R:3:3'): Hazard and vcov ────────────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_hazard.R:3:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_methods.R:2:3'): Output Methods Testing ────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_methods.R:2:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_misc.R:3:3'): Pre-Expansion Excused Censoring - No excusedOne given ──
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_misc.R:3:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_misc.R:14:3'): Pre-Expansion Excused Censoring - No excusedZero given ──
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_misc.R:14:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_misc.R:25:3'): Unweighted Censoring and Dose-Reponse ───────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_misc.R:25:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_misc.R:33:3'): ITT - Followup Class ────────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_misc.R:33:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_misc.R:41:3'): ITT - Followup Spline ───────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_misc.R:41:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_misc.R:49:3'): Error 107 - followup.include = FALSE failing to create covariates ──
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_misc.R:49:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_multinomial.R:3:3'): Multinomial ITT ───────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_multinomial.R:3:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_multinomial.R:23:3'): Multinomial Censoring Pre-Expansion ──────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_multinomial.R:23:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_multinomial.R:43:3'): Multinomial Censoring Post-Expansion ─────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_multinomial.R:43:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_multinomial.R:61:3'): Multinomial Censoring Excused Pre-Expansion ──
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_multinomial.R:61:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_multinomial.R:78:3'): Multinomial Censoring Excused Post-Expansion ──
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_multinomial.R:78:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_parallel.R:3:3'): Parallelism, Bootstrapping, Output Class Methods ──
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_parallel.R:3:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_parallel.R:15:3'): Non-Parallel Bootstrapping ──────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─base::suppressWarnings(...) at test_parallel.R:15:3
   2. │ └─base::withCallingHandlers(...)
   3. └─SEQTaRget::SEQuential(...)
   4.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   5.   │ └─encodes %in% names(data)
   6.   └─SEQTaRget:::SEQexpand(params)
   7.     └─(function() {...
   8.       ├─...[]
   9.       └─data.table:::`[.data.table`(...)
  ── Error ('test_survival.R:3:3'): Survival Return ──────────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_survival.R:3:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_survival.R:11:3'): Bootstrapped Survival ───────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_survival.R:11:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_survival.R:19:3'): Bootstrapped Survival - Percentile ──────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
      ▆
   1. └─SEQTaRget::SEQuential(...) at test_survival.R:19:3
   2.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
   3.   │ └─encodes %in% names(data)
   4.   └─SEQTaRget:::SEQexpand(params)
   5.     └─(function() {...
   6.       ├─...[]
   7.       └─data.table:::`[.data.table`(...)
  ── Error ('test_warnings.R:3:3'): Weighted ITT ─────────────────────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_warnings.R:3:3
    2. │ └─testthat:::expect_condition_matching_(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─SEQTaRget::SEQuential(...)
    8.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
    9.   │ └─encodes %in% names(data)
   10.   └─SEQTaRget:::SEQexpand(params)
   11.     └─(function() {...
   12.       ├─...[]
   13.       └─data.table:::`[.data.table`(...)
  ── Error ('test_warnings.R:11:3'): Unexcused Excused Censoring ─────────────────
  Error in ``[.data.table`(DT[, list(period = Map(seq, get(params@time), table(DT[[params@id]])[.GRP] - 1)), by = eval(params@id), ][, cbind(.SD, trial = rowid(get(params@id)) - 1)][, list(period = unlist(.SD)), by = c(eval(params@id), "trial")], , `:=`(followup, as.integer(seq_len(.N) - 1)), by = c(eval(params@id), "trial"))`: attempt access index 3/3 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test_warnings.R:11:3
    2. │ └─testthat:::expect_condition_matching_(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. └─SEQTaRget::SEQuential(...)
    8.   ├─SEQTaRget:::factorize(SEQexpand(params), params)
    9.   │ └─encodes %in% names(data)
   10.   └─SEQTaRget:::SEQexpand(params)
   11.     └─(function() {...
   12.       ├─...[]
   13.       └─data.table:::`[.data.table`(...)
  
  [ FAIL 31 | WARN 0 | SKIP 0 | PASS 32 ]
  Error:
  ! Test failures.
  Execution halted