style: styler (GHA)

Author: brookslogan

R/methods-epi_archive.R

@@ -1042,7 +1042,7 @@ filter.epi_archive <- function(.data, ..., .by = NULL, .format_aware = FALSE) {
   in_tbl <- tibble::as_tibble(as.list(.data$DT), .name_repair = "minimal")
   if (.format_aware) {
     out_tbl <- in_tbl %>%
-      filter(..., .by = {{.by}})
+      filter(..., .by = {{ .by }})
   } else {
     measurement_colnames <- setdiff(names(.data$DT), key_colnames(.data))
     forbidden_colnames <- c("version", measurement_colnames)
@@ -1082,7 +1082,7 @@ filter.epi_archive <- function(.data, ..., .by = NULL, .format_aware = FALSE) {
           TRUE
         },
         ...,
-        .by = {{.by}}
+        .by = {{ .by }}
       )
   }
   # We could try to re-infer the geo_type, e.g., when filtering from

tests/testthat/test-methods-epi_archive.R

@@ -130,7 +130,6 @@ test_that("group_vars works as expected", {
 })
 
 test_that("filter.epi_archive works as expected", {
-
   ea2 <- ea2_data %>%
     as_epi_archive()
 
@@ -148,8 +147,10 @@ test_that("filter.epi_archive works as expected", {
   expect_equal(
     ea2 %>% filter(geo_value == "ca", time_value == as.Date("2020-06-02")),
     new_epi_archive(
-      data.table::data.table(geo_value = "ca", time_value = as.Date("2020-06-02"),
-                             version = as.Date("2020-06-02") + 0:2, cases = 0:2),
+      data.table::data.table(
+        geo_value = "ca", time_value = as.Date("2020-06-02"),
+        version = as.Date("2020-06-02") + 0:2, cases = 0:2
+      ),
       ea2$geo_type, ea2$time_type, ea2$other_keys,
       ea2$clobberable_versions_start, ea2$versions_end
     )
@@ -222,9 +223,9 @@ test_that("filter.epi_archive works as expected", {
   expect_equal(
     ea2 %>%
       filter(version <= time_value + as.difftime(1, units = "days"),
-             .format_aware = TRUE) %>%
+        .format_aware = TRUE
+      ) %>%
       .$DT,
     ea2$DT[version <= time_value + as.difftime(1, units = "days"), ]
   )
-
 })