Merge pull request #25 from openjusticeok/census_population

Fixed county_pop to use correct census data
openjusticeok · Jun 22, 2021 · 1cc3c64 · 1cc3c64
2 parents 6527e5e + 78baed0
commit 1cc3c64
Showing 1 changed file with 12 additions and 11 deletions.
diff --git a/R/county_pop.R b/R/county_pop.R
@@ -13,20 +13,21 @@ county_pop <- function(years) {
   d <- tibble()
 
   for (y in years) {
-    d <- tidycensus::get_acs("county",
-                 variables = c(pop = "B01003_001"),
-                 state = "OK",
-                 year = y) %>%
-      mutate(year = y) %>%
+    d <- tidycensus::get_estimates(product = "population",
+                                   year = y,
+                                   geography = "county",
+                                   state = "OK") |>
+      filter(variable == "POP") |>
+      mutate(year = y) |>
       bind_rows(d)
   }
 
-  d <- d %>%
-    mutate(court = NAME %>%
-             str_remove(" County.*") %>%
-             str_to_upper %>%
-             str_remove_all(" ")) %>%
-    select(court, year, pop = estimate)
+  d <- d |>
+    mutate(court = NAME |>
+             str_remove(" County.*") |>
+             str_to_upper() |>
+             str_remove_all(" ")) |>
+    select(court, year, pop = value)
 
   return(d)
 }