if (FALSE) {
library(hudr)
hud_key <- Sys.getenv("HUD_API_KEY")
cbsa_codes <- get_hud_fmr_listmetros(hud_key = hud_key)
cnty_codes <- get_hud_fmr_listcounties(hud_key = hud_key)
il_msa_dt <- get_hud_il_data(entityid = cbsa_codes$cbsa_code[1],
yr = "2020",
hud_key = hud_key)
il_cnty_dt <- get_hud_il_data(entityid = cnty_codes$fips_code[1],
yr = "2020",
hud_key = hud_key)
}
Run the code above in your browser using DataLab