# \donttest{
library(PhenotypeR)
library(dplyr)
cdm <- mockPhenotypeR()
dateStart <- cdm$my_cohort |>
summarise(start = min(cohort_start_date, na.rm = TRUE)) |>
pull("start")
dateEnd <- cdm$my_cohort |>
summarise(start = max(cohort_start_date, na.rm = TRUE)) |>
pull("start")
result <- cdm$my_cohort |>
populationDiagnostics(populationDateRange = c(dateStart, dateEnd))
CDMConnector::cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab