actually passes a test

Author: dsweber2

R/step_epi_slide.R

@@ -55,8 +55,12 @@ step_epi_slide <-
       cli_abort("This recipe step can only operate on an {.cls epi_recipe}.")
     }
     .f <- validate_slide_fun(.f)
-    epiprocess:::validate_slide_window_arg(before, attributes(recipe$template)$metadata$time_type)
-    epiprocess:::validate_slide_window_arg(after, attributes(recipe$template)$metadata$time_type)
+    if (!is.null(before)) {
+      epiprocess:::validate_slide_window_arg(before, attributes(recipe$template)$metadata$time_type)
+    }
+    if (!is.null(after)) {
+      epiprocess:::validate_slide_window_arg(after, attributes(recipe$template)$metadata$time_type)
+    }
     arg_is_chr_scalar(role, prefix, id)
     arg_is_lgl_scalar(skip)
 

tests/testthat/test-step_epi_slide.R

@@ -8,6 +8,14 @@ edf <- data.frame(
 ) %>%
   as_epi_df()
 
+tt_week <- seq(as.Date("2022-01-01"), by = "1 week", length.out = 20)
+edf_weekly <- data.frame(
+  time_value = c(tt_week, tt_week),
+  geo_value = rep(c("ca", "ny"), each = 20L),
+  value = c(2:21, 3:22)
+) %>%
+  as_epi_df()
+
 r <- epi_recipe(edf)
 rolled_before <- edf %>%
   group_by(geo_value) %>%
@@ -73,3 +81,14 @@ test_that("epi_slide handles different function specs", {
   expect_equal(blfun[[4]], rolled_before)
   expect_equal(nblfun[[4]], rolled_before)
 })
+
+test_that("epi_slide works on weekly data with one of before/ahead set", {
+  expect_no_error(
+    baked <- epi_recipe(edf_weekly) %>%
+      step_epi_slide(value, .f = "mean", before = as.difftime(3, units = "weeks")) %>%
+      prep(edf_weekly) %>%
+      bake(new_data = NULL)
+  )
+  attributes(baked)$metadata$as_of <- as.Date("1999-09-09")
+  expect_snapshot(baked)
+})