# \donttest{
library(CodelistGenerator)
cdm <- mockVocabRef("database")
codes <- getCandidateCodes(cdm = cdm,
keywords = "Musculoskeletal disorder",
domains = "Condition",
includeDescendants = FALSE)
codelist <- omopgenerics::newCodelist(list("msk" = codes$concept_id))
orphan_codes <- summariseOrphanCodes(x = codelist,
cdm = cdm)
orphan_codes
CDMConnector::cdmDisconnect(cdm)
# }
Run the code above in your browser using DataLab