purely cosmetic changes

Merck · Aug 30, 2024 · 1228f66 · 1228f66
1 parent 6c85d78
commit 1228f66
Showing 1 changed file with 13 additions and 26 deletions.
diff --git a/R/summary.R b/R/summary.R
@@ -79,39 +79,26 @@
 #'
 summary.fixed_design <- function(object, ...) {
   x <- object
-  x_design <- switch(x$design,
-    "ahr" = {
-      "Average hazard ratio"
-    },
-    "lf" = {
-      "Lachin and Foulkes"
-    },
-    "rd" = {
-      "Risk difference"
-    },
-    "milestone" = {
-      paste0("Milestone: tau = ", x$design_par$tau)
-    },
-    "rmst" = {
-      paste0("RMST: tau = ", x$design_par$tau)
-    },
-    "mb" = {
-      paste0("Modestly weighted LR: tau = ", x$design_par$tau)
-    },
-    "fh" = {
-      if (x$design_par$rho == 0 & x$design_par$gamma == 0) {
-        paste0("Fleming-Harrington FH(0, 0) (logrank)")
-      } else {
-        paste0("Fleming-Harrington FH(", x$design_par$rho, ", ", x$design_par$gamma, ")")
-      }
+  x_design <- switch(
+    x$design,
+    "ahr" = "Average hazard ratio",
+    "lf" = "Lachin and Foulkes",
+    "rd" = "Risk difference",
+    "milestone" = paste0("Milestone: tau = ", x$design_par$tau),
+    "rmst" = paste0("RMST: tau = ", x$design_par$tau),
+    "mb" = paste0("Modestly weighted LR: tau = ", x$design_par$tau),
+    "fh" = if (x$design_par$rho == 0 & x$design_par$gamma == 0) {
+      paste0("Fleming-Harrington FH(0, 0) (logrank)")
+    } else {
+      paste0("Fleming-Harrington FH(", x$design_par$rho, ", ", x$design_par$gamma, ")")
     },
     "maxcombo" = {
       temp <- paste0(
         "MaxCombo: FH(",
         paste(apply(do.call(rbind, x$design_par[c(1:2)]), 2, paste, collapse = ", "), collapse = "), FH("),
         ")"
       )
-      gsub(pattern = "FH\\(0, 0\\)", replacement = "logrank", x = temp)
+      gsub("FH\\(0, 0\\)", "logrank", temp)
     }
   )