style: styler (GHA)

Author: brookslogan

tests/testthat/test-epi_slide.R

@@ -764,15 +764,17 @@ test_that("epi_slide_opt output naming features", {
     as_epi_df() %>%
     group_by(geo_value)
   multi_columns_weekly <- dplyr::bind_rows(
-    dplyr::tibble(geo_value = "ak", time_value = test_date + 7*(1:200), value = 1:200, value2 = -1:-200),
-    dplyr::tibble(geo_value = "al", time_value = test_date + 7*(1:5), value = -(1:5), value2 = 1:5)
+    dplyr::tibble(geo_value = "ak", time_value = test_date + 7 * (1:200), value = 1:200, value2 = -1:-200),
+    dplyr::tibble(geo_value = "al", time_value = test_date + 7 * (1:5), value = -(1:5), value2 = 1:5)
   ) %>%
     as_epi_df() %>%
     group_by(geo_value)
   yearmonthly <-
-    tibble::tibble(geo_value = 1,
-                   time_value = tsibble::make_yearmonth(2000, 1) + 1:30 - 1,
-                   value = 1:30 %% 2 == 0) %>%
+    tibble::tibble(
+      geo_value = 1,
+      time_value = tsibble::make_yearmonth(2000, 1) + 1:30 - 1,
+      value = 1:30 %% 2 == 0
+    ) %>%
     as_epi_df() %>%
     group_by(geo_value)