Merge pull request #405 from Merck/404-default-title-is-not-displayed

404 default title is not displayed

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: gsDesign2
 Title: Group Sequential Design with Non-Constant Effect
-Version: 1.1.2.7
+Version: 1.1.2.8
 Authors@R: c(
     person("Keaven", "Anderson", email = "[email protected]", role = c("aut")),
     person("Yilong", "Zhang", email = "[email protected]", role = c("aut")),

R/as_gt.R

@@ -323,7 +323,7 @@ as_gt.gs_design <- function(
   # Set defaults ----
   # set different default title to different methods
   if (method == "ahr" && is.null(title)) {
-    title <- ifelse("Bound summary for AHR design")
+    title <- "Bound summary for AHR design"
   }
   if (method == "wlr" && is.null(title)) {
     title <- "Bound summary for WLR design"

tests/testthat/_snaps/independent_as_gt.md

@@ -54,7 +54,7 @@
     \setlength{\LTpost}{0mm}
     \begin{longtable}{lrrrrr}
     \caption*{
-    {\large NA} \\ 
+    {\large Bound summary for AHR design} \\ 
     {\small AHR approximations of \textasciitilde{}HR at bound}
     } \\ 
     \toprule
@@ -78,7 +78,7 @@
     \setlength{\LTpost}{0mm}
     \begin{longtable}{lrrrrr}
     \caption*{
-    {\large NA} \\ 
+    {\large Bound summary for AHR design} \\ 
     {\small AHR approximations of \textasciitilde{}HR at bound}
     } \\ 
     \toprule