calculate all starts + before at once

cmu-delphi · Jan 17, 2024 · 7ac9c6e · 7ac9c6e
1 parent 94a4d27
commit 7ac9c6e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/slide.R b/R/slide.R
@@ -351,8 +351,9 @@ epi_slide = function(x, f, ..., before, after, ref_time_values,
   f_wrapper_factory = function(starts) {
     # Use `i` to advance through list of start dates.
     i <- 1L
+    starts <- starts + before
     f_wrapper = function(.x, .group_key, ...) {
-      .ref_time_value = starts[[i]] + before
+      .ref_time_value = starts[[i]]
       i <<- i + 1L
       f(.x, .group_key, .ref_time_value, ...)
     }

diff --git a/tests/testthat/test-epi_slide.R b/tests/testthat/test-epi_slide.R
@@ -567,6 +567,4 @@ test_that("epi_slide gets correct ref_time_value when groups have non-overlappin
               slide_value = .ref_time_value)
 
   expect_identical(result1, expected_output)
-
-
 })
Original file line number	Diff line number	Diff line change
Expand Up		@@ -567,6 +567,4 @@ test_that("epi_slide gets correct ref_time_value when groups have non-overlappin
		slide_value = .ref_time_value)

		expect_identical(result1, expected_output)


		})