support for 2020-2022 population estimates

walkerke · Apr 3, 2023 · a258643 · a258643
1 parent f2ce4ea
commit a258643
Show file tree

Hide file tree

Showing 9 changed files with 382 additions and 226 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,12 +1,12 @@
 Package: tidycensus
 Type: Package
 Title: Load US Census Boundary and Attribute Data as 'tidyverse' and 'sf'-Ready Data Frames
-Version: 1.3.2.9000
+Version: 1.3.3
 Authors@R: c(
     person(given = "Kyle", family = "Walker", email="kyle@walker-data.com", role=c("aut", "cre")),
     person(given = "Matt", family = "Herman", email = "mfherman@gmail.com", role = "aut"),
     person(given = "Kris", family = "Eberwein", email = "eberwein@knights.ucf.edu", role = "ctb"))
-Date: 2023-02-14
+Date: 2023-04-03
 URL: https://walker-data.com/tidycensus/
 BugReports: https://github.com/walkerke/tidycensus/issues
 Description: An integrated R interface to several United States Census Bureau 

diff --git a/NAMESPACE b/NAMESPACE
@@ -38,6 +38,7 @@ importFrom(purrr,map_dfc)
 importFrom(purrr,modify_depth)
 importFrom(purrr,reduce)
 importFrom(readr,parse_factor)
+importFrom(readr,read_csv)
 importFrom(readr,read_rds)
 importFrom(readr,write_rds)
 importFrom(rlang,.data)

diff --git a/R/census.R b/R/census.R
@@ -78,7 +78,7 @@ get_decennial <- function(geography,
                                       "as", "gu", "vi", "mp",
                                       "responserate", "pes",
                                       "dpvi", "dpgu", "dpas",
-                                      "dpmp"),
+                                      "dpmp", "sldh"),
                           state = NULL,
                           county = NULL,
                           geometry = FALSE,

diff --git a/R/estimates.R b/R/estimates.R
diff --git a/R/helpers.R b/R/helpers.R
@@ -3,6 +3,11 @@
 use_tigris <- function(geography, year, cb = TRUE, resolution = "500k",
                        state = NULL, county = NULL, starts_with = NULL, ...) {
 
+  # Handle missing 2022 CB files for now
+  if (year == 2022) {
+    year <- 2021
+  }
+
   if (year %in% 2011:2012) {
     cb <- FALSE
   }

diff --git a/R/load_data.R b/R/load_data.R
@@ -707,6 +707,8 @@ load_data_estimates <- function(geography, product = NULL, variables = NULL, key
   return(dat)
 }
 
+load_data_estimates_2020 <- function()
+
 
 
 load_data_pums <- function(variables, state, puma, key, year, survey,

diff --git a/R/tidycensus-package.R b/R/tidycensus-package.R
@@ -15,7 +15,7 @@
 #' @import stringr
 #' @import rvest
 #' @import rappdirs
-#' @importFrom readr read_rds write_rds parse_factor
+#' @importFrom readr read_rds write_rds parse_factor read_csv
 #' @importFrom xml2 read_html
 #' @import units
 #' @importFrom utils packageVersion installed.packages

diff --git a/man/get_decennial.Rd b/man/get_decennial.Rd
diff --git a/man/get_estimates.Rd b/man/get_estimates.Rd
-Original file line number
+Diff line change
@@ Expand Up @@
       return(dat)
     }
+    load_data_estimates_2020 <- function()
     load_data_pums <- function(variables, state, puma, key, year, survey,
@@ Expand Down @@