# \donttest{
library(omock)
library(CDMConnector)
# Creating CDM object
cdm <- mockCdmFromDataset(datasetName = "GiBleed")
# Creating codelist
codelist <- getDrugIngredientCodes(cdm,
nameStyle = "{concept_name}")
# Add a concept to all the codelists:
codelist$acetaminophen
codelist <- codelist |>
addConcepts(cdm, concepts = c(1L))
codelist$acetaminophen
# Add a concept to a specific codelist
codelist$amiodarone
codelist <- codelist |>
addConcepts(cdm, concepts = c(2L), codelistName = "amiodarone")
codelist$amiodarone
# See function: `excludeConcepts()` for details on how to remove specific concepts
# from a codelist
# }
Run the code above in your browser using DataLab