Running ‘testthat.R’ [28s/35s]
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