style: styler (GHA)

cmu-delphi · Jan 15, 2025 · db4688e · db4688e
1 parent db29f56
commit db4688e
Show file tree

Hide file tree

Showing 2 changed files with 65 additions and 33 deletions.
diff --git a/tests/testthat/test-revision-latency-functions.R b/tests/testthat/test-revision-latency-functions.R
@@ -31,26 +31,32 @@ dummy_ex <- tibble::tribble(
   as_epi_archive(versions_end = as.Date("2022-01-01"), compactify = FALSE)
 
 dummy_ex_weekly <- dummy_ex$DT %>%
-  mutate(across(c(time_value, version),
-                ~ as.Date("2020-01-01") + 7 * as.numeric(.x - as.Date("2020-01-01")))) %>%
+  mutate(across(
+    c(time_value, version),
+    ~ as.Date("2020-01-01") + 7 * as.numeric(.x - as.Date("2020-01-01"))
+  )) %>%
   as_epi_archive(
     versions_end = as.Date("2022-01-01") + as.numeric(as.Date("2022-01-01") - as.Date("2020-01-01")) %% 7,
     compactify = FALSE
   )
 stopifnot(dummy_ex_weekly$time_type == "week")
 
 dummy_ex_yearmonthly <- dummy_ex$DT %>%
-  mutate(across(c(time_value, version),
-                ~ tsibble::make_yearmonth(2020, 1) + as.numeric(.x - as.Date("2020-01-01")))) %>%
+  mutate(across(
+    c(time_value, version),
+    ~ tsibble::make_yearmonth(2020, 1) + as.numeric(.x - as.Date("2020-01-01"))
+  )) %>%
   as_epi_archive(
     versions_end = tsibble::make_yearmonth(2020, 1) + as.numeric(as.Date("2022-01-01") - as.Date("2020-01-01")),
     compactify = FALSE
   )
 stopifnot(dummy_ex_yearmonthly$time_type == "yearmonth")
 
 dummy_ex_integerly <- dummy_ex$DT %>%
-  mutate(across(c(time_value, version),
-                ~ 1 + as.numeric(.x - as.Date("2020-01-01")))) %>%
+  mutate(across(
+    c(time_value, version),
+    ~ 1 + as.numeric(.x - as.Date("2020-01-01"))
+  )) %>%
   as_epi_archive(
     versions_end = 1 + as.numeric(as.Date("2022-01-01") - as.Date("2020-01-01")),
     compactify = FALSE
@@ -65,9 +71,11 @@ test_that("revision_summary works for dummy datasets", {
   expect_snapshot(dummy_ex_weekly %>% revision_summary(drop_nas = FALSE) %>% print(n = 10, width = 300))
   expect_snapshot(dummy_ex_yearmonthly %>% revision_summary(drop_nas = FALSE) %>% print(n = 10, width = 300))
   expect_snapshot(dummy_ex_integerly %>%
-                    revision_summary(min_waiting_period = 60, quick_revision = 3,
-                                     drop_nas = FALSE) %>%
-                    print(n = 10, width = 300))
+    revision_summary(
+      min_waiting_period = 60, quick_revision = 3,
+      drop_nas = FALSE
+    ) %>%
+    print(n = 10, width = 300))
 })
 
 test_that("tidyselect is functional", {

diff --git a/tests/testthat/test-time-utils.R b/tests/testthat/test-time-utils.R
@@ -161,33 +161,57 @@ test_that("time_delta_to_approx_difftime works as expected", {
 
 test_that("format_time_delta works as expected", {
   # time_type "day":
-  expect_equal(format_time_delta(as.difftime(1, units = "days"), "day"),
-               "1 day")
-  expect_equal(format_time_delta(as.difftime(2, units = "days"), "day"),
-               "2 days")
-  expect_equal(format_time_delta(1, "day"),
-               "1 day")
-  expect_equal(format_time_delta(2, "day"),
-               "2 days")
+  expect_equal(
+    format_time_delta(as.difftime(1, units = "days"), "day"),
+    "1 day"
+  )
+  expect_equal(
+    format_time_delta(as.difftime(2, units = "days"), "day"),
+    "2 days"
+  )
+  expect_equal(
+    format_time_delta(1, "day"),
+    "1 day"
+  )
+  expect_equal(
+    format_time_delta(2, "day"),
+    "2 days"
+  )
   # time_type "week":
-  expect_equal(format_time_delta(as.difftime(1, units = "weeks"), "week"),
-               "1 week")
-  expect_equal(format_time_delta(as.difftime(7, units = "days"), "week"),
-               "1 week")
-  expect_equal(format_time_delta(1, "week"),
-               "1 week")
-  expect_equal(format_time_delta(as.difftime(2, units = "weeks"), "week"),
-               "2 weeks")
+  expect_equal(
+    format_time_delta(as.difftime(1, units = "weeks"), "week"),
+    "1 week"
+  )
+  expect_equal(
+    format_time_delta(as.difftime(7, units = "days"), "week"),
+    "1 week"
+  )
+  expect_equal(
+    format_time_delta(1, "week"),
+    "1 week"
+  )
+  expect_equal(
+    format_time_delta(as.difftime(2, units = "weeks"), "week"),
+    "2 weeks"
+  )
   # time_type "yearmonth":
-  expect_equal(format_time_delta(1, "yearmonth"),
-               "1 month")
-  expect_equal(format_time_delta(2, "yearmonth"),
-               "2 months")
+  expect_equal(
+    format_time_delta(1, "yearmonth"),
+    "1 month"
+  )
+  expect_equal(
+    format_time_delta(2, "yearmonth"),
+    "2 months"
+  )
   # time_type "integer":
-  expect_equal(format_time_delta(1, "integer"),
-               "1 time step")
-  expect_equal(format_time_delta(2, "integer"),
-               "2 time steps")
+  expect_equal(
+    format_time_delta(1, "integer"),
+    "1 time step"
+  )
+  expect_equal(
+    format_time_delta(2, "integer"),
+    "2 time steps"
+  )
   # we don't handle length != 1; pluralize will raise error for us:
   expect_error(format_time_delta(numeric(0), "day")) # we don't handle length != 0
   expect_error(format_time_delta(1:5, "day")) # we don't handle length != 0