Merge pull request #423 from OHDSI/requirecohort-bug

Bug in `requireCohortIntersect`
OHDSI · Jan 15, 2025 · 717d8c2 · 717d8c2
2 parents 5bf85fd + d775738
commit 717d8c2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/requireCohortIntersect.R b/R/requireCohortIntersect.R
@@ -100,7 +100,7 @@ requireCohortIntersect <- function(cohort,
       window = window,
       censorDate = censorDate,
       nameStyle = "intersect_cohort",
-      name = name
+      name = subsetName
     )
 
   subsetCohort <- subsetCohort |>
@@ -138,6 +138,7 @@ requireCohortIntersect <- function(cohort,
     reason <- glue::glue("{reason}, censoring at {censorDate}")
   }
 
+  # add additional columns
   x <- cohort |>
     dplyr::inner_join(subsetCohort, by = c(cols)) |>
     dplyr::compute(name = name, temporary = FALSE) |>