# \donttest{
cdm <- mockVocabRef("database")
codes <- list("Musculoskeletal disorder" = 1)
cdm <- omopgenerics::insertTable(cdm, "condition_occurrence",
dplyr::tibble(person_id = 1,
condition_occurrence_id = 1,
condition_concept_id = 0,
condition_start_date = as.Date("2000-01-01"),
condition_type_concept_id = NA,
condition_source_concept_id = 7))
summariseUnmappedCodes(x = list("osteoarthritis" = 2), cdm = cdm,
table = "condition_occurrence")
CDMConnector::cdmDisconnect(cdm)
# }
Run the code above in your browser using DataLab