diff --git a/R/conceptCohort.R b/R/conceptCohort.R index 0bc62c03..68327c68 100644 --- 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."))