run styler on files

Author: alanahjonas95

R/rename_ard_columns.R

@@ -128,9 +128,10 @@ rename_ard_columns <- function(x,
       across(
         all_of(all_new_names),
         ~ map(., \(value){
-           if (inherits(value, "factor")) value <- as.character(value)
-       value %||% NA
-    })|>
-      unlist())
+          if (inherits(value, "factor")) value <- as.character(value)
+          value %||% NA
+        }) |>
+          unlist()
+      )
     )
 }

tests/testthat/test-rename_ard_columns.R

@@ -66,7 +66,7 @@ test_that("rename_ard_columns() preserves factor levels as characters", {
     by = TRT01A,
     variables = RACE
   ) |>
-  rename_ard_columns()
+    rename_ard_columns()
 
   # Check that 'race' is a character vector
   expect_type(res$RACE, "character")