## Not run:
# # Get codelist from url:
# angina_codes <- get_ClinicalCodes(
# url = "https://clinicalcodes.rss.mhs.man.ac.uk/medcodes/article/6/codelist/angina/download/")
# head(angina_codes)
# # get codelist by id and name
# depression_codes <- get_ClinicalCodes(article_id = 6, codelist_name = "depression")
# head(depression_codes)
# # Get all code lists for an article
# codelists <- get_ClinicalCodes(article_id = 2)
# sapply(codelists, nrow)
# ## End(Not run)
Run the code above in your browser using DataLab