# \donttest{
library(omock)
library(CodelistGenerator)
library(dplyr, warn.conflicts = FALSE)
# Create CDM object
cdm <- mockCdmFromDataset(datasetName = "GiBleed")
codes <- getCandidateCodes(cdm = cdm,
keywords = c("sprain", "fracture"),
exclude = "knee",
domains = "Condition",
standardConcept = "Standard",
searchNonStandard = FALSE,
searchInSynonyms = TRUE,
includeDescendants = TRUE,
includeAncestor = FALSE)
searchStrategy(codes) |>
glimpse()
# }
Run the code above in your browser using DataLab