Regional data sets - Regional

Data - BEA

Author

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 and MSA personal income summary: personal income, population, per capita personal income	[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 .}