CRAN Package Check Results for Maintainer ‘Yujie Zhao <yujie.zhao at merck.com>’

Last updated on 2025-12-28 01:49:23 CET.

Package	ERROR	OK
gsDesign2	1	12
metalite		13
metalite.ae		13
simtrial	1	12

Package gsDesign2

Current CRAN status: ERROR: 1, OK: 12

Version: 1.1.7
Check: examples
Result: ERROR Running examples in 'gsDesign2-Ex.R' failed The error most likely occurred in: > ### Name: ahr > ### Title: Average hazard ratio under non-proportional hazards > ### Aliases: ahr > > ### ** Examples > > # Example 1: default > ahr() Error in `[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time)) : attempt access index 6/6 in VECTOR_ELT Calls: ahr -> pw_info -> [ -> [.data.table Execution halted Flavor: r-devel-windows-x86_64

Version: 1.1.7
Check: tests
Result: ERROR Running 'testthat.R' [38s] Running the tests in 'tests/testthat.R' failed. Complete output: > library(testthat) > library(gsDesign2) > > test_check("gsDesign2") Saving _problems/test-developer-ahr-20.R Saving _problems/test-developer-ahr-56.R Saving _problems/test-developer-ahr-89.R Saving _problems/test-developer-as_gt-7.R Saving _problems/test-developer-expected_time-19.R Saving _problems/test-developer-expected_time-26.R Saving _problems/test-developer-expected_time-47.R Saving _problems/test-developer-gs_bound_summary-3.R Saving _problems/test-developer-gs_bound_summary-19.R Saving _problems/test-developer-gs_bound_summary-32.R Saving _problems/test-developer-gs_bound_summary-45.R Saving _problems/test-developer-gs_bound_summary-86.R Saving _problems/test-developer-gs_bound_summary-95.R Saving _problems/test-developer-gs_bound_summary-105.R Saving _problems/test-developer-gs_bound_summary-119.R Saving _problems/test-developer-gs_bound_summary-130.R Saving _problems/test-developer-gs_bound_summary-144.R Saving _problems/test-developer-gs_bound_summary-166.R Saving _problems/test-developer-gs_bound_summary-176.R Saving _problems/test-developer-gs_cp_npe-45.R Saving _problems/test-developer-gs_design_ahr-2.R Saving _problems/test-developer-gs_design_ahr-15.R Saving _problems/test-developer-gs_design_ahr-28.R Saving _problems/test-developer-gs_design_ahr-43.R Saving _problems/test-developer-gs_design_ahr-58.R Saving _problems/test-developer-gs_design_ahr-73.R Saving _problems/test-developer-gs_design_ahr-95.R Saving _problems/test-developer-gs_design_ahr-124.R Saving _problems/test-developer-gs_design_wlr-20.R Saving _problems/test-developer-gs_design_wlr-35.R Saving _problems/test-developer-gs_design_wlr-49.R Saving _problems/test-developer-gs_design_wlr-73.R Saving _problems/test-developer-gs_design_wlr-97.R Saving _problems/test-developer-gs_design_wlr-128.R Saving _problems/test-developer-gs_design_wlr-182.R Saving _problems/test-developer-gs_design_wlr-236.R Saving _problems/test-developer-gs_info_wlr-14.R Saving _problems/test-developer-gs_power_ahr-2.R Saving _problems/test-developer-gs_power_ahr-23.R Saving _problems/test-developer-gs_power_ahr-60.R Saving _problems/test-developer-gs_power_ahr-97.R Saving _problems/test-developer-gs_power_ahr-130.R Saving _problems/test-developer-gs_power_ahr-149.R Saving _problems/test-developer-gs_power_wlr-8.R Saving _problems/test-developer-pw_info-11.R Saving _problems/test-developer-pw_info-46.R Saving _problems/test-developer-pw_info-73.R Saving _problems/test-developer-pw_info-113.R Saving _problems/test-developer-pw_info-124.R Saving _problems/test-developer-summary-5.R Saving _problems/test-developer-summary-68.R Saving _problems/test-developer-summary-126.R Saving _problems/test-developer-summary-162.R Saving _problems/test-developer-summary-172.R Saving _problems/test-developer-summary-243.R Saving _problems/test-developer-to_integer-13.R Saving _problems/test-developer-to_integer-50.R Saving _problems/test-developer-to_integer-57.R Saving _problems/test-developer-to_integer-90.R Saving _problems/test-developer-to_integer-192.R Saving _problems/test-developer-to_integer-210.R Saving _problems/test-developer-to_integer-259.R Saving _problems/test-developer-to_integer-277.R Saving _problems/test-developer-to_integer-285.R Saving _problems/test-independent-ahr-35.R Saving _problems/test-independent-ahr-52.R Saving _problems/test-independent-ahr-69.R Saving _problems/test-independent-ahr-82.R Saving _problems/test-independent-expected_time-2.R Saving _problems/test-independent-expected_time-18.R Saving _problems/test-independent-fixed_design-29.R Saving _problems/test-independent-fixed_design-53.R Saving _problems/test-independent-fixed_design-79.R Saving _problems/test-independent-fixed_design-103.R Saving _problems/test-independent-fixed_design-128.R Saving _problems/test-independent-gs_design_ahr-21.R Saving _problems/test-independent-gs_design_ahr-67.R Saving _problems/test-independent-gs_design_combo-1.R Saving _problems/test-independent-gs_info_ahr-20.R Saving _problems/test-independent-gs_info_ahr-29.R Saving _problems/test-independent-gs_info_ahr-61.R Saving _problems/test-independent-gs_info_combo-25.R Saving _problems/test-independent-gs_power_ahr-63.R Saving _problems/test-independent-gs_power_ahr-94.R Saving _problems/test-independent-gs_power_combo-37.R Saving _problems/test-independent-gs_power_combo-113.R Saving _problems/test-independent-gs_update_ahr-43.R Saving _problems/test-independent-to_integer-67.R Saving _problems/test-independent-to_integer-87.R Saving _problems/test-independent-to_integer-97.R Saving _problems/test-independent-to_integer-118.R Saving _problems/test-independent-to_integer-140.R Saving _problems/test-independent-to_integer-187.R Saving _problems/test-independent-to_integer-205.R Saving _problems/test-independent-utility_combo-157.R Saving _problems/test-independent-utility_combo-463.R Saving _problems/test-independent-utility_combo-547.R Saving _problems/test-independent_gs_design_wlr-46.R Saving _problems/test-independent_gs_info_wlr-42.R Saving _problems/test-independent_gs_power_wlr-43.R [ FAIL 100 | WARN 0 | SKIP 28 | PASS 274 ] ══ Skipped tests (28) ══════════════════════════════════════════════════════════ • On CRAN (28): 'test-independent_as_gt.R:35:3', 'test-independent_as_gt.R:60:3', 'test-independent_as_gt.R:85:3', 'test-independent_as_gt.R:114:3', 'test-independent_as_gt.R:125:3', 'test-independent_as_gt.R:136:3', 'test-independent_as_gt.R:147:3', 'test-independent_as_gt.R:169:3', 'test-independent_as_gt.R:194:3', 'test-independent_as_gt.R:205:3', 'test-independent_as_gt.R:216:3', 'test-independent_as_gt.R:227:3', 'test-independent_as_gt.R:241:3', 'test-independent_as_gt.R:263:3', 'test-independent_as_gt.R:274:3', 'test-independent_as_rtf.R:2:3', 'test-independent_as_rtf.R:14:3', 'test-independent_as_rtf.R:29:3', 'test-independent_as_rtf.R:44:3', 'test-independent_as_rtf.R:56:3', 'test-independent_as_rtf.R:68:3', 'test-independent_as_rtf.R:80:3', 'test-independent_as_rtf.R:92:3', 'test-independent_as_rtf.R:108:3', 'test-independent_as_rtf.R:124:3', 'test-independent_as_rtf.R:148:3', 'test-independent_as_rtf.R:163:3', 'test-independent_as_rtf.R:175:3' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-developer-ahr.R:16:3'): unstratified population, compared with old version ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::ahr(...) at test-developer-ahr.R:16:3 2. └─gsDesign2::pw_info(...) 3. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 4. └─data.table:::`[.data.table`(...) ── Error ('test-developer-ahr.R:52:3'): stratified population, compared with old version ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::ahr(...) at test-developer-ahr.R:52:3 2. └─gsDesign2::pw_info(...) 3. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 4. └─data.table:::`[.data.table`(...) ── Error ('test-developer-ahr.R:89:3'): stratified population, compared with pw_info ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::ahr(...) at test-developer-ahr.R:89:3 2. └─gsDesign2::pw_info(...) 3. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 4. └─data.table:::`[.data.table`(...) ── Error ('test-developer-as_gt.R:4:3'): footnote=FALSE removes footnote ─────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::fixed_design_ahr(...) at test-developer-as_gt.R:4:3 2. └─gsDesign2::gs_power_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-expected_time.R:14:3'): time to targeted events ────── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::expected_time(...) at test-developer-expected_time.R:14:3 2. └─base::tryCatch(...) 3. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. └─value[[3L]](cond) ── Error ('test-developer-expected_time.R:26:3'): default ────────────────────── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::expected_time(enroll_rate = enroll_rate) at test-developer-expected_time.R:26:3 2. └─base::tryCatch(...) 3. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. └─value[[3L]](cond) ── Error ('test-developer-expected_time.R:42:3'): time to targeted events by new/old version ── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::expected_time(...) at test-developer-expected_time.R:42:3 2. └─base::tryCatch(...) 3. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 4. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 5. └─value[[3L]](cond) ── Error ('test-developer-gs_bound_summary.R:3:3'): gs_bound_summary() summarizes the correct number of analyses ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_bound_summary.R:3:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:19:3'): gs_bound_summary() uses correct HR label ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_bound_summary.R:19:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:32:3'): gs_bound_summary() uses correct column names ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_bound_summary.R:32:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:45:3'): gs_bound_summary() supports multiple alpha values ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(analysis_time = 1:3 * 12, alpha = 0.0125) at test-developer-gs_bound_summary.R:45:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:86:3'): The arg `alpha` is only supported for AHR design objects ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_bound_summary.R:86:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:95:3'): The arg `alpha` is required to be a numeric vector ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_bound_summary.R:95:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:105:3'): Edge case: when arg `alpha` matches original alpha ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(analysis_time = 1:3 * 12, alpha = 0.0125) at test-developer-gs_bound_summary.R:105:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:119:3'): One-sided design should not have column Futility ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_bound_summary.R:119:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:130:3'): Arg `digits` controls number of digits in table body ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_bound_summary.R:130:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:144:3'): Arg `ddigits` controls number of digits for delta value ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(info_frac = 1:3/3) at test-developer-gs_bound_summary.R:144:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:166:3'): Arg `tdigits` controls number of digits for estimated timing ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(info_frac = 1:3/3) at test-developer-gs_bound_summary.R:166:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_bound_summary.R:176:3'): Arg `timename` controls time unit label ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_bound_summary.R:176:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_cp_npe.R:36:3'): Compare the gs_cp_npe with gsDesign::gsCP ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-developer-gs_cp_npe.R:36:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:2:3'): Call with defaults ──────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr() at test-developer-gs_design_ahr.R:2:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:15:3'): Single analysis ────────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(analysis_time = 40) at test-developer-gs_design_ahr.R:15:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:28:3'): Multiple analysisTimes ─────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(analysis_time = c(12, 24, 36)) at test-developer-gs_design_ahr.R:28:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:43:3'): Specified information fraction ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(info_frac = c(0.25, 0.75, 1), analysis_time = 36) at test-developer-gs_design_ahr.R:43:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:58:3'): Multiple analysis times & IF and driven by times ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_design_ahr.R:58:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:73:3'): Multiple analysis times & IF and driven by IF ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_design_ahr.R:73:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:88:3'): 2-sided symmetric design with O'Brien-Fleming spending ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_design_ahr.R:88:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_ahr.R:117:3'): Pocock lower spending under H1 (NPH) ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_design_ahr.R:117:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:16:3'): Validate info-frac driven design with a known study duration ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_design_wlr.R:16:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:31:3'): Validate calendar-time driven design ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_design_wlr.R:31:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:45:3'): Validate calendar-time and info-frac driven design -- A ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_design_wlr.R:45:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:69:3'): Validate calendar-time and info-frac driven design -- B ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_design_wlr.R:69:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:93:3'): Validate calendar-time and info-frac driven design -- C ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_design_wlr.R:93:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:114:3'): Validate if the output info-frac match the planned info-frac, when the design is only driven by info frac ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_design_wlr.R:114:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:168:3'): Validate if the output info-frac match the planned info-frac, when the design is driven by both info frac and analysis time ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-developer-gs_design_wlr.R:168:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_design_wlr.R:222:3'): Validate if WLR design under logrank test generates similar design as in AHR ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-gs_design_wlr.R:222:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_info_wlr.R:10:3'): statistcial information of WLR under logrank test is approximately same as that from AHR ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_info_ahr(...) at test-developer-gs_info_wlr.R:10:3 2. ├─dplyr::select(...) 3. └─gsDesign2::ahr(...) 4. └─gsDesign2::pw_info(...) 5. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 6. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_power_ahr.R:2:3'): default parameter ────────────── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(lpar = list(sf = gsDesign::sfLDOF, total_spend = 0.1)) at test-developer-gs_power_ahr.R:2:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─base::rbind(...) 4. └─gsDesign2::expected_time(...) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 8. └─value[[3L]](cond) ── Error ('test-developer-gs_power_ahr.R:15:3'): calendar based cut ──────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(...) at test-developer-gs_power_ahr.R:15:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_power_ahr.R:52:3'): event based cut ─────────────── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(...) at test-developer-gs_power_ahr.R:52:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─base::rbind(...) 4. └─gsDesign2::expected_time(...) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 8. └─value[[3L]](cond) ── Error ('test-developer-gs_power_ahr.R:89:3'): calendar + event based cut ──── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(...) at test-developer-gs_power_ahr.R:89:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_power_ahr.R:128:3'): Use default lower and lpar but set test_lower is FALSE ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(...) at test-developer-gs_power_ahr.R:128:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_power_ahr.R:143:3'): Validate the boundary is symmetric in symmetric designs. ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-developer-gs_power_ahr.R:143:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-gs_power_wlr.R:2:3'): Validate 2-sided symetric design ── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::gs_power_wlr(...) at test-developer-gs_power_wlr.R:2:3 2. └─gsDesign2::gs_info_wlr(...) 3. ├─base::rbind(...) 4. └─gsDesign2::expected_time(...) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 8. └─value[[3L]](cond) ── Error ('test-developer-pw_info.R:9:3'): Output column of n matches with expected_accrual with Inf in the fail_rate ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::pw_info(...) at test-developer-pw_info.R:9:3 2. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 3. └─data.table:::`[.data.table`(...) ── Error ('test-developer-pw_info.R:44:3'): Output column of n matches with expected_accrual without Inf in the fail_rate ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::pw_info(...) at test-developer-pw_info.R:44:3 2. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 3. └─data.table:::`[.data.table`(...) ── Error ('test-developer-pw_info.R:73:3'): Column order is consistent ───────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─base::colnames(pw_info()) at test-developer-pw_info.R:73:3 2. │ └─base::is.data.frame(x) 3. └─gsDesign2::pw_info() 4. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 5. └─data.table:::`[.data.table`(...) ── Failure ('test-developer-pw_info.R:108:3'): When there are many pieces of HRs ── Expected `pw_info(...)` not to throw any errors. Actually got a <simpleError> with message: attempt access index 6/6 in VECTOR_ELT ── Error ('test-developer-pw_info.R:117:3'): When control median changes but HR remain unchanged ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::pw_info(...) at test-developer-pw_info.R:117:3 2. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 3. └─data.table:::`[.data.table`(...) ── Error ('test-developer-summary.R:5:3'): summary.gs_design() accepts same-length vectors for analysis_vars and analysis_decimals ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(analysis_time = c(12, 24)) at test-developer-summary.R:5:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-summary.R:68:3'): summary.gs_design() accepts a named vector for analysis_decimals ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(analysis_time = c(12, 24)) at test-developer-summary.R:68:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-summary.R:126:3'): The column 'Bound' is always included in summary.gs_design() output ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr() at test-developer-summary.R:126:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-summary.R:155:3'): The full alpha is correctly carried over ── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(...) at test-developer-summary.R:155:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─base::rbind(...) 4. └─gsDesign2::expected_time(...) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 8. └─value[[3L]](cond) ── Error ('test-developer-summary.R:172:3'): summary.gs_design() accepts same-length vectors for col_vars and col_decimals ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr() at test-developer-summary.R:172:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-summary.R:243:3'): summary.gs_design() accepts a named vector for col_decimals ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr() at test-developer-summary.R:243:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:2:3'): The IA nominal p-value is the same as the IA alpha spending. ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-developer-to_integer.R:2:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:33:3'): The statistcial information under null equals to event/4 udner equal randomization. ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-developer-to_integer.R:33:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:57:3'): Validate the sample size rounding under equal randomization (1:1) for TTE endpoint. -- GSD ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(analysis_time = c(24, 36)) at test-developer-to_integer.R:57:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:87:3'): Validate the sample size rounding under unequal randomization (3:2) for TTE endpoint. -- GSD ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-developer-to_integer.R:87:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:187:3'): Validate the sample size rounding under equal randomization (1:1) for TTE endpoint -- fixed design. ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::fixed_design_ahr(...) at test-developer-to_integer.R:187:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:205:3'): Validate the sample size rounding under unequal randomization (3:2) for TTE endpoint. ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::fixed_design_ahr(...) at test-developer-to_integer.R:205:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:253:3'): Validate the boundary is symmetric in symmetric designs. ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-developer-to_integer.R:253:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:266:3'): verify the crossing prob of a MB design at IA1 under null ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-developer-to_integer.R:266:3 2. └─gsDesign2::gs_power_wlr(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-developer-to_integer.R:285:5'): The attribute `uninteger_is_from` matches the input design object ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(get(design_func)()) at test-developer-to_integer.R:285:5 2. └─get(design_func)() 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-independent-ahr.R:31:3'): AHR results are consistent with simulation results for single stratum and multiple cutoff ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::ahr(...) at test-independent-ahr.R:31:3 2. └─gsDesign2::pw_info(...) 3. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent-ahr.R:48:3'): AHR results are consistent with simulation results for single stratum and single cutoff ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::ahr(...) at test-independent-ahr.R:48:3 2. └─gsDesign2::pw_info(...) 3. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent-ahr.R:65:3'): AHR results are consistent with simulation results for single stratum and multiple cutoff ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::ahr(...) at test-independent-ahr.R:65:3 2. └─gsDesign2::pw_info(...) 3. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent-ahr.R:76:3'): The sample size returned from the ahr() function is correct ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::ahr(...) at test-independent-ahr.R:76:3 2. └─gsDesign2::pw_info(...) 3. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent-expected_time.R:2:3'): expected_time equal to test_event result ── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2:::test_expected_time() at test-independent-expected_time.R:2:3 2. └─gsDesign2::expected_time(...) at ./helper-double-programming-expected_time.R:19:3 3. └─base::tryCatch(...) 4. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 5. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 6. └─value[[3L]](cond) ── Error ('test-independent-expected_time.R:18:3'): expected_time euqal to AHR's result ── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2:::test_expected_time() at test-independent-expected_time.R:18:3 2. └─gsDesign2::expected_time(...) at ./helper-double-programming-expected_time.R:19:3 3. └─base::tryCatch(...) 4. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 5. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 6. └─value[[3L]](cond) ── Error ('test-independent-fixed_design.R:22:3'): AHR ───────────────────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::fixed_design_ahr(...) at test-independent-fixed_design.R:22:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-independent-fixed_design.R:44:3'): FH ────────────────────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-independent-fixed_design.R:44:3 2. └─gsDesign2::fixed_design_fh(...) 3. └─gsDesign2::gs_design_wlr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::gs_info_wlr(...) 6. └─gsDesign2::ahr(...) 7. └─gsDesign2::pw_info(...) 8. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 9. └─data.table:::`[.data.table`(...) ── Error ('test-independent-fixed_design.R:71:3'): MB ────────────────────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-independent-fixed_design.R:71:3 2. └─gsDesign2::fixed_design_mb(...) 3. └─gsDesign2::gs_design_wlr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::gs_info_wlr(...) 6. └─gsDesign2::ahr(...) 7. └─gsDesign2::pw_info(...) 8. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 9. └─data.table:::`[.data.table`(...) ── Error ('test-independent-fixed_design.R:96:3'): LF ────────────────────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-independent-fixed_design.R:96:3 2. └─gsDesign2::fixed_design_lf(...) 3. └─gsDesign2::ahr(...) 4. └─gsDesign2::pw_info(...) 5. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent-fixed_design.R:118:3'): MaxCombo ─────────────────── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::fixed_design_maxcombo(...) at test-independent-fixed_design.R:118:3 2. └─gsDesign2::gs_design_combo(...) 3. └─gsDesign2:::gs_utility_combo(...) 4. └─gsDesign2::gs_info_combo(...) 5. └─base::lapply(...) 6. └─gsDesign2 (local) FUN(X[[i]], ...) 7. └─gsDesign2::gs_info_wlr(...) 8. └─gsDesign2::ahr(...) 9. └─gsDesign2::pw_info(...) 10. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 11. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_design_ahr.R:17:3'): compare results with AHR in the situation of single analysis ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-independent-gs_design_ahr.R:17:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_design_ahr.R:63:3'): compare results with gsDesign2::AHR in the situation with IF and multiple analysis times specified ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-independent-gs_design_ahr.R:63:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_design_combo.R:1:1'): (code run outside of `test_that()`) ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2:::test_gs_design_combo() at test-independent-gs_design_combo.R:1:1 2. └─gsDesign2::gs_design_combo(...) at ./helper-double-programming-gs_design_combo.R:62:3 3. └─gsDesign2:::gs_utility_combo(...) 4. └─gsDesign2::gs_info_combo(...) 5. └─base::lapply(...) 6. └─gsDesign2 (local) FUN(X[[i]], ...) 7. └─gsDesign2::gs_info_wlr(...) 8. └─gsDesign2::ahr(...) 9. └─gsDesign2::pw_info(...) 10. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 11. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_info_ahr.R:9:3'): results match if only put in targeted analysis times ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─testthat::expect_equal(...) at test-independent-gs_info_ahr.R:9:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. ├─dplyr::select(...) 5. └─gsDesign2::gs_info_ahr(...) 6. ├─dplyr::select(...) 7. └─gsDesign2::ahr(...) 8. └─gsDesign2::pw_info(...) 9. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 10. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_info_ahr.R:29:3'): results match if only put in targeted events ── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::gs_info_ahr(...) at test-independent-gs_info_ahr.R:29:3 2. ├─base::rbind(...) 3. └─gsDesign2::expected_time(...) 4. └─base::tryCatch(...) 5. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 6. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 7. └─value[[3L]](cond) ── Error ('test-independent-gs_info_ahr.R:56:3'): results match if put in both analysis time and targeted events ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_info_ahr(...) at test-independent-gs_info_ahr.R:56:3 2. ├─dplyr::select(...) 3. └─gsDesign2::ahr(...) 4. └─gsDesign2::pw_info(...) 5. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_info_combo.R:15:3'): gs_info_combo correctly use gs_info_wlr 1 ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_info_combo(...) at test-independent-gs_info_combo.R:15:3 2. └─base::lapply(...) 3. └─gsDesign2 (local) FUN(X[[i]], ...) 4. └─gsDesign2::gs_info_wlr(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_power_ahr.R:41:3'): under same number of events, compare the power ── Error in `value[[3L]](cond)`: solution not found (attempt access index 6/6 in VECTOR_ELT) Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(...) at test-independent-gs_power_ahr.R:41:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─base::rbind(...) 4. └─gsDesign2::expected_time(...) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 8. └─value[[3L]](cond) ── Error ('test-independent-gs_power_ahr.R:71:3'): under same power setting, compare the number of events ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_power_ahr(...) at test-independent-gs_power_ahr.R:71:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_power_combo.R:31:3'): calculate analysis number as planned ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_power_combo(...) at test-independent-gs_power_combo.R:31:3 2. └─gsDesign2:::gs_utility_combo(...) 3. └─gsDesign2::gs_info_combo(...) 4. └─base::lapply(...) 5. └─gsDesign2 (local) FUN(X[[i]], ...) 6. └─gsDesign2::gs_info_wlr(...) 7. └─gsDesign2::ahr(...) 8. └─gsDesign2::pw_info(...) 9. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 10. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_power_combo.R:113:3'): arguments are passed via ... to mvtnorm::pmvnorm() ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_power_combo(seed = 1) at test-independent-gs_power_combo.R:113:3 2. └─gsDesign2:::gs_utility_combo(...) 3. └─gsDesign2::gs_info_combo(...) 4. └─base::lapply(...) 5. └─gsDesign2 (local) FUN(X[[i]], ...) 6. └─gsDesign2::gs_info_wlr(...) 7. └─gsDesign2::ahr(...) 8. └─gsDesign2::pw_info(...) 9. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 10. └─data.table:::`[.data.table`(...) ── Error ('test-independent-gs_update_ahr.R:33:1'): (code run outside of `test_that()`) ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-independent-gs_update_ahr.R:33:1 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-independent-to_integer.R:67:5'): to_integer works correctly for different fixed design types ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(create_fixed_design(design$fn, design$extra_args)) at test-independent-to_integer.R:67:5 2. └─gsDesign2 (local) create_fixed_design(design$fn, design$extra_args) 3. ├─base::do.call(design_fn, args) at test-independent-to_integer.R:18:3 4. └─gsDesign2 (local) `<fn>`(...) 5. └─gsDesign2::gs_design_ahr(...) 6. └─gsDesign2::gs_info_ahr(...) 7. ├─dplyr::select(...) 8. └─gsDesign2::ahr(...) 9. └─gsDesign2::pw_info(...) 10. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 11. └─data.table:::`[.data.table`(...) ── Failure ('test-independent-to_integer.R:79:3'): fixed_design_ahr handles invalid inputs ── `fixed_design_ahr(...)` threw an error with unexpected message. Expected match: "`alpha` and `beta` values must satisfy 0 < alpha < 1 - beta < 1!" Actual message: "attempt access index 6/6 in VECTOR_ELT" Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-independent-to_integer.R:79:3 2. │ └─testthat:::quasi_capture(...) 3. │ ├─testthat (local) .capture(...) 4. │ │ └─base::withCallingHandlers(...) 5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 6. └─gsDesign2::fixed_design_ahr(...) 7. └─gsDesign2::gs_design_ahr(...) 8. └─gsDesign2::gs_info_ahr(...) 9. ├─dplyr::select(...) 10. └─gsDesign2::ahr(...) 11. └─gsDesign2::pw_info(...) 12. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 13. └─data.table:::`[.data.table`(...) ── Failure ('test-independent-to_integer.R:89:3'): fixed_design_ahr handles invalid inputs ── `fixed_design_ahr(...)` threw an error with unexpected message. Expected match: "`alpha` and `beta` values must satisfy 0 < alpha < 1 - beta < 1!" Actual message: "attempt access index 6/6 in VECTOR_ELT" Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-independent-to_integer.R:89:3 2. │ └─testthat:::quasi_capture(...) 3. │ ├─testthat (local) .capture(...) 4. │ │ └─base::withCallingHandlers(...) 5. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 6. └─gsDesign2::fixed_design_ahr(...) 7. └─gsDesign2::gs_design_ahr(...) 8. └─gsDesign2::gs_info_ahr(...) 9. ├─dplyr::select(...) 10. └─gsDesign2::ahr(...) 11. └─gsDesign2::pw_info(...) 12. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 13. └─data.table:::`[.data.table`(...) ── Error ('test-independent-to_integer.R:112:3'): to_integer.gs_design rounds events and sample sizes correctly for AHR ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-independent-to_integer.R:112:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent-to_integer.R:134:3'): to_integer.gs_design handles WLR correctly ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-independent-to_integer.R:134:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent-to_integer.R:178:3'): to_integer.gs_design handles calendar-based spending correctly ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-independent-to_integer.R:178:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent-to_integer.R:199:3'): to_integer.gs_design performs correctly with large sample sizes ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-independent-to_integer.R:199:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent-utility_combo.R:147:3'): gs_info_combo correctly use gs_info_wlr 1 ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2:::gs_info_combo(...) at test-independent-utility_combo.R:147:3 2. └─base::lapply(...) 3. └─gsDesign2 (local) FUN(X[[i]], ...) 4. └─gsDesign2::gs_info_wlr(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-independent-utility_combo.R:457:3'): gs_utility_combo output correct info as gs_info_combo ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2:::gs_utility_combo(...) at test-independent-utility_combo.R:457:3 2. └─gsDesign2::gs_info_combo(...) 3. └─base::lapply(...) 4. └─gsDesign2 (local) FUN(X[[i]], ...) 5. └─gsDesign2::gs_info_wlr(...) 6. └─gsDesign2::ahr(...) 7. └─gsDesign2::pw_info(...) 8. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 9. └─data.table:::`[.data.table`(...) ── Error ('test-independent-utility_combo.R:541:3'): gs_utility_combo output correct info as gs_info_combo ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2:::gs_utility_combo(...) at test-independent-utility_combo.R:541:3 2. └─gsDesign2::gs_info_combo(...) 3. └─base::lapply(...) 4. └─gsDesign2 (local) FUN(X[[i]], ...) 5. └─gsDesign2::gs_info_wlr(...) 6. └─gsDesign2::ahr(...) 7. └─gsDesign2::pw_info(...) 8. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 9. └─data.table:::`[.data.table`(...) ── Error ('test-independent_gs_design_wlr.R:37:3'): Validate the function based on examples with simulation results ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_wlr(...) at test-independent_gs_design_wlr.R:37:3 2. ├─dplyr::select(...) 3. └─gsDesign2::gs_info_wlr(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-independent_gs_info_wlr.R:38:3'): Validate the function based on examples with individual functions ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_info_wlr(...) at test-independent_gs_info_wlr.R:38:3 2. └─gsDesign2::ahr(...) 3. └─gsDesign2::pw_info(...) 4. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 5. └─data.table:::`[.data.table`(...) ── Error ('test-independent_gs_power_wlr.R:37:3'): Check using gs_info_wlr and gs_power_npe ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_info_wlr(...) at test-independent_gs_power_wlr.R:37:3 2. └─gsDesign2::ahr(...) 3. └─gsDesign2::pw_info(...) 4. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 5. └─data.table:::`[.data.table`(...) [ FAIL 100 | WARN 0 | SKIP 28 | PASS 274 ] Deleting unused snapshots: 'independent_as_rtf/fixed_design_ahr.rtf', 'independent_as_rtf/fixed_design_ahr_footnote.rtf', 'independent_as_rtf/fixed_design_ahr_title.rtf', 'independent_as_rtf/gs_design_ahr.rtf', 'independent_as_rtf/gs_design_rd.rtf', 'independent_as_rtf/gs_design_wlr.rtf', 'independent_as_rtf/gs_power_wlr.rtf', 'independent_as_rtf/gs_power_wlr_cols_display.rtf', 'independent_as_rtf/gs_power_wlr_efficacy_bound.rtf', 'independent_as_rtf/gs_power_wlr_footnote.rtf', 'independent_as_rtf/gs_power_wlr_futility_bound.rtf', 'independent_as_rtf/gs_power_wlr_spanner.rtf', and 'independent_as_rtf/gs_power_wlr_title.rtf' Error: ! Test failures. Execution halted Flavor: r-devel-windows-x86_64

Version: 1.1.7
Check: re-building of vignette outputs
Result: ERROR Error(s) in re-building vignettes: --- re-building 'gsDesign2.Rmd' using rmarkdown Quitting from gsDesign2.Rmd:123-133 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 6/6 in VECTOR_ELT --- Backtrace: ▆ 1. └─gsDesign2::fixed_design_ahr(...) 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'gsDesign2.Rmd' failed with diagnostics: attempt access index 6/6 in VECTOR_ELT --- failed re-building 'gsDesign2.Rmd' SUMMARY: processing the following file failed: 'gsDesign2.Rmd' Error: Vignette re-building failed. Execution halted Flavor: r-devel-windows-x86_64

Package metalite

Current CRAN status: OK: 13

Package metalite.ae

Current CRAN status: OK: 13

Package simtrial

Current CRAN status: ERROR: 1, OK: 12

Version: 1.0.2
Check: examples
Result: ERROR Running examples in 'simtrial-Ex.R' failed The error most likely occurred in: > ### Name: as_gt > ### Title: Convert summary table to a gt object > ### Aliases: as_gt as_gt.simtrial_gs_wlr > > ### ** Examples > > > # Parameters for enrollment > enroll_rampup_duration <- 4 # Duration for enrollment ramp up > enroll_duration <- 16 # Total enrollment duration > enroll_rate <- gsDesign2::define_enroll_rate( + duration = c( + enroll_rampup_duration, enroll_duration - enroll_rampup_duration), + rate = c(10, 30)) > > # Parameters for treatment effect > delay_effect_duration <- 3 # Delay treatment effect in months > median_ctrl <- 9 # Survival median of the control arm > median_exp <- c(9, 14) # Survival median of the experimental arm > dropout_rate <- 0.001 > fail_rate <- gsDesign2::define_fail_rate( + duration = c(delay_effect_duration, 100), + fail_rate = log(2) / median_ctrl, + hr = median_ctrl / median_exp, + dropout_rate = dropout_rate) > > # Other related parameters > alpha <- 0.025 # Type I error > beta <- 0.1 # Type II error > ratio <- 1 # Randomization ratio (experimental:control) > > # Build a one-sided group sequential design > design <- gsDesign2::gs_design_ahr( + enroll_rate = enroll_rate, fail_rate = fail_rate, + ratio = ratio, alpha = alpha, beta = beta, + analysis_time = c(12, 24, 36), + upper = gsDesign2::gs_spending_bound, + upar = list(sf = gsDesign::sfLDOF, total_spend = alpha), + lower = gsDesign2::gs_b, + lpar = rep(-Inf, 3)) Error in `[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time)) : attempt access index 6/6 in VECTOR_ELT Calls: <Anonymous> ... gs_info_ahr -> select -> ahr -> pw_info -> [ -> [.data.table Execution halted Flavor: r-devel-windows-x86_64

Version: 1.0.2
Check: tests
Result: ERROR Running 'testthat.R' [223s] Running the tests in 'tests/testthat.R' failed. Complete output: > library(testthat) > library(simtrial) > > test_check("simtrial") Saving _problems/test-developer-get_analysis_date-18.R Saving _problems/test-developer-get_analysis_date-61.R Saving _problems/test-double_programming_mb_weight-21.R Saving _problems/test-double_programming_mb_weight-52.R Saving _problems/test-double_programming_mb_weight-83.R Saving _problems/test-double_programming_sim_fixed_n-44.R Saving _problems/test-double_programming_sim_pw_surv-5.R Saving _problems/test-double_programming_sim_pw_surv-19.R Saving _problems/test-double_programming_sim_pw_surv-28.R Saving _problems/test-double_programming_sim_pw_surv-36.R Saving _problems/test-double_programming_sim_pw_surv-49.R Saving _problems/test-double_programming_sim_pw_surv-64.R Saving _problems/test-independent_test_counting_process-12.R Saving _problems/test-independent_test_counting_process-32.R Saving _problems/test-independent_test_cut_data_by_date-2.R Saving _problems/test-independent_test_cut_data_by_date-16.R Saving _problems/test-independent_test_cut_data_by_date-27.R Saving _problems/test-independent_test_cut_data_by_date-37.R Saving _problems/test-independent_test_cut_data_by_event-2.R Saving _problems/test-independent_test_early_zero_weight-8.R Saving _problems/test-independent_test_early_zero_weight-41.R Saving _problems/test-independent_test_early_zero_weight-95.R Saving _problems/test-independent_test_early_zero_weight-148.R Saving _problems/test-independent_test_fh_weight-5.R Saving _problems/test-independent_test_fh_weight-36.R Saving _problems/test-independent_test_get_cut_date_by_event-5.R Saving _problems/test-independent_test_pvalue_maxcombo-7.R Saving _problems/test-independent_test_simfix2simpwsurv-2.R Saving _problems/test-independent_test_simfix2simpwsurv-21.R Saving _problems/test-independent_test_simfix2simpwsurv-35.R Saving _problems/test-independent_test_simfix2simpwsurv-45.R Saving _problems/test-independent_test_simfix2simpwsurv-54.R Saving _problems/test-independent_test_simfix2simpwsurv-64.R Saving _problems/test-independent_test_simfix2simpwsurv-75.R Saving _problems/test-independent_test_simfix2simpwsurv-83.R Saving _problems/test-independent_test_simfix2simpwsurv-91.R Saving _problems/test-independent_test_simfix2simpwsurv-98.R Saving _problems/test-independent_test_wlr-7.R Saving _problems/test-independent_test_wlr-55.R Saving _problems/test-independent_test_wlr-90.R Saving _problems/test-independent_test_wlr-144.R Saving _problems/test-independent_test_wlr-186.R Saving _problems/test-independent_test_wlr-233.R Saving _problems/test-unvalidated-data.table-11.R Saving _problems/test-unvalidated-data.table-70.R Saving _problems/test-unvalidated-early_zero_weight-8.R Saving _problems/test-unvalidated-early_zero_weight-43.R Saving _problems/test-unvalidated-early_zero_weight-92.R Saving _problems/test-unvalidated-get_analysis_date-4.R Saving _problems/test-unvalidated-get_analysis_date-12.R Saving _problems/test-unvalidated-get_analysis_date-20.R Saving _problems/test-unvalidated-get_analysis_date-32.R Saving _problems/test-unvalidated-get_analysis_date-43.R Saving _problems/test-unvalidated-get_analysis_date-55.R Saving _problems/test-unvalidated-get_analysis_date-67.R Saving _problems/test-unvalidated-get_analysis_date-81.R Saving _problems/test-unvalidated-get_analysis_date-93.R Saving _problems/test-unvalidated-get_analysis_date-105.R Saving _problems/test-unvalidated-get_analysis_date-120.R Saving _problems/test-unvalidated-maxcombo-8.R Saving _problems/test-unvalidated-maxcombo-14.R Saving _problems/test-unvalidated-multitest-2.R Backend uses sequential processing. Saving _problems/test-unvalidated-sim_gs_n-84.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-125.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-166.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-206.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-246.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-285.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-324.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-365.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-413.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-455.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-513.R Using 2 cores with backend multisession Saving _problems/test-unvalidated-sim_gs_n-529.R Saving _problems/test-unvalidated-sim_gs_n-625.R Saving _problems/test-unvalidated-sim_gs_n-668.R Saving _problems/test-unvalidated-sim_gs_n-734.R Saving _problems/test-unvalidated-summary-36.R Saving _problems/test-unvalidated-summary-126.R Saving _problems/test-unvalidated-wlr-3.R Saving _problems/test-unvalidated-wlr-35.R Saving _problems/test-unvalidated-wlr-49.R Saving _problems/test-unvalidated-wlr-55.R Saving _problems/test-unvalidated-wlr-63.R Saving _problems/test-unvalidated-wlr-91.R Saving _problems/test-unvalidated-wlr-123.R Saving _problems/test-unvalidated-wlr-136.R Saving _problems/test-unvalidated-wlr-150.R [ FAIL 89 | WARN 12 | SKIP 0 | PASS 77 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-developer-get_analysis_date.R:2:3'): Cut by targeted event per stratum ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(...) at test-developer-get_analysis_date.R:2:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-developer-get_analysis_date.R:45:3'): Cut by targeted sample size per stratum ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(...) at test-developer-get_analysis_date.R:45:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_mb_weight.R:19:3'): mb_weight works for single stratum ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::counting_process(...) at test-double_programming_mb_weight.R:19:3 2. │ └─base::unique(x$treatment) 3. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 125) 4. │ └─simtrial::get_cut_date_by_event(x, event) 5. │ └─data.table::as.data.table(x) 6. └─simtrial::sim_pw_surv(n = 200) 7. ├─...[] 8. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_mb_weight.R:32:3'): mb_weight works for multiple strata ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::counting_process(...) at test-double_programming_mb_weight.R:32:3 2. │ └─base::unique(x$treatment) 3. ├─simtrial::cut_data_by_event(...) 4. │ └─simtrial::get_cut_date_by_event(x, event) 5. │ └─data.table::as.data.table(x) 6. └─simtrial::sim_pw_surv(...) 7. ├─...[] 8. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_mb_weight.R:63:3'): mb_weight works for a stratum with no records before delay ends ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::counting_process(...) at test-double_programming_mb_weight.R:63:3 2. │ └─base::unique(x$treatment) 3. ├─simtrial::cut_data_by_event(...) 4. │ └─simtrial::get_cut_date_by_event(x, event) 5. │ └─data.table::as.data.table(x) 6. └─simtrial::sim_pw_surv(...) 7. ├─...[] 8. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_fixed_n.R:24:3'): Double programming of sim_fixed_n ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_fixed_n(...) at test-double_programming_sim_fixed_n.R:24:3 2. └─simtrial::to_sim_pw_surv(fail_rate) 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_pw_surv.R:5:3'): stratum percentage calculated from simulated dataset must be within the tolerance=0.002 of stratum in setup (0.4,0.6) ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_sim_pw_surv() at test-double_programming_sim_pw_surv.R:5:3 2. └─simtrial::sim_pw_surv(...) at ./helper-sim_pw_surv.R:27:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_pw_surv.R:19:3'): block calculated from simulated dataset equals size of 4 with 1:1 randomization, which is 2 for each arm ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_sim_pw_surv() at test-double_programming_sim_pw_surv.R:19:3 2. └─simtrial::sim_pw_surv(...) at ./helper-sim_pw_surv.R:27:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_pw_surv.R:28:3'): fail_rate calculated from simulated dataset must be within the tolerance=0.1 of fail_rate in setting ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_sim_pw_surv() at test-double_programming_sim_pw_surv.R:28:3 2. └─simtrial::sim_pw_surv(...) at ./helper-sim_pw_surv.R:27:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_pw_surv.R:36:3'): dropout_rate calculated from simulated dataset must be within the tolerance=0.0005 of dropout_rate=0.001 in setup ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_sim_pw_surv() at test-double_programming_sim_pw_surv.R:36:3 2. └─simtrial::sim_pw_surv(...) at ./helper-sim_pw_surv.R:27:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_pw_surv.R:49:3'): enroll_rate calculated from simulated dataset must be within the relative tolerance=0.05 of enroll_rate in setup ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_sim_pw_surv() at test-double_programming_sim_pw_surv.R:49:3 2. └─simtrial::sim_pw_surv(...) at ./helper-sim_pw_surv.R:27:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_pw_surv.R:64:3'): The actual number of events changes by changing total sample size ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_sim_pw_surv() at test-double_programming_sim_pw_surv.R:64:3 2. └─simtrial::sim_pw_surv(...) at ./helper-sim_pw_surv.R:27:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-double_programming_sim_pw_surv.R:90:3'): sim_pw_surv() fails early with mismatched treatment names ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─testthat::expect_silent(...) at test-double_programming_sim_pw_surv.R:90:3 2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise) 3. │ ├─testthat (local) .capture(...) 4. │ │ ├─withr::with_output_sink(...) 5. │ │ │ └─base::force(code) 6. │ │ ├─base::withCallingHandlers(...) 7. │ │ └─base::withVisible(code) 8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) 9. └─simtrial::sim_pw_surv(block = block, fail_rate = fail_rate, dropout_rate = dropout_rate) 10. ├─...[] 11. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_counting_process.R:12:3'): Counting Process Format without ties ── Error in ``[.data.table`(ans, , `:=`(n_risk_total = cumsum(one), n_risk_trt = cumsum(treatment == arm)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::counting_process(x, arm) at test-independent_test_counting_process.R:12:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_counting_process.R:32:3'): Counting Process Format with ties ── Error in ``[.data.table`(ans, , `:=`(n_risk_total = cumsum(one), n_risk_trt = cumsum(treatment == arm)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::counting_process(x, arm) at test-independent_test_counting_process.R:32:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_cut_data_by_date.R:2:3'): x is a time-to-event data set ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 200) at test-independent_test_cut_data_by_date.R:2:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_cut_data_by_date.R:16:3'): only patients recorded by cut_data_by_date are included ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 200) at test-independent_test_cut_data_by_date.R:16:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_cut_data_by_date.R:27:3'): Time-to-event (TTE) is cut off at the cut_date ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 200) at test-independent_test_cut_data_by_date.R:27:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_cut_data_by_date.R:37:3'): the event variable is calculated correctly ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 200) at test-independent_test_cut_data_by_date.R:37:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_cut_data_by_event.R:2:3'): the input is a time-to-event data set ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 200) at test-independent_test_cut_data_by_event.R:2:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_early_zero_weight.R:5:3'): early_zero_weight() with unstratified data ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial:::early_zero_weight(...) at test-independent_test_early_zero_weight.R:5:3 2. │ └─data.table::as.data.table(x) 3. ├─simtrial::counting_process(...) 4. │ └─base::unique(x$treatment) 5. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 125) 6. │ └─simtrial::get_cut_date_by_event(x, event) 7. │ └─data.table::as.data.table(x) 8. └─simtrial::sim_pw_surv(n = 200) 9. ├─...[] 10. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_early_zero_weight.R:41:3'): early_zero_weight() with stratified data when fail_rate is not provided ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-independent_test_early_zero_weight.R:41:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_early_zero_weight.R:95:3'): early_zero_weight() with stratified data when fail_rate is not correctly provided ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-independent_test_early_zero_weight.R:95:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_early_zero_weight.R:148:3'): early_zero_weight() with stratified data when fail_rate is correctly provided ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-independent_test_early_zero_weight.R:148:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_fh_weight.R:5:3'): the z values match with the correspondings in fh_weight ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 30) at test-independent_test_fh_weight.R:5:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_fh_weight.R:36:3'): fh_weight calculated correct correlation value when input a sequence of rho and gamma ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 30) at test-independent_test_fh_weight.R:36:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_get_cut_date_by_event.R:5:3'): get_cut_date_by_event returns the correct cut date ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 200) at test-independent_test_get_cut_date_by_event.R:5:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_pvalue_maxcombo.R:7:3'): the p-values correspond to pvalue_maxcombo ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 30) at test-independent_test_pvalue_maxcombo.R:7:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:2:3'): stratum values must be the same and stratum length must be doubled after converting ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:2:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:21:3'): treatment after converting contains only control and experimental with the right length ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:21:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:35:3'): Duration values match before and after converting and in right length ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:35:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:45:3'): fail_rate match before and after converting and are in right length ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:45:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:54:3'): dropout_rate match before and after converting and are in right length ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:54:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:64:3'): fail_rate column names must contain stratum, duration, fail_rate, hr and dropout_rate ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:64:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:75:3'): duration must be longer than 0 ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:75:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:83:3'): fail_rate must be smaller than 1 and positive ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:83:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:91:3'): hr must be postiive ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:91:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_simfix2simpwsurv.R:98:3'): dropout_rate must be smaller than 1 and positive ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_simfix2simpwsurv() at test-independent_test_simfix2simpwsurv.R:98:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-simfix2simpwsurv.R:18:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_wlr.R:7:3'): wlr() with FH weight on unstratified data ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 125) at test-independent_test_wlr.R:7:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 200) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_wlr.R:55:3'): wlr() with FH weight on stratified data ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-independent_test_wlr.R:55:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_wlr.R:90:3'): wlr() with MB weight on unstratified data ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 125) at test-independent_test_wlr.R:90:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 200) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_wlr.R:144:3'): wlr() with MB weight on stratified data ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-independent_test_wlr.R:144:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_wlr.R:186:3'): wlr() with early_zero_weight on unstratified data ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 125) at test-independent_test_wlr.R:186:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 200) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-independent_test_wlr.R:233:3'): wlr() with early_zero_weight on stratified data ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-independent_test_wlr.R:233:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-data.table.R:11:3'): functions that use data.table still return a data frame ── Error in ``[.data.table`(ans, , `:=`(n_risk_total = cumsum(one), n_risk_trt = cumsum(treatment == arm)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─testthat::expect_identical(...) at test-unvalidated-data.table.R:11:3 2. │ └─testthat::quasi_label(enquo(object), label) 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─simtrial::counting_process(x, arm = 1) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-data.table.R:70:3'): functions that use data.table do not modify input data table ── Error in ``[.data.table`(ans, , `:=`(n_risk_total = cumsum(one), n_risk_trt = cumsum(treatment == arm)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::counting_process(x, arm = 1) at test-unvalidated-data.table.R:70:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-early_zero_weight.R:5:3'): early_zero_weight() with unstratified data ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial:::early_zero_weight(...) at test-unvalidated-early_zero_weight.R:5:3 2. │ └─data.table::as.data.table(x) 3. ├─simtrial::counting_process(...) 4. │ └─base::unique(x$treatment) 5. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 125) 6. │ └─simtrial::get_cut_date_by_event(x, event) 7. │ └─data.table::as.data.table(x) 8. └─simtrial::sim_pw_surv(n = 200) 9. ├─...[] 10. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-early_zero_weight.R:43:3'): early_zero_weight() with stratified data ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-unvalidated-early_zero_weight.R:43:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-early_zero_weight.R:92:3'): early_zero_weight() fails with bad input ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) at test-unvalidated-early_zero_weight.R:92:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:4:3'): planned_calendar_time ─── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:4:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:12:3'): target_event_overall ─── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:12:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:20:3'): planned_calendar_time + target_event_overall ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:20:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:32:3'): target_event_per_stratum ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:32:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:43:3'): target_event_overall + target_event_per_stratum ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:43:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:55:3'): target_event_per_stratum + max_extension_for_target_event ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:55:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:67:3'): min_n_overall + min_followup ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:67:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:81:3'): min_n_per_stratum + min_followup ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:81:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:93:3'): min_n_per_stratum + min_followup (requirement for only one stratum) ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:93:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:105:3'): min_n_overall + min_n_per_stratum + min_followup ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:105:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-get_analysis_date.R:120:3'): get_analysis_date() fails early with bad input ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial:::test_get_analysis_date() at test-unvalidated-get_analysis_date.R:120:3 2. └─simtrial::to_sim_pw_surv(fail_rate) at ./helper-get_analysis_date.R:34:3 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-maxcombo.R:6:3'): maxcombo returns consistent results ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::maxcombo(...) at test-unvalidated-maxcombo.R:6:3 2. │ └─simtrial::counting_process(data, arm = "experimental") 3. │ └─base::unique(x$treatment) 4. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 150) 5. │ └─simtrial::get_cut_date_by_event(x, event) 6. │ └─data.table::as.data.table(x) 7. └─simtrial::sim_pw_surv(n = 200) 8. ├─...[] 9. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-maxcombo.R:14:3'): maxcombo fails early with bad input ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 200), 150) at test-unvalidated-maxcombo.R:14:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 200) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-multitest.R:2:3'): multitest() is equivalent to running tests individually ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 200) at test-unvalidated-multitest.R:2:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-sim_gs_n.R:75:3'): regular logrank test ──────────── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─dplyr::select(...) at test-unvalidated-sim_gs_n.R:75:3 2. └─simtrial::sim_gs_n(...) 3. └─... %dofuture% ... 4. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(...) 8. └─value[[3L]](cond) 9. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:116:3'): regular logrank test parallel ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─dplyr::select(...) at test-unvalidated-sim_gs_n.R:116:3 2. └─simtrial::sim_gs_n(...) 3. └─... %dofuture% ... 4. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(...) 8. └─value[[3L]](cond) 9. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:157:3'): weighted logrank test by FH(0, 0.5) ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─dplyr::select(...) at test-unvalidated-sim_gs_n.R:157:3 2. └─simtrial::sim_gs_n(...) 3. └─... %dofuture% ... 4. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(...) 8. └─value[[3L]](cond) 9. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:197:3'): weighted logrank test by MB(3) ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─dplyr::select(...) at test-unvalidated-sim_gs_n.R:197:3 2. └─simtrial::sim_gs_n(...) 3. └─... %dofuture% ... 4. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(...) 8. └─value[[3L]](cond) 9. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:237:3'): weighted logrank test by early zero (6) ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─dplyr::select(...) at test-unvalidated-sim_gs_n.R:237:3 2. └─simtrial::sim_gs_n(...) 3. └─... %dofuture% ... 4. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 5. └─base::tryCatch(...) 6. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 7. └─base (local) tryCatchOne(...) 8. └─value[[3L]](cond) 9. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:277:3'): RMST ─────────────────────────── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:277:3 2. └─... %dofuture% ... 3. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 4. └─base::tryCatch(...) 5. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 6. └─base (local) tryCatchOne(...) 7. └─value[[3L]](cond) 8. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:315:3'): Milestone ────────────────────── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:315:3 2. └─... %dofuture% ... 3. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 4. └─base::tryCatch(...) 5. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 6. └─base (local) tryCatchOne(...) 7. └─value[[3L]](cond) 8. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:358:3'): WLR with fh(0, 0.5) test at IA1, WLR with mb(6, Inf) at IA2, and milestone test at FA ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:358:3 2. └─... %dofuture% ... 3. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 4. └─base::tryCatch(...) 5. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 6. └─base (local) tryCatchOne(...) 7. └─value[[3L]](cond) 8. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:404:3'): MaxCombo (WLR-FH(0,0) + WLR-FH(0, 0.5)) ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:404:3 2. └─... %dofuture% ... 3. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 4. └─base::tryCatch(...) 5. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 6. └─base (local) tryCatchOne(...) 7. └─value[[3L]](cond) 8. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:448:3'): sim_gs_n() accepts different tests per cutting ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:448:3 2. └─... %dofuture% ... 3. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 4. └─base::tryCatch(...) 5. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 6. └─base (local) tryCatchOne(...) 7. └─value[[3L]](cond) 8. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:503:3'): sim_gs_n() requires a test for each cutting ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─testthat::expect_error(...) at test-unvalidated-sim_gs_n.R:503: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. └─simtrial::sim_gs_n(...) 8. └─... %dofuture% ... 9. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 10. └─base::tryCatch(...) 11. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 12. └─base (local) tryCatchOne(...) 13. └─value[[3L]](cond) 14. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:522:3'): sim_gs_n() can combine wlr(), rmst(), and milestone() tests ── Error in ``[.data.table`(fr_control, , `:=`(treatment = "control", rate = fail_rate, period = seq_len(.N)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:522:3 2. └─... %dofuture% ... 3. └─doFuture:::doFuture2(foreach, expr, envir = parent.frame(), data = NULL) 4. └─base::tryCatch(...) 5. └─base (local) tryCatchList(expr, classes, parentenv, handlers) 6. └─base (local) tryCatchOne(...) 7. └─value[[3L]](cond) 8. └─doFuture:::onError(e, futures = fs, debug = debug) ── Error ('test-unvalidated-sim_gs_n.R:620:3'): create_cut() can accept variables as arguments ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-unvalidated-sim_gs_n.R:620:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-sim_gs_n.R:667:3'): Updating bounds changes the simulation results ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-unvalidated-sim_gs_n.R:667:3 2. └─gsDesign2::gs_design_ahr(analysis_time = 1:3 * 12) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-sim_gs_n.R:724:3'): sim_gs_n() can update bounds even when some are missing ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) at test-unvalidated-sim_gs_n.R:724:3 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-summary.R:29:3'): summary.simtrial_gs_wlr() returns consistent results for one-sided design ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-unvalidated-summary.R:29:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-summary.R:119:3'): summary.simtrial_gs_wlr() returns consistent results for two-sided design ── Error in ``[.data.table`(tbl_event, , `:=`(info0, event * q_c * q_e), by = .(time))`: attempt access index 6/6 in VECTOR_ELT Backtrace: ▆ 1. └─gsDesign2::gs_design_ahr(...) at test-unvalidated-summary.R:119:3 2. └─gsDesign2::gs_info_ahr(...) 3. ├─dplyr::select(...) 4. └─gsDesign2::ahr(...) 5. └─gsDesign2::pw_info(...) 6. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 7. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:3:3'): wlr() accepts tte_data and counting_process objects as input ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 100) at test-unvalidated-wlr.R:3:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:35:3'): wlr() accepts unclassed input object with proper columns ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 100) at test-unvalidated-wlr.R:35:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:49:3'): wlr() uses argument ratio ──────────── Error in ``[.data.table`(ans, , `:=`(n_risk_total = cumsum(one), n_risk_trt = cumsum(treatment == arm)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::wlr(x, weight = fh(rho = 0, gamma = 0.5), ratio = 2) at test-unvalidated-wlr.R:49:3 2. └─simtrial:::wlr.default(...) 3. └─simtrial:::wlr.tte_data(...) 4. └─simtrial::counting_process(data, arm = "experimental") 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:55:3'): cut_data_by_date() and cut_data_by_event() return the same classes ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. └─simtrial::sim_pw_surv(n = 300) at test-unvalidated-wlr.R:55:3 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:63:3'): wlr() formula argument can rename columns ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 100) at test-unvalidated-wlr.R:63:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:87:3'): wlr() accepts formula for unstratified design ── Error in ``[.data.table`(ans, , `:=`(n_risk_total = cumsum(one), n_risk_trt = cumsum(treatment == arm)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::wlr(...) at test-unvalidated-wlr.R:87:3 2. └─simtrial:::wlr.default(...) 3. └─simtrial:::wlr.tte_data(...) 4. └─simtrial::counting_process(data, arm = "experimental") 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:119:3'): wlr() accepts formula for stratified design ── Error in ``[.data.table`(ans, , `:=`(n_risk_total = cumsum(one), n_risk_trt = cumsum(treatment == arm)), by = "stratum")`: attempt access index 5/5 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::wlr(...) at test-unvalidated-wlr.R:119:3 2. └─simtrial:::wlr.default(...) 3. └─simtrial:::wlr.tte_data(...) 4. └─simtrial::counting_process(data, arm = "experimental") 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:136:3'): wlr() warns when formula argument is ignored ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 100) at test-unvalidated-wlr.R:136:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) ── Error ('test-unvalidated-wlr.R:150:3'): wlr.default() and wlr.tte_data() require arm='experimental' ── Error in ``[.data.table`(x, , `:=`(treatment, randomize_by_fixed_block(n = .N, block = block)), by = "stratum")`: attempt access index 2/2 in VECTOR_ELT Backtrace: ▆ 1. ├─simtrial::cut_data_by_event(sim_pw_surv(n = 300), 100) at test-unvalidated-wlr.R:150:3 2. │ └─simtrial::get_cut_date_by_event(x, event) 3. │ └─data.table::as.data.table(x) 4. └─simtrial::sim_pw_surv(n = 300) 5. ├─...[] 6. └─data.table:::`[.data.table`(...) [ FAIL 89 | WARN 12 | SKIP 0 | PASS 77 ] Error: ! Test failures. Execution halted Flavor: r-devel-windows-x86_64

Version: 1.0.2
Check: re-building of vignette outputs
Result: ERROR Error(s) in re-building vignettes: --- re-building 'arbitrary-hazard.Rmd' using rmarkdown Quitting from arbitrary-hazard.Rmd:68-91 [unnamed-chunk-5] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 2/2 in VECTOR_ELT --- Backtrace: ▆ 1. └─simtrial::sim_pw_surv(...) 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'arbitrary-hazard.Rmd' failed with diagnostics: attempt access index 2/2 in VECTOR_ELT --- failed re-building 'arbitrary-hazard.Rmd' --- re-building 'discrepancy-between-simtrial-and-survival.Rmd' using rmarkdown Quitting from discrepancy-between-simtrial-and-survival.Rmd:92-120 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 6/6 in VECTOR_ELT --- Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) 2. └─gsDesign2::fixed_design_mb(...) 3. └─gsDesign2::gs_design_wlr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::gs_info_wlr(...) 6. └─gsDesign2::ahr(...) 7. └─gsDesign2::pw_info(...) 8. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 9. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'discrepancy-between-simtrial-and-survival.Rmd' failed with diagnostics: attempt access index 6/6 in VECTOR_ELT --- failed re-building 'discrepancy-between-simtrial-and-survival.Rmd' --- re-building 'maxcombo.Rmd' using rmarkdown Quitting from maxcombo.Rmd:57-69 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 5/5 in VECTOR_ELT --- Backtrace: ▆ 1. └─simtrial::sim_fixed_n(...) 2. └─simtrial::to_sim_pw_surv(fail_rate) 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'maxcombo.Rmd' failed with diagnostics: attempt access index 5/5 in VECTOR_ELT --- failed re-building 'maxcombo.Rmd' --- re-building 'modest-wlrt.Rmd' using rmarkdown Quitting from modest-wlrt.Rmd:64-79 [unnamed-chunk-4] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 5/5 in VECTOR_ELT --- Backtrace: ▆ 1. └─simtrial::to_sim_pw_surv(fail_rate) 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'modest-wlrt.Rmd' failed with diagnostics: attempt access index 5/5 in VECTOR_ELT --- failed re-building 'modest-wlrt.Rmd' --- re-building 'parallel.Rmd' using rmarkdown Quitting from parallel.Rmd:97-122 [confirm-sequential] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 5/5 in VECTOR_ELT --- Backtrace: ▆ 1. └─simtrial::sim_fixed_n(...) 2. └─simtrial::to_sim_pw_surv(fail_rate) 3. ├─...[] 4. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'parallel.Rmd' failed with diagnostics: attempt access index 5/5 in VECTOR_ELT --- failed re-building 'parallel.Rmd' --- re-building 'rmst.Rmd' using rmarkdown --- finished re-building 'rmst.Rmd' --- re-building 'routines.Rmd' using rmarkdown Quitting from routines.Rmd:135-148 [unnamed-chunk-8] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 2/2 in VECTOR_ELT --- Backtrace: ▆ 1. └─simtrial::sim_pw_surv(...) 2. ├─...[] 3. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'routines.Rmd' failed with diagnostics: attempt access index 2/2 in VECTOR_ELT --- failed re-building 'routines.Rmd' --- re-building 'sim_fixed_design_custom.Rmd' using rmarkdown Quitting from sim_fixed_design_custom.Rmd:48-63 [unnamed-chunk-2] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 5/5 in VECTOR_ELT --- Backtrace: ▆ 1. ├─simtrial::sim_pw_surv(...) 2. │ └─base::unique(c(block, fail_rate$treatment, dropout_rate$treatment)) 3. └─simtrial::to_sim_pw_surv(fail_rate) 4. ├─...[] 5. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'sim_fixed_design_custom.Rmd' failed with diagnostics: attempt access index 5/5 in VECTOR_ELT --- failed re-building 'sim_fixed_design_custom.Rmd' --- re-building 'sim_fixed_design_simple.Rmd' using rmarkdown Quitting from sim_fixed_design_simple.Rmd:58-66 [unnamed-chunk-3] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 6/6 in VECTOR_ELT --- Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) 2. └─gsDesign2::fixed_design_ahr(...) 3. └─gsDesign2::gs_design_ahr(...) 4. └─gsDesign2::gs_info_ahr(...) 5. ├─dplyr::select(...) 6. └─gsDesign2::ahr(...) 7. └─gsDesign2::pw_info(...) 8. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 9. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'sim_fixed_design_simple.Rmd' failed with diagnostics: attempt access index 6/6 in VECTOR_ELT --- failed re-building 'sim_fixed_design_simple.Rmd' --- re-building 'sim_gs_design_simple.Rmd' using rmarkdown Quitting from sim_gs_design_simple.Rmd:40-62 [unnamed-chunk-2] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ <error/rlang_error> Error in `[.data.table`: ! attempt access index 6/6 in VECTOR_ELT --- Backtrace: ▆ 1. ├─gsDesign2::to_integer(...) 2. └─gsDesign2::gs_design_ahr(...) 3. └─gsDesign2::gs_info_ahr(...) 4. ├─dplyr::select(...) 5. └─gsDesign2::ahr(...) 6. └─gsDesign2::pw_info(...) 7. ├─tbl_event[, `:=`(info0, event * q_c * q_e), by = .(time)] 8. └─data.table:::`[.data.table`(...) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Error: processing vignette 'sim_gs_design_simple.Rmd' failed with diagnostics: attempt access index 6/6 in VECTOR_ELT --- failed re-building 'sim_gs_design_simple.Rmd' --- re-building 'workflow.Rmd' using rmarkdown --- finished re-building 'workflow.Rmd' SUMMARY: processing the following files failed: 'arbitrary-hazard.Rmd' 'discrepancy-between-simtrial-and-survival.Rmd' 'maxcombo.Rmd' 'modest-wlrt.Rmd' 'parallel.Rmd' 'routines.Rmd' 'sim_fixed_design_custom.Rmd' 'sim_fixed_design_simple.Rmd' 'sim_gs_design_simple.Rmd' Error: Vignette re-building failed. Execution halted Flavor: r-devel-windows-x86_64