change x$input$ratio to ratio

Merck · Nov 13, 2024 · 6a0d23a · 6a0d23a
1 parent 0d927a3
commit 6a0d23a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/to_integer.R b/R/to_integer.R
@@ -348,15 +348,15 @@ to_integer.gs_design <- function(x, round_up_final = TRUE, ratio = x$input$ratio
           info_with_new_event <- gs_info_ahr(
             enroll_rate = enroll_rate_new,
             fail_rate = x$input$fail_rate,
-            ratio = x$input$ratio,
+            ratio = ratio,
             event = event_new,
             analysis_time = NULL
           )
         } else if (is_wlr) {
           info_with_new_event <- gs_info_wlr(
             enroll_rate = enroll_rate_new,
             fail_rate = x$input$fail_rate,
-            ratio = x$input$ratio,
+            ratio = ratio,
             event = event_new,
             analysis_time = NULL,
             weight = x$input$weight