From 6de4e78547f34c92e2ba56719bbc4b255f4fbb13 Mon Sep 17 00:00:00 2001 From: Yihui Xie Date: Thu, 29 Aug 2024 23:10:08 -0500 Subject: [PATCH] use a single paste0() --- R/summary.R | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/R/summary.R b/R/summary.R index 9d6b57a8..ef074614 100644 --- a/R/summary.R +++ b/R/summary.R @@ -87,11 +87,10 @@ summary.fixed_design <- function(object, ...) { 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, ")") - }, + fh = paste0( + "Fleming-Harrington FH(", x$design_par$rho, ", ", x$design_par$gamma, ")", + if (x$design_par$rho == 0 && x$design_par$gamma == 0) " (logrank)" + ), maxcombo = { temp <- paste0( "MaxCombo: FH(",