style: styler (GHA)

Author: brookslogan

tests/testthat/test-epi_slide_opt_archive.R

@@ -130,62 +130,62 @@ test_that("epi_slide_opt.epi_archive gives expected results on example data", {
     relocate(case_rate_7d_av, .after = last_col()) %>%
     as_epi_archive() # ensure compact
 
-    expect_equal(case_death_rate_archive_result, case_death_rate_archive_expected)
-
-    tbl_diff2(
-      case_death_rate_archive_expected$DT[geo_value == "ak" & time_value <= as.Date("2020-03-16")] %>%
-        as.data.frame() %>% as_tibble(),
-      case_death_rate_archive_result$DT[geo_value == "ak" & time_value <= as.Date("2020-03-16")] %>%
-        as.data.frame() %>% as_tibble(),
-      c("geo_value", "time_value", "version")
-    )
+  expect_equal(case_death_rate_archive_result, case_death_rate_archive_expected)
+
+  tbl_diff2(
+    case_death_rate_archive_expected$DT[geo_value == "ak" & time_value <= as.Date("2020-03-16")] %>%
+      as.data.frame() %>% as_tibble(),
+    case_death_rate_archive_result$DT[geo_value == "ak" & time_value <= as.Date("2020-03-16")] %>%
+      as.data.frame() %>% as_tibble(),
+    c("geo_value", "time_value", "version")
+  )
 
-    case_death_rate_archive_result$DT[geo_value == "ak" & time_value <= as.Date("2020-03-16")]
+  case_death_rate_archive_result$DT[geo_value == "ak" & time_value <= as.Date("2020-03-16")]
 
-    # case_death_rate_archive_result %>%
-    case_death_rate_archive_expected %>%
-      epix_as_of(as.Date("2020-11-01")) %>%
-      filter(geo_value == "ak", time_value <= as.Date("2020-03-16")) %>%
-      # filter(between(time_value, as.Date("2020-03-09"), as.Date("2020-03-15"))) %>%
-      mutate(d = c(NA, diff(case_rate_7d_av))) %>%
-      {}
+  # case_death_rate_archive_result %>%
+  case_death_rate_archive_expected %>%
+    epix_as_of(as.Date("2020-11-01")) %>%
+    filter(geo_value == "ak", time_value <= as.Date("2020-03-16")) %>%
+    # filter(between(time_value, as.Date("2020-03-09"), as.Date("2020-03-15"))) %>%
+    mutate(d = c(NA, diff(case_rate_7d_av))) %>%
+    {}
 
-    # vs. computing via epix_slide:
+  # vs. computing via epix_slide:
 
-    mini_case_death_rate_archive <- case_death_rate_archive %>%
-      {
-        as_tibble(as.data.frame(.$DT))
-      } %>%
-      filter(geo_value %in% head(unique(geo_value), 4L)) %>%
-      as_epi_archive()
+  mini_case_death_rate_archive <- case_death_rate_archive %>%
+    {
+      as_tibble(as.data.frame(.$DT))
+    } %>%
+    filter(geo_value %in% head(unique(geo_value), 4L)) %>%
+    as_epi_archive()
 
-    mini_case_death_rate_archive_time_opt <- system.time(
-      mini_case_death_rate_archive_result <- mini_case_death_rate_archive %>%
-        epi_slide_opt(case_rate, frollmean, .window_size = 7)
-    )
+  mini_case_death_rate_archive_time_opt <- system.time(
+    mini_case_death_rate_archive_result <- mini_case_death_rate_archive %>%
+      epi_slide_opt(case_rate, frollmean, .window_size = 7)
+  )
 
-    mini_case_death_rate_archive_time_gen <- system.time(
-      mini_case_death_rate_archive_expected <- mini_case_death_rate_archive %>%
-        epix_slide(~ .x %>% epi_slide_opt(case_rate, frollmean, .window_size = 7)) %>%
-        select(names(mini_case_death_rate_archive$DT), everything()) %>%
-        as_epi_archive()
-    )
+  mini_case_death_rate_archive_time_gen <- system.time(
+    mini_case_death_rate_archive_expected <- mini_case_death_rate_archive %>%
+      epix_slide(~ .x %>% epi_slide_opt(case_rate, frollmean, .window_size = 7)) %>%
+      select(names(mini_case_death_rate_archive$DT), everything()) %>%
+      as_epi_archive()
+  )
 
-    expect_equal(mini_case_death_rate_archive_result, mini_case_death_rate_archive_expected)
+  expect_equal(mini_case_death_rate_archive_result, mini_case_death_rate_archive_expected)
 
-    archive_cases_dv_subset_time_opt <- system.time(
-      archive_cases_dv_subset_result <- archive_cases_dv_subset %>%
-        epi_slide_opt(percent_cli, frollmean, .window_size = 7)
-    )
+  archive_cases_dv_subset_time_opt <- system.time(
+    archive_cases_dv_subset_result <- archive_cases_dv_subset %>%
+      epi_slide_opt(percent_cli, frollmean, .window_size = 7)
+  )
 
-    archive_cases_dv_subset_time_gen <- system.time(
-      archive_cases_dv_subset_expected <- archive_cases_dv_subset %>%
-        epix_slide(~ .x %>% epi_slide_opt(percent_cli, frollmean, .window_size = 7)) %>%
-        select(geo_value, time_value, version, everything()) %>%
-        as_epi_archive()
-    )
+  archive_cases_dv_subset_time_gen <- system.time(
+    archive_cases_dv_subset_expected <- archive_cases_dv_subset %>%
+      epix_slide(~ .x %>% epi_slide_opt(percent_cli, frollmean, .window_size = 7)) %>%
+      select(geo_value, time_value, version, everything()) %>%
+      as_epi_archive()
+  )
 
-    expect_equal(archive_cases_dv_subset_result, archive_cases_dv_subset_expected)
+  expect_equal(archive_cases_dv_subset_result, archive_cases_dv_subset_expected)
 })