# \donttest{
library(CodelistGenerator)
library(omopgenerics)
cdm <- mockVocabRef()
codes <- subsetOnVocabulary(
x = newCodelist(list("codes" = c(1L,13L,15L))),
cdm = cdm,
vocabulary = "SNOMED")
codes
# }
Run the code above in your browser using DataLab