[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/fda-table_02.R

@@ -53,7 +53,8 @@ make_table_02 <- function(df,
   # create a table using gtsummary
   df %>%
     gtsummary::tbl_summary(
-      by = arm_var)
+      by = arm_var
+    )
 
   tbl <- df %>%
     gtsummary::tbl_summary(
@@ -67,7 +68,8 @@ make_table_02 <- function(df,
         all_categorical() ~ "{n} ({p}%)"
       ),
       digits = all_continuous() ~ 2,
-      missing = "no") %>%
+      missing = "no"
+    ) %>%
     gtsummary::bold_labels() %>%
     gtsummary::modify_header(all_stat_cols() ~ "**{level}**  \nN = {n}") %>%
     gtsummary::add_overall(last = TRUE, col_label = paste0("**", "Total Population", "**  \nN = {n}")) %>%

tests/testthat/test-fda-table_02.R

@@ -1,11 +1,11 @@
 adsl <- adsl_raw %>%
   filter(SAFFL == "Y") %>%
-    mutate(AGEGR1 = as.factor(case_when(
+  mutate(AGEGR1 = as.factor(case_when(
     AGE >= 17 & AGE < 65 ~ ">=17 to <65",
     AGE >= 65 ~ ">=65",
     AGE >= 65 & AGE < 75 ~ ">=65 to <75",
     AGE >= 75 ~ ">=75"
-    ))) %>%
+  ))) %>%
   df_explicit_na()
 
 test_that("Table 02 generation works with default values", {