event cohorts change

ohdsi-studies · Nov 20, 2023 · b3feed6 · b3feed6
1 parent 6d796b6
commit b3feed6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/runStudy.R b/R/runStudy.R
@@ -69,7 +69,7 @@ runStudy <- function(connectionDetails,
     # Target and treatment cohorts sections
     targetCohorts <- readr::read_csv(file.path(outputFolder, "cohortsGenerated.csv")) %>% 
       filter(cohortId <= 100)
-    treatmentCohorts <- readr::read_csv(file.path(outputFolder, "cohortsGenerated.csv")) %>%
+    eventCohorts <- readr::read_csv(file.path(outputFolder, "cohortsGenerated.csv")) %>%
       filter(between(cohortId, 100, 114))
     for (i in seq(1:length(targetCohorts$cohortId))) {
       outputSubDir <- file.path(outputFolder, 'treatmentPatterns', targetCohorts[i,]$cohortId)
@@ -78,7 +78,7 @@ runStudy <- function(connectionDetails,
       }
       # TreatmentPathways for each target cohort with treatments
       cohortsGenerated <- targetCohorts[i,] %>%
-        dplyr::bind_rows(treatmentCohorts)
+        dplyr::bind_rows(eventCohorts)
       cohortIds <- cohortsGenerated$cohortId
       runTreatmentPatterns(connectionDetails = connectionDetails, 
                            cdmDatabaseSchema = cdmDatabaseSchema,