R/tidycensus.R

In dgkeyes/dkmisc: David Keyes Personal R Package

#' Title
#'
#' @param year
#'
#' @return
#' @export
#'
#' @examples
view_acs_variables <- function(year = 2018) {
     tidycensus::load_variables(year, "acs5", cache = TRUE) %>%
          tibble::view()
}


#' Title
#'
#' @param year
#'
#' @return
#' @export
#'
#' @examples
view_census_vars <- function(year = 2010) {
     tidycensus::load_variables(year, "sf1", cache = TRUE) %>%
          tibble::view()
}

#' Title
#'
#' @param ...
#'
#' @return
#' @export
#'
#' @examples
get_acs_race_ethnicity <- function(...) {

     get_acs(...,
             variables = c("White" = "B03002_003",
                           "Black/African American" = "B03002_004",
                           "American Indian/Alaska Native" = "B03002_005",
                           "Asian" = "B03002_006",
                           "Native Hawaiian/Pacific Islander" = "B03002_007",
                           "Other race" = "B03002_008",
                           "Multi-Race" = "B03002_009",
                           "Hispanic/Latino" = "B03002_012")) %>%
          clean_names() %>%
          set_names(c("geoid", "geography", "population_group", "estimate", "moe"))

}