Vocabularies

# Basic list
result <- client$vocabularies$list()
for (vocab in result$data$vocabularies) {
  cat(sprintf("%s: %s\n", vocab$vocabulary_id, vocab$vocabulary_name))
}

# Include statistics
result <- client$vocabularies$list(include_stats = TRUE)
for (vocab in result$data$vocabularies) {
  cat(sprintf("%s: %s concepts\n", vocab$vocabulary_id, vocab$concept_count))
}

# Custom sorting and pagination
result <- client$vocabularies$list(
  sort_by = "name",
  sort_order = "asc",
  page = 1,
  page_size = 50
)

vocab <- client$vocabularies$get("SNOMED")
cat(sprintf("Name: %s\n", vocab$data$vocabulary_name))
cat(sprintf("Version: %s\n", vocab$data$vocabulary_version))
cat(sprintf("Reference: %s\n", vocab$data$vocabulary_reference))

stats <- client$vocabularies$stats("SNOMED")
cat(sprintf("Total concepts: %d\n", stats$total_concepts))
cat(sprintf("Standard concepts: %d\n", stats$standard_concepts))

result <- client$vocabularies$domain_stats("SNOMED", "Condition")
cat(sprintf("Total concepts: %d\n", result$data$total_concepts))
cat(sprintf("Standard concepts: %d\n", result$data$standard_concepts))

# View concept class breakdown
for (cls in result$data$concept_classes) {
  cat(sprintf("%s: %d concepts\n", cls$concept_class_id, cls$concept_count))
}

result <- client$vocabularies$domains()
for (domain in result$data$domains) {
  cat(sprintf("%s: %s\n", domain$domain_id, domain$domain_name))
}

result <- client$vocabularies$concept_classes()
for (cls in result$data) {
  cat(sprintf("%s: %s\n", cls$concept_class_id, cls$concept_class_name))
}

# Basic usage
result <- client$vocabularies$concepts("SNOMED", page_size = 100)
for (concept in result$data$concepts) {
  cat(sprintf("%s (%d)\n", concept$concept_name, concept$concept_id))
}

# Search within vocabulary
result <- client$vocabularies$concepts(
  "SNOMED",
  search = "diabetes",
  standard_concept = "S",
  page_size = 50
)

# Include additional data
result <- client$vocabularies$concepts(
  "SNOMED",
  search = "hypertension",
  include_relationships = TRUE,
  include_synonyms = TRUE
)

# With sorting
result <- client$vocabularies$concepts(
  "RxNorm",
  sort_by = "concept_id",
  sort_order = "desc",
  page_size = 100
)

# Include invalid/deprecated concepts
result <- client$vocabularies$concepts(
  "ICD10CM",
  include_invalid = TRUE,
  page = 1,
  page_size = 50
)

# Pagination
cat(sprintf("Page %d of %d\n",
  result$meta$pagination$page,
  result$meta$pagination$total_pages
))
cat(sprintf("Total: %d concepts\n", result$meta$pagination$total_items))