Info-frac driven design does not work for gs_design_wlr()

[LittleBeannie]

The following codes does not work.

library(gsDesign)
library(gsDesign2)


enroll_rate <- define_enroll_rate(duration = 12, rate = 450 / 12)

fail_rate <- define_fail_rate(
                              duration = c(6, Inf),
                              fail_rate = log(2) / 9,
                              hr = c(1, 0.5625),
                              dropout_rate = 0
                             )
# Efficacy boundaries only for the Modestly Weighted Logrank Test
dm <- gs_design_wlr(
  enroll_rate = enroll_rate,
  fail_rate = fail_rate,
  ratio = 1,
  beta = 0.1,
  weight = function(x, arm0, arm1) {
                                    wlr_weight_mb(x, arm0, arm1, tau = 12, wmax = Inf )
                                   },
  info_scale = "h0_h1_info",
  upper = gs_spending_bound,
  upar = list(sf = gsDesign::sfLDOF, total_spend = 0.025),
  lower = gs_b,
  lpar = rep(-Inf, 3),
  #analysis_time = c(18, 25, 36)  #works! 
  info_frac = c(0.48, 0.75, 1)        #does not work! 
)

dm

[LittleBeannie]

Based on the current main branch of gsDesign2.

enroll_rate <- define_enroll_rate(duration = 12, rate = 1)
fail_rate <- define_fail_rate(duration = c(3, 100), fail_rate = log(2)/10, 
                              hr = c(1, 0.6), dropout_rate = 0.001)
ratio <- 1
event <- 1

gs_info_ahr(
  enroll_rate = enroll_rate,
  fail_rate = fail_rate,
  ratio = ratio,
  event = event,
  analysis_time = NULL
)

gs_info_wlr(
  enroll_rate = enroll_rate,
  fail_rate = fail_rate,
  ratio = ratio,
  event = event,
  analysis_time = NULL,
  weight = function(x, arm0, arm1) {wlr_weight_fh(x, arm0, arm1, rho = 0, gamma = 0, tau = NULL)}
) |> dplyr::select(-c(n, delta, sigma2))