Regional data sets - Regional

Data - BEA

Author

Last data update: 25 juil. 2026, 12:36

Last compile: 04 sept. 2026, 23:41

List

Code

paste0("https://apps.bea.gov/api/data/?&",
       "UserID=", bea_key, "&",
       "method=GetParameterValues&",
       "DataSetName=Regional&",
       "ParameterName=TableName&") |>
  fromJSON() |>
  pluck("BEAAPI", "Results", "ParamValue") |>
  select(Key, Desc) %>%
  filter((Key %in% (list.files(pattern = "\\.qmd$") %>% gsub(".qmd$", "", .)))) |>
  arrange(Key) |>
  mutate(html = paste0("[html](", Key, '.html)')) %>%
  {if (is_html_output()) print_table(.) else .}

Key	Desc	html
CAINC1	County personal income summary: personal income, population, per capita personal income	[html](CAINC1.html)

List of Parameters

Code

paste0("https://apps.bea.gov/api/data/?&",
       "UserID=", bea_key, "&",
       "method=GetParameterList&",
       "DataSetName=Regional&") |>
  fromJSON() |>
  pluck("BEAAPI", "Results", "Parameter") |> 
  select(ParameterName, ParameterDataType, ParameterDescription) %>%
  {if (is_html_output()) print_table(.) else .}

ParameterName	ParameterDataType	ParameterDescription
GeoFips	string	Comma-delimited list of 5-character geographic codes; COUNTY for all counties, STATE for all states, MSA for all MSAs, MIC for all Micropolitan Areas, PORT for all state metro/nonmetro portions, DIV for all Metropolitan Divisions, CSA for all Combined Statistical Areas, state post office abbreviation for all counties in one state (e.g. NY)
LineCode	integer	Line code for a statistic or industry
TableName	string	Regional income or product table to retrieve
Year	string	Comma-delimted list of years; LAST5 for latest 5 years; LAST10 for latest 10 years; ALL for all years

TableName

Code

paste0("https://apps.bea.gov/api/data/?&",
       "UserID=", bea_key, "&",
       "method=GetParameterValues&",
       "DataSetName=Regional&",
       "ParameterName=TableName&") |>
  fromJSON() |>
  pluck("BEAAPI", "Results", "ParamValue") |>
  select(Key, Desc) %>%
  {if (is_html_output()) datatable(., filter = 'top', rownames = F) else .}