# Load the lookup table
data(area_lookup)
# Find the area codes for all Statewide areas
state_codes <- area_lookup[area_lookup$area_type == "State", ]
# Get all Metropolitan Statistical Area codes including Arkansas.
ar_codes <- area_lookup |>
dplyr::filter(grepl("AR", specified_region) &
area_type == "Metropolitan Statistical Area")
Run the code above in your browser using DataLab