remove unnecessary attrition

closes #307
OHDSI · Sep 23, 2024 · 47d3a60 · 47d3a60
1 parent bbe0b4a
commit 47d3a60
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/conceptCohort.R b/R/conceptCohort.R
@@ -151,15 +151,15 @@ conceptCohort <- function(cdm,
   }
 
   cli::cli_inform(c("i" = "Applying cohort requirements."))
-  cdm[[name]] <- fulfillCohortReqs(cdm = cdm, name = name) |>
-    omopgenerics::recordCohortAttrition("cohort requirements")
+  cdm[[name]] <- fulfillCohortReqs(cdm = cdm, name = name)
+  cdm[[name]] <- newCohortTable(table = cdm[[name]],
+                                .softValidation = TRUE)
 
   cli::cli_inform(c("i" = "Collapsing records."))
   cdm[[name]] <- cdm[[name]] |>
-    joinOverlap(name = name, gap = 0) |>
-    omopgenerics::recordCohortAttrition("Overlapping records collapsed")
-
-
+    joinOverlap(name = name, gap = 0)
+  cdm[[name]] <- newCohortTable(table = cdm[[name]],
+                                .softValidation = TRUE)
 
   cli::cli_inform(c("v" = "Cohort {.strong {name}} created."))