running time of gs_design_wlr example is > 5s

Merck · Nov 14, 2024 · 208f505 · 208f505
1 parent 67e7423
commit 208f505
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/R/gs_design_wlr.R b/R/gs_design_wlr.R
@@ -57,6 +57,7 @@
 #'
 #' # Example 1 ----
 #' # Information fraction driven design
+#' \donttest{
 #' gs_design_wlr(
 #'   enroll_rate = enroll_rate,
 #'   fail_rate = fail_rate,
@@ -72,9 +73,11 @@
 #'   analysis_time = 36,
 #'   info_frac = 1:3/3
 #' )
+#' }
 #'
 #' # Example 2 ----
 #' # Calendar time driven design
+#' \donttest{
 #' gs_design_wlr(
 #'   enroll_rate = enroll_rate,
 #'   fail_rate = fail_rate,
@@ -90,9 +93,11 @@
 #'   analysis_time = 1:3*12,
 #'   info_frac = NULL
 #' )
+#' }
 #'
 #' # Example 3 ----
 #' # Both calendar time and information fraction driven design
+#' \donttest{
 #' gs_design_wlr(
 #'   enroll_rate = enroll_rate,
 #'   fail_rate = fail_rate,
@@ -108,6 +113,7 @@
 #'   analysis_time = 1:3*12,
 #'   info_frac = c(0.3, 0.7, 1)
 #' )
+#' }
 gs_design_wlr <- function(
     enroll_rate = define_enroll_rate(
       duration = c(2, 2, 10),

diff --git a/man/gs_design_wlr.Rd b/man/gs_design_wlr.Rd