CRAN Package Check Results for Maintainer ‘Ryan O'Dea <ryan.odea at psi.ch>’

Last updated on 2025-12-28 03:52:16 CET.

Package	ERROR	OK
SEQTaRget	1	12

Package SEQTaRget

Current CRAN status: ERROR: 1, OK: 12

Version: 1.3.2
Check: tests
Result: ERROR Running 'testthat.R' [50s] 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 Flavor: r-devel-windows-x86_64