data-raw/METADATA_FOR_ACS_GROUPS.R

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

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

.RAW_GROUPS <- "groups" |>
    latest_acs_metadata() |>
    dplyr::mutate(
        Description = stringr::str_remove(
            .data$Description,
            " \\(in \\d{4} Inflation-Adjusted Dollars\\)"
        )
    )

.GROUPS_WHEN_THEY_OCCUR <- .RAW_GROUPS |>
    dplyr::count(
        .data$Group,
        .data$Dataset,
        name = "Count"
    ) |>
    dplyr::mutate(
        Count = as.logical(.data$Count)
    ) |>
    tidyr::pivot_wider(
        names_from = "Dataset",
        values_from = "Count",
        values_fill = FALSE
    )

.LONGEST_DESCRIPTIONS <- .RAW_GROUPS |>
    dplyr::summarize(
        dplyr::across(c("Description", "Universe"),
                      \(.s) dplyr::last(.s, order_by = nchar(.s))
                      ),
        .by = "Group"
    )

METADATA_FOR_ACS_GROUPS <- .GROUPS_WHEN_THEY_OCCUR |>
    dplyr::inner_join(
        .LONGEST_DESCRIPTIONS,
        by = "Group"
    ) |>
    dplyr::select(
        "Group",
        "Universe",
        "Description",
        "ACS1",
        "ACS5"
    )

usethis::use_data(METADATA_FOR_ACS_GROUPS, overwrite = TRUE)