[skip style] [skip vbump] Restyle files

insightsengineering · Nov 28, 2024 · 4cd4edb · 4cd4edb
1 parent e2c6298
commit 4cd4edb
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 8 deletions.
diff --git a/R/tt_afun_utils.R b/R/tt_afun_utils.R
@@ -232,7 +232,7 @@ in_rows <- function(..., .list = NULL, .names = NULL,
     if (is.null(.aligns)) {
       .aligns <- list(NULL)
     }
-    
+
     l2 <- mapply(rcell,
       x = l, format = .formats,
       footnotes = .cell_footnotes %||% list(NULL),

diff --git a/tests/testthat/test-result_data_frame.R b/tests/testthat/test-result_data_frame.R
@@ -469,17 +469,17 @@ test_that("make_ard works if there are no stat_names", {
   mean_sd_custom <- function(x) {
     mean <- mean(x, na.rm = FALSE)
     sd <- sd(x, na.rm = FALSE)
-    
+
     rcell(c(mean, sd),
-          label = "Mean (SD)", format = "xx.x (xx.x)"
+      label = "Mean (SD)", format = "xx.x (xx.x)"
     )
   }
-  
+
   lyt <- basic_table(show_colcounts = TRUE, colcount_format = "N=xx") %>%
     split_cols_by("ARM", split_fun = keep_split_levels(c("A: Drug X", "B: Placebo"))) %>%
     analyze(vars = "AGE", afun = mean_sd_custom)
-  
+
   tbl <- build_table(lyt, ex_adsl)
-  
-  expect_equal(as_result_df(tbl, make_ard = TRUE)$stat_name, rep(NA_character_, 4)) 
+
+  expect_equal(as_result_df(tbl, make_ard = TRUE)$stat_name, rep(NA_character_, 4))
 })
diff --git a/vignettes/ard_how_to.Rmd b/vignettes/ard_how_to.Rmd
@@ -123,7 +123,7 @@ mean_sd_custom <- function(x) {
   sd <- sd(x, na.rm = FALSE)
 
   rcell(c(mean, sd),
-    label = "Mean (SD)", format = "xx.x (xx.x)"#,
+    label = "Mean (SD)", format = "xx.x (xx.x)" # ,
     # stat_names = c("Mean", "SD")
   )
 }