Add back cbind() required to drop Futility column when vector is NULL

jdblischak · jdblischak · commit 79d537c8004b · 2025-02-10T16:37:43.000-05:00
diff --git a/R/gsMethods.R b/R/gsMethods.R
@@ -384,7 +384,8 @@ gsBoundSummary0 <- function(
     } else {
       Futility <- NULL
     }
-    pp <- data.frame(Efficacy, Futility, i = 1:(x$k - 1))
+    # cbind() required here to drop Futility column when it is NULL
+    pp <- data.frame(cbind(Efficacy, Futility, i = 1:(x$k - 1)))
     pp$Value <- "PP"
   }
   # start a frame for other statistics

Original file line number	Diff line number	Diff line change
`@@ -384,7 +384,8 @@ gsBoundSummary0 <- function(`
`384`	`384`	`} else {`
`385`	`385`	`Futility <- NULL`
`386`	`386`	`}`
`387`		`- pp <- data.frame(Efficacy, Futility, i = 1:(x$k - 1))`
	`387`	`+ # cbind() required here to drop Futility column when it is NULL`
	`388`	`+ pp <- data.frame(cbind(Efficacy, Futility, i = 1:(x$k - 1)))`
`388`	`389`	`pp$Value <- "PP"`
`389`	`390`	`}`
`390`	`391`	`# start a frame for other statistics`