From 6a0d23a73027a5084385af6e62f5d3f70fbaa572 Mon Sep 17 00:00:00 2001
From: "Zhao, Yujie" <yujie.zhao@merck.com>
Date: Wed, 13 Nov 2024 14:57:39 -0500
Subject: [PATCH] change `x$input$ratio` to `ratio`

---
 R/to_integer.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/to_integer.R b/R/to_integer.R
index 4955ac5f..b08d450c 100644
--- a/R/to_integer.R
+++ b/R/to_integer.R
@@ -348,7 +348,7 @@ 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
           )
@@ -356,7 +356,7 @@ to_integer.gs_design <- function(x, round_up_final = TRUE, ratio = x$input$ratio
           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