## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 5
)
library(ciecl)

## ----eval=FALSE---------------------------------------------------------------
# # From GitHub (beta version)
# pak::pak("RodoTasso/ciecl")
# 
# # Alternative with devtools
# devtools::install_github("RodoTasso/ciecl")

## -----------------------------------------------------------------------------
# All type 2 diabetes codes
cie10_sql("SELECT codigo, descripcion FROM cie10 WHERE codigo LIKE 'E11%' LIMIT 5")

## -----------------------------------------------------------------------------
# Single code search
cie_lookup("E11.0")

# Vectorized search - multiple codes at once
codes <- c("E11.0", "I10", "Z00", "J44.0")
cie_lookup(codes)

# Hierarchical expansion
cie_lookup("E11", expandir = TRUE)

## -----------------------------------------------------------------------------
# Finds even if misspelled
cie_search("diabetis with coma", threshold = 0.75)

## ----eval=FALSE---------------------------------------------------------------
# # Requires: install.packages("comorbidity")
# patient_df <- data.frame(
#   patient_id = c(1, 1, 2, 2, 3),
#   diagnosis = c("E11.0", "I50.9", "C50.9", "N18.5", "J44.0")
# )
# 
# cie_comorbid(patient_df, id = "patient_id", code = "diagnosis", map = "charlson")

## ----eval=FALSE---------------------------------------------------------------
# # Requires: install.packages("gt")
# cie_table("E11")  # Full GT visualization