Fix ignoreExposureStarts option for EDE diagnostic

OHDSI · Nov 29, 2024 · 445388c · 445388c
1 parent 6f228ef
commit 445388c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/Diagnostics.R b/R/Diagnostics.R
@@ -452,7 +452,7 @@ computeExposureDaysToEvent <- function(studyPopulation, sccsData, exposureEraId,
   exposureDaysPerWindow <- exposuresRelativeToOutcome |>
     cross_join(timeWindows) |>
     filter(.data$deltaExposureEnd >= .data$startDay & .data$deltaExposureStart <= .data$endDay) |>
-    # filter(!ignoreExposureStarts | .data$deltaExposureStart <= .data$startDay) |>
+    filter(!ignoreExposureStarts | .data$deltaExposureStart <= .data$startDay) |>
     mutate(deltaExposureStart = pmax(.data$deltaExposureStart, .data$startDay),
            deltaExposureEnd = pmin(.data$deltaExposureEnd, .data$endDay)) |>
     group_by(.data$caseId, .data$windowId, .data$startDay, .data$endDay) |>