style: styler (GHA)

Author: brookslogan

tests/testthat/test-epi_slide_opt_archive.R

@@ -35,7 +35,7 @@ test_that("epi_slide_opt_archive_one_epikey works as expected", {
     ),
     tibble(
       version = 13, time_value = 8:10, value = c(9, 9, 10),
-      slide_value = frollmean(c(6, 7, 9, 9, 10),  3,  algo = "exact")[-(1:2)]
+      slide_value = frollmean(c(6, 7, 9, 9, 10), 3, algo = "exact")[-(1:2)]
     ),
     tibble(
       version = 14, time_value = 11:13, value = c(NA, 12, 13), slide_value = rep(NA_real_, 3L)
@@ -62,13 +62,11 @@ test_that("epi_slide_opt_archive_one_epikey works as expected", {
       x %>%
         arrange(time_value) %>%
         select(version, time_value, everything())
-    })
-   ,
+    }),
     expected
   )
 
   # TODO check about version nesting ordering
-
 })
 
 # TODO tests on example data sets