Merge branch '1345_refactor_summarize_change@main' of github.com:insi…

…ghtsengineering/tern into 1345_refactor_summarize_change@main

vignettes/tern_functions_guide.Rmd

@@ -119,17 +119,17 @@ Adding a custom statistic (and custom format):
 ```{r}
 # changing n count format and label and indentation
 fix_layout %>%
-    summarize_change(
-      "CHG",
-      variables = list(value = "AVAL", baseline_flag = "ABLFLL"),
-      .stats = c("n", "my_stat" = function(df, ...) {
-        a <- mean(df$AVAL, na.rm = TRUE)
-        b <- list(...)$.N_row # It has access at all `?rtables::additional_fun_params`
-        a / b
-      }),
-      .formats = c("my_stat" = function(x, ...) sprintf("%.2f", x))
-    ) %>%
-    build_table(dta_test)
+  summarize_change(
+    "CHG",
+    variables = list(value = "AVAL", baseline_flag = "ABLFLL"),
+    .stats = c("n", "my_stat" = function(df, ...) {
+      a <- mean(df$AVAL, na.rm = TRUE)
+      b <- list(...)$.N_row # It has access at all `?rtables::additional_fun_params`
+      a / b
+    }),
+    .formats = c("my_stat" = function(x, ...) sprintf("%.2f", x))
+  ) %>%
+  build_table(dta_test)
 ```