styler

insightsengineering · May 16, 2024 · a90ec49 · a90ec49
1 parent c308c5e
commit a90ec49
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ard_survival_survfit.R b/R/ard_survival_survfit.R
@@ -146,7 +146,7 @@ ard_survival_survfit <- function(x, times = NULL, probs = NULL, type = NULL) {
     x$n.risk <- x$n.risk[, 1]
     ms_cols <- c("pstate", "std.err", "upper", "lower")
     state_col <- which(colnames(x$pstate) == state)
-    x[ms_cols] <- lapply(x[ms_cols], function(m) {m[, state_col]})
+    x[ms_cols] <- lapply(x[ms_cols], function(m) m[, state_col])
     x$surv <- x$pstate
   }