# \donttest{
library(CodelistGenerator)
library(omopgenerics)
cdm <- mockVocabRef()
codelist <- newCodelist(list("codes" = c(10L,20L,21L)))
# Dose forms present in our codelist:
codelist |> associatedDoseForms(cdm)
codes <- subsetOnDoseForm(
x = codelist,
cdm = cdm,
doseForm = "Injection")
codes
codes |> associatedDoseForms(cdm)
# }
Run the code above in your browser using DataLab