# \donttest{
library(CodelistGenerator)
library(omock)
# Create a CDM object
cdm <- mockCdmReference()
# Intersect two codelists
codelist <- newCodelist(list("mood" = c(37110496L, 4226696L, 4304866L),
"manic" = c(37110496L, 4226696L)))
intersectCodelists(codelist, keepOriginal = TRUE)
# Intersect two codelists_with_details
codelist <- asCodelistWithDetails(codelist, cdm)
intersectCodelists(codelist, keepOriginal = FALSE)
# }
Run the code above in your browser using DataLab