Update LICENSE and README files to reflect copyright and add comprehensive examples

Author: alex-omophub

LICENSE.md

@@ -1,6 +1,6 @@
 # MIT License
 
-Copyright (c) 2025 OMOPHub Team
+Copyright (c) 2025 OMOPHub
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

README.md

@@ -115,12 +115,30 @@ tryCatch(
 )
 ```
 
+## Examples
+
+The package includes comprehensive examples in `inst/examples/`:
+
+| Example | Description |
+|---------|-------------|
+| [`basic_usage.R`](inst/examples/basic_usage.R) | Getting started - client setup, concept lookup, search |
+| [`search_concepts.R`](inst/examples/search_concepts.R) | Search capabilities - filters, autocomplete, pagination |
+| [`navigate_hierarchy.R`](inst/examples/navigate_hierarchy.R) | Hierarchy navigation - ancestors, descendants, relationships |
+| [`map_between_vocabularies.R`](inst/examples/map_between_vocabularies.R) | Vocabulary mapping - ICD-10, SNOMED, batch mapping |
+| [`error_handling.R`](inst/examples/error_handling.R) | Error handling patterns - tryCatch, retry logic |
+
+Run an example:
+```r
+# After installing the package
+example_path <- system.file("examples", "basic_usage.R", package = "omophub")
+source(example_path)
+```
 
 ## Documentation
 
 - [Full Documentation](https://docs.omophub.com/sdks/r/overview)
 - [API Reference](https://docs.omophub.com/api-reference)
-- [Examples](https://github.com/omopHub/omophub-r/tree/main/examples)
+- [Examples](https://github.com/omopHub/omophub-r/tree/main/inst/examples)
 
 ## License
 

inst/examples/basic_usage.R

@@ -0,0 +1,103 @@
+#!/usr/bin/env Rscript
+#' Example: Basic Usage
+#'
+#' Demonstrates basic OMOPHub client usage including:
+#' - Client initialization
+#' - Getting a single concept
+#' - Basic search
+#' - Listing vocabularies
+#'
+#' Run with: Rscript inst/examples/basic_usage.R
+
+library(omophub)
+
+# ============================================================================
+# Setup
+# ============================================================================
+
+# Initialize client (uses OMOPHUB_API_KEY environment variable)
+# You can also pass the API key directly:
+#   client <- omophub(api_key = "oh_your_api_key")
+client <- omophub()
+
+cat("OMOPHub R Client - Basic Usage Example\n")
+cat("======================================\n\n")
+
+# ============================================================================
+# Get a Single Concept
+# ============================================================================
+
+cat("1. Getting a single concept by ID\n")
+cat("---------------------------------\n")
+
+# Get Type 2 diabetes mellitus (SNOMED concept)
+concept <- client$concepts$get(201826)
+
+cat("Concept ID:", concept$concept_id, "\n")
+cat("Name:", concept$concept_name, "\n")
+cat("Vocabulary:", concept$vocabulary_id, "\n")
+cat("Domain:", concept$domain_id, "\n")
+cat("Concept Class:", concept$concept_class_id, "\n")
+cat("Concept Code:", concept$concept_code, "\n")
+cat("Standard Concept:", concept$standard_concept, "\n\n")
+
+# ============================================================================
+# Basic Search
+# ============================================================================
+
+cat("2. Searching for concepts\n")
+cat("-------------------------\n")
+
+# Search for diabetes-related concepts
+results <- client$search$basic("diabetes", page_size = 5)
+
+cat("Found concepts matching 'diabetes':\n")
+concepts <- results$data %||% results$concepts %||% results
+for (c in concepts) {
+  cat(sprintf("  [%s] %s (%s)\n",
+              c$concept_id,
+              c$concept_name,
+              c$vocabulary_id))
+}
+cat("\n")
+
+# ============================================================================
+# List Vocabularies
+# ============================================================================
+
+cat("3. Listing available vocabularies\n")
+cat("---------------------------------\n")
+
+# Get first 10 vocabularies
+vocabs <- client$vocabularies$list(page_size = 10)
+
+cat("Available vocabularies:\n")
+vocab_list <- vocabs$data %||% vocabs$vocabularies %||% vocabs
+for (v in vocab_list) {
+  cat(sprintf("  %s - %s\n",
+              v$vocabulary_id,
+              v$vocabulary_name))
+}
+cat("\n")
+
+# ============================================================================
+# Get Concept with Additional Information
+# ============================================================================
+
+cat("4. Getting a concept with relationships\n")
+cat("---------------------------------------\n")
+
+# Get concept with relationships included
+concept_full <- client$concepts$get(201826, include_relationships = TRUE)
+
+cat("Concept:", concept_full$concept_name, "\n")
+if (!is.null(concept_full$relationships)) {
+  cat("Number of relationships:", length(concept_full$relationships), "\n")
+}
+cat("\n")
+
+# ============================================================================
+# Done
+# ============================================================================
+
+cat("Done!\n")