pipeline: add pop_hu_change_cities_no_water

tiernanmartin · Mar 5, 2024 · 6b9abe8 · 6b9abe8
1 parent 2861cb4
commit 6b9abe8
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/R/functions.R b/R/functions.R
@@ -435,8 +435,7 @@ make_pop_hu_change_cities <- function(){
 
   cities_sf <- df_cities |> 
     filter(variable == "population") |> 
-    select(geoid) |> 
-    tigris::erase_water()
+    select(geoid)
 
   pop_hu_change_cities <- df_cities |> 
     st_drop_geometry() |> 

diff --git a/_targets.R b/_targets.R
@@ -15,6 +15,7 @@ library(tidycensus)
 library(viridisLite)
 library(gt)
 library(latex2exp)
+library(tigris)
 
 # SET TARGET OPTIONS ----
 tar_option_set(
@@ -32,7 +33,8 @@ tar_option_set(
                "tidycensus",
                "viridisLite",
                "gt",
-               "latex2exp")
+               "latex2exp",
+               "tigris")
 )
 
 # SOURCE R FUNCTIONS -----------------------------------------------------------
@@ -232,7 +234,9 @@ pipeline_ps_trends <- list(
              make_pop_hu_region_list(pop_change_counties, 
                                      housing_change_counties)),
   tar_target(pop_hu_change_cities,
-             make_pop_hu_change_cities())
+             make_pop_hu_change_cities()),
+  tar_target(pop_hu_change_cities_no_water,
+             tigris::erase_water(pop_hu_change_cities))
 )
 
 # MERGE PIPELINE PARTS ----------------------------------------------------