Question on digits display when summarizing a design

[LittleBeannie]

Hi @jdblischak , when I run the following lines of code, I notice that the 'Cumulative boundary crossing probability' isn't showing 5 digits. Could you help me understand why?

gs_design_ahr(analysis = c(24, 36, 48)) |> 
   summary(col_decimals = c(z = 5, probability = 5,  probability0 = 5,  `~hr at bound` =  5, `nominal p` = 5)) |> 
   as_gt()

[jdblischak]

First I confirmed this is a problem by trying to limit to 3 decimal places:

gs_design_ahr(analysis = c(24, 36, 48)) |> 
  summary(col_decimals = c(z = 3, probability = 3,  probability0 = 3,  `~hr at bound` =  3, `nominal p` = 3)) |> 
  as_gt()

I suspected this was a problem with the names, and indeed it is. You have to use the column names Alternate hypothesis and Null hypothesis:

gs_design_ahr(analysis = c(24, 36, 48)) |> 
  summary(col_decimals = c(z = 5, `Alternate hypothesis` = 5,  `Null hypothesis` = 5,  `~hr at bound` =  5, `nominal p` = 5)) |> 
  as_gt()

This is defined here:

gsDesign2/R/summary.R

Lines 343 to 349 in a33d657

	# Prepare the columns decimals ----
	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")),
	"nominal p", "Alternate hypothesis", "Null hypothesis"
	)