From 77f3a6aed2b7f31fe95968b7dc1155551265a9ed Mon Sep 17 00:00:00 2001
From: "Zhao, Yujie" <yujie.zhao@merck.com>
Date: Tue, 2 Jan 2024 14:53:57 -0500
Subject: [PATCH] fix the missing theta and info

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

diff --git a/R/gs_design_rd.R b/R/gs_design_rd.R
index f87d2c5c..e7a57ddf 100644
--- a/R/gs_design_rd.R
+++ b/R/gs_design_rd.R
@@ -204,8 +204,8 @@ gs_design_rd <- function(p_c = tibble::tibble(stratum = "All", rate = .2),
   }
 
   if (h1_spending) {
-    theta1 <- x$theta
-    info1 <- x$info
+    theta1 <- x$theta1
+    info1 <- x$info1
   } else {
     theta1 <- 0
     info1 <- x$info0