style: styler (GHA)

cmu-delphi · Nov 12, 2024 · 1627870 · 1627870
1 parent 6db1391
commit 1627870
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/tests/testthat/test-epi_slide.R b/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)