delete extra 4

LittleBeannie · LittleBeannie · commit 670401e5235c · 2026-01-09T12:04:43.000-05:00
diff --git a/R/summary.R b/R/summary.R
@@ -321,7 +321,7 @@ summary.gs_design <- function(object,
   )
 
   # Prepare the columns decimals ----
-  default_decimals <- c(NA, NA, 2, if (method != "combo") 4, 4, 4, 4, 4)
+  default_decimals <- c(NA, NA, 2, if (method != "combo") 4, 4, 4, 4)
   default_vars <- c(
     "analysis", "bound", "z",
     sprintf("~%s at bound", switch(method, ahr = "hr", wlr = "whr", rd = "risk difference")),

Original file line number	Diff line number	Diff line change
`@@ -321,7 +321,7 @@ summary.gs_design <- function(object,`
`321`	`321`	`)`
`322`	`322`
`323`	`323`	`# Prepare the columns decimals ----`
`324`		`- default_decimals <- c(NA, NA, 2, if (method != "combo") 4, 4, 4, 4, 4)`
	`324`	`+ default_decimals <- c(NA, NA, 2, if (method != "combo") 4, 4, 4, 4)`
`325`	`325`	`default_vars <- c(`
`326`	`326`	`"analysis", "bound", "z",`
`327`	`327`	`sprintf("~%s at bound", switch(method, ahr = "hr", wlr = "whr", rd = "risk difference")),`