## ----eval=FALSE---------------------------------------------------------------
# library(wbids)

## ----eval=FALSE---------------------------------------------------------------
# # Step 1: Get list of available files
# files <- ids_bulk_files()
# 
# # Step 2: Download each file
# data_list <- lapply(files$file_url, ids_bulk)
# 
# # Step 3: Combine all data
# full_data <- rbind(data_list)

## ----eval=FALSE---------------------------------------------------------------
# full_data <- ids_get_ed("debt_statistics")