data-raw/METADATA_FOR_ACS_GEOGRAPHIES.R

In higherX4Racine/hercacstables: Work with American Community Survey Tables through the US Census API

## Copyright (C) 2025 by Higher Expectations for Racine County

METADATA_FOR_ACS_GEOGRAPHIES <- "geography" |>
    latest_acs_metadata() |>
    dplyr::mutate(
        `Containing Geographies` = purrr::map_chr(
            .data$`Containing Geographies`,
            \(.) paste0(., collapse = ", ")
        )
    ) |>
    dplyr::summarize(
        dplyr::across(c("Containing Geographies", "Wildcard Option"),
                      \(.){
                          .a <- .[!is.na(.) & nchar(.) > 0]
                          .b <- paste0("{", .a, "}", collapse = "; ")
                          stringr::str_remove(.b, "\\{\\}")
                      }),
        .by = c("Geographic Level", "Dataset", "Reference Date")
    ) |>
    tidyr::pivot_wider(
        names_from = "Dataset",
        values_from = "Reference Date"
    )

usethis::use_data(METADATA_FOR_ACS_GEOGRAPHIES, overwrite = TRUE)