another filter before join

OHDSI · Dec 21, 2023 · 5bb4c8a · 5bb4c8a
1 parent 8f8ccb8
commit 5bb4c8a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/PopulationSettings.R b/R/PopulationSettings.R
@@ -334,9 +334,9 @@ createStudyPopulation <- function(
       ParallelLogger::logTrace("Removing subjects with prior outcomes (if any)")
 
     # get the outcomes during TAR
-    outcomeBefore <- population %>% 
-      dplyr::inner_join(plpData$outcomes, by ='rowId') %>% 
+    outcomeBefore <- plpData$outcomes %>% 
       dplyr::filter(outcomeId == get('oId'))  %>% 
+      dplyr::inner_join(population, by = 'rowId') %>% 
       dplyr::select("rowId", "daysToEvent", "tarStart") %>% 
       dplyr::filter(.data$daysToEvent < .data$tarStart & .data$daysToEvent > -get('priorOutcomeLookback') )