From dd19428ab3d05a43a5697cc899eb7929fe762774 Mon Sep 17 00:00:00 2001 From: brookslogan Date: Fri, 20 Sep 2024 22:32:50 +0000 Subject: [PATCH] style: styler (GHA) --- tests/testthat/test-epix_slide.R | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) diff --git a/tests/testthat/test-epix_slide.R b/tests/testthat/test-epix_slide.R index 944ff0e4..c0d752dc 100644 --- a/tests/testthat/test-epix_slide.R +++ b/tests/testthat/test-epix_slide.R @@ -805,23 +805,27 @@ test_that("`epix_slide` de-dupes labeling & value columns", { # Solely parroting back values without any new columns seems likely to be # nonsense (though this example would sort of act like a `distinct` # operation if we accepted it): - expect_error(xx %>% epix_slide(~ .version, .new_col_name = "version")) + expect_error(xx %>% epix_slide(~.version, .new_col_name = "version")) # Deduping group label: # When comp is formula -> unpacked tibble: - forecasts2a <- xx %>% group_by(geo_value) %>% epix_slide(~ tibble( - geo_value = .group_key$geo_value, - version = .version, - time_value = .version + c(0, 7), - value = 42 - )) + forecasts2a <- xx %>% + group_by(geo_value) %>% + epix_slide(~ tibble( + geo_value = .group_key$geo_value, + version = .version, + time_value = .version + c(0, 7), + value = 42 + )) # When comp is data-masking: - forecasts2b <- xx %>% group_by(geo_value) %>% epix_slide( - geo_value = .group_key$geo_value, - version = .version, - time_value = .version + c(0, 7), - value = 42 - ) + forecasts2b <- xx %>% + group_by(geo_value) %>% + epix_slide( + geo_value = .group_key$geo_value, + version = .version, + time_value = .version + c(0, 7), + value = 42 + ) # Expected value: forecasts2ref <- tibble( geo_value = "ak",