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