Fix style

llrs-roche · llrs-roche · commit 3cb8e61b2812 · 2025-10-20T10:56:04.000+02:00
diff --git a/R/tm_outliers.R b/R/tm_outliers.R
@@ -738,9 +738,10 @@ srv_outliers <- function(id, data, outlier_var,
               categorical_var_name = as.name(categorical_var)
             )
           )
-        ) |> within({
-          table <- rtables::df_to_tt(summary_data)
-          table
+        ) |>
+          within({
+            table <- rtables::df_to_tt(summary_data)
+            table
         })
       } else {
         msg <- "No categorical variable selected, summary table cannot be created."

Original file line number	Diff line number	Diff line change
`@@ -738,9 +738,10 @@ srv_outliers <- function(id, data, outlier_var,`
`738`	`738`	`categorical_var_name = as.name(categorical_var)`
`739`	`739`	`)`
`740`	`740`	`)`
`741`		`- ) \|> within({`
`742`		`- table <- rtables::df_to_tt(summary_data)`
`743`		`- table`
	`741`	`+ ) \|>`
	`742`	`+ within({`
	`743`	`+ table <- rtables::df_to_tt(summary_data)`
	`744`	`+ table`
`744`	`745`	`})`
`745`	`746`	`} else {`
`746`	`747`	`msg <- "No categorical variable selected, summary table cannot be created."`