Fix the error in pkgdown checking

Author: LittleBeannie

vignettes/articles/story-update-boundary.Rmd

@@ -165,9 +165,7 @@ gs_update_ahr(
 ) |>
   summary(col_decimals = c(z = 4)) |>
   as_gt(title = "Updated design",
-        subtitle = paste0("With observed ", sum(observed_data_ia$event),
-                          " events at IA and ", sum(observed_data_fa$event),
-                          " events at FA"))
+        subtitle = paste0("With observed 240 events at IA and 352 events at FA"))
 ```
 
 # Two-sided asymmetric design, beta-spending with non-binding lower bound