Last updated on 2025-12-21 11:50:48 CET.
| Package | ERROR | OK |
|---|---|---|
| gsDesign2 | 4 | 9 |
| metalite | 13 | |
| metalite.ae | 13 | |
| simtrial | 4 | 9 |
Current CRAN status: ERROR: 4, OK: 9
Version: 1.1.7
Check: examples
Result: ERROR
Running examples in ‘gsDesign2-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### 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
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.1.7
Check: tests
Result: ERROR
Running ‘testthat.R’ [43s/51s]
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-linux-x86_64-debian-clang
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
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.1.7
Check: tests
Result: ERROR
Running ‘testthat.R’ [27s/31s]
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-linux-x86_64-debian-gcc
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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 1.1.7
Check: tests
Result: ERROR
Running ‘testthat.R’ [72s/133s]
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-linux-x86_64-fedora-clang
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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 1.1.7
Check: tests
Result: ERROR
Running ‘testthat.R’ [66s/95s]
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-linux-x86_64-fedora-gcc
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 4, OK: 9
Version: 1.0.2
Check: examples
Result: ERROR
Running examples in ‘simtrial-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### 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
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.0.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [143s/256s]
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-linux-x86_64-debian-clang
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
[WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead.
--- 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
[WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead.
--- 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
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.0.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [79s/142s]
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-linux-x86_64-debian-gcc
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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 1.0.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [4m/10m]
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-linux-x86_64-fedora-clang
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
[WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead.
--- 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
[WARNING] Deprecated: --highlight-style. Use --syntax-highlighting instead.
--- 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
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 1.0.2
Check: tests
Result: ERROR
Running ‘testthat.R’ [221s/391s]
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-linux-x86_64-fedora-gcc