# \donttest{
library(MeasurementDiagnostics)
cdm <- mockMeasurementDiagnostics()
result <- summariseMeasurementUse(
cdm = cdm,
codes = list("test_codelist" = c(3001467L, 45875977L))
)
result |>
dplyr::filter(variable_name == "time") |>
plotMeasurementTimings()
CDMConnector::cdmDisconnect(cdm)
# }
Run the code above in your browser using DataLab