This fixes epix_slide without adding random stuff when fixing epi_slide.

kenmawer · kenmawer · commit a126abd263f1 · 2022-08-19T11:29:55.000-07:00
diff --git a/tests/testthat/test-epix_slide.R b/tests/testthat/test-epix_slide.R
@@ -27,7 +27,7 @@ test_that("epix_slide works as intended",{
                 time_value = c(5,6),
                 sum_binary = c(2^7,
                                2^10+2^8)) %>%
-    as_epi_df()
+    as_epi_df(as_of = 1)
   
   expect_identical(xx1,xx2) # *
   
