diff --git a/tests/testthat/test-revision-latency-functions.R b/tests/testthat/test-revision-latency-functions.R index f8cfbb3c..fe726dd9 100644 --- a/tests/testthat/test-revision-latency-functions.R +++ b/tests/testthat/test-revision-latency-functions.R @@ -31,8 +31,10 @@ 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 @@ -40,8 +42,10 @@ dummy_ex_weekly <- dummy_ex$DT %>% 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 @@ -49,8 +53,10 @@ dummy_ex_yearmonthly <- dummy_ex$DT %>% 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 index 73f4c1bf..7a8aab50 100644 --- 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