2023-08-11_block-level_occupancy-status.R

table <- tidycensus::get_decennial(
  geography = "block",
  state = "MD",
  county = "Baltimore city",
  year = 2020,
  table = "H1"
)

label_census <- function(data,
                         year = 2020,
                         dataset = "pl",
                         survey = NULL,
                         cache = TRUE,
                         variable_col = "variable") {
  vars <- tidycensus::load_variables(year, survey %||% dataset, cache)
  vars <- dplyr::rename(vars, "{variable_col}" := name)
  
  dplyr::left_join(
    data,
    vars,
    by = dplyr::join_by({{ variable_col }})
  )
}

label_census(table)