purrr dependency for the rpact GSD comparison removed

Comp/r-east_gsd_tte.qmd

@@ -410,9 +410,9 @@ pval_fut <- pfs_rpact$futilityBoundsPValueScale
 zval_eff <- pfs_rpact_gsd$criticalValues
 zval_fut <- pfs_rpact_gsd$futilityBounds
 pcross_h0_eff <- pfs_rpact_gsd$alphaSpent
-pcross_h0_fut <- summary(pfs_rpact)$summaryItems |> 
-  purrr::keep(~.x$title == "Exit probability for futility (under H0)") |>
-  purrr::map_dbl(~as.numeric(.x$values))
+pcross_h0_fut <- summary(pfs_rpact)$summaryItems |>
+  Filter(\(x) x$title == "Exit probability for futility (under H0)", x = _) |>
+  sapply(\(x) as.numeric(x$values))
 
 ia1_eff <- c(zval_eff[1], pval_eff[1], hr_bound_eff[1], pcross_h0_eff[1], pcross_h1_eff[1])
 fa_eff <-  c(zval_eff[2], pval_eff[2], hr_bound_eff[2], pcross_h0_eff[2], pcross_h1_eff[2])