Merge pull request #426 from Merck/summary_upar

summary function updated to correctly extract the full alpha level + test for this added

R/summary.R

@@ -692,12 +692,14 @@ summary.gs_design <- function(object,
   # Save the full alpha as an attribute of the output summary table
   attr(output, "full_alpha") <-
     if (is.null(object$input$alpha)) {
-      if (is.null(object$upar$total_spend)) {
+      # case when given sample size to calculate power
+      if (!is.list(object$input$upar)) {
         0.025
       } else {
-        object$upar$total_spend
+        object$input$upar$total_spend
       }
     } else {
+      # case when given power to calcuate sample size
       object$input$alpha
     }
 

tests/testthat/test-developer-summary.R

@@ -149,3 +149,21 @@ test_that("The column 'Bound' is always included in summary.gs_design() output",
   )
   expect_true("Bound" %in% colnames(observed))
 })
+
+
+test_that("The full alpha is correctly carried over", {
+  a_level <- 0.02
+  x <- gs_power_ahr(
+    upper = gs_spending_bound,
+    upar = list(
+      sf = gsDesign::sfLDOF,
+      total_spend = a_level
+    ),
+    test_lower = FALSE
+  )
+
+  # without col_vars
+  observed <- summary(x)
+
+  expect_equal(attributes(observed)$full_alpha, a_level)
+})