Running ‘testthat.R’ [140s/244s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(simtrial)
  > 
  > test_check("simtrial")
  Backend uses sequential processing.
  Loading required package: foreach
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Using 2 cores with backend multisession
  Loading required package: foreach
  Loading required package: foreach
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Using 2 cores with backend multisession
  Loading required package: foreach
  Loading required package: foreach
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  Backend uses sequential processing.
  [ FAIL 2 | WARN 3 | SKIP 0 | PASS 256 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-unvalidated-sim_gs_n.R:686:3'): Updating bounds changes the simulation results ──
  Error in `gsDesign2::gs_update_ahr(x = original_design, alpha = original_design$input$alpha, 
      ustime = ustime, lstime = if (all(original_design$bound$bound == 
          "upper")) {
          NULL
      } else {
          lstime
      }, event_tbl = event_tbl)`: unused argument (event_tbl = event_tbl)
  Backtrace:
      ▆
   1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:686: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:731:3'): sim_gs_n() can update bounds even when some are missing ──
  Error in `gsDesign2::gs_update_ahr(x = original_design, alpha = original_design$input$alpha, 
      ustime = ustime, lstime = if (all(original_design$bound$bound == 
          "upper")) {
          NULL
      } else {
          lstime
      }, event_tbl = event_tbl)`: unused argument (event_tbl = event_tbl)
  Backtrace:
      ▆
   1. └─simtrial::sim_gs_n(...) at test-unvalidated-sim_gs_n.R:731: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)
  
  [ FAIL 2 | WARN 3 | SKIP 0 | PASS 256 ]
  Error: Test failures
  Execution halted