# \donttest{
# Get monthly CES data with simplified table structure
ces_monthly <- get_national_ces()
# Get all data including annual averages with full metadata
ces_full <- get_national_ces(monthly_only = FALSE, simplify_table = FALSE)
# Get monthly data but keep all metadata columns
ces_detailed <- get_national_ces(monthly_only = TRUE, simplify_table = FALSE)
# Access the data component
ces_data <- get_bls_data(ces_monthly)
# Get full diagnostic object if needed
data_with_diagnostics <- get_national_ces(return_diagnostics = TRUE)
print_bls_warnings(data_with_diagnostics)
# }
Run the code above in your browser using DataLab