[skip style] [skip vbump] Restyle files

R/analyze_variables.R

@@ -505,8 +505,8 @@ a_summary <- function(x,
 
   # If one col has NA vals, must add NA row to other cols (using placeholder lvl `fill-na-level`)
   if (any(is.na(dots_extra_args$.df_row[[dots_extra_args$.var]])) &&
-      !any(is.na(x)) &&
-      !na.rm) {
+    !any(is.na(x)) &&
+    !na.rm) {
     levels(x) <- c(levels(x), "fill-na-level")
   }
 

R/utils_default_stats_formats_labels.R

@@ -159,13 +159,15 @@ get_and_check_stats_names <- function(stat_results, stat_names_in = NULL) {
   }
 
   # Check for number of stat names per stat output
-  for (ii in seq_along(stat_results)){
+  for (ii in seq_along(stat_results)) {
     internal_groups_stat_length <- lapply(stat_results[[ii]], length)
     for (jj in seq_along(internal_groups_stat_length)) {
       if (internal_groups_stat_length[[jj]] != length(out[[ii]])) {
-        stop("The number of stat names for ", names(stat_results)[ii],
-             "(", internal_groups_stat_length[[jj]], ")",
-             " is not equal to the number of statistical outputs.")
+        stop(
+          "The number of stat names for ", names(stat_results)[ii],
+          "(", internal_groups_stat_length[[jj]], ")",
+          " is not equal to the number of statistical outputs."
+        )
       }
     }
   }

tests/testthat/test-utils_default_stats_formats_labels.R

@@ -231,5 +231,5 @@ testthat::test_that("get_and_check_stats_names works fine", {
   testthat::expect_error(
     out <- get_and_check_stats_names(stat_results, list("n" = c("1", "2"))),
     "The number of stat names for n"
-    )
+  )
 })