From 917f797d7fac9e041e64c091c3a1309e0191c0ab Mon Sep 17 00:00:00 2001
From: elmeraa <eazadpour@usgs.gov>
Date: Wed, 31 Jan 2024 09:39:50 -0800
Subject: [PATCH] edit viz targets to use list of census dfs

---
 3_visualize.R | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/3_visualize.R b/3_visualize.R
index 401d42c..b456eed 100644
--- a/3_visualize.R
+++ b/3_visualize.R
@@ -4,7 +4,7 @@ p3_targets <- list(
   tar_target(
     p3_med_income_png,
     plot_census_map(
-      census_data = p2_med_income_sf,
+      census_data = p2_perc_census_layers_sf[[2]],
       var = 'estimate', 
       conus_sf = p1_conus_sf, 
       outfile_path = "3_visualize/out/med_income_census_2022.png",
@@ -25,7 +25,7 @@ p3_targets <- list(
   tar_target(
     p3_tot_black_png,
     plot_census_map(
-      census_data = p2_tot_black_sf,
+      census_data = p2_perc_census_layers_sf[[3]],
       var = 'estimate',
       conus_sf = p1_conus_sf, 
       outfile_path = "3_visualize/out/tot_black_census_2022.png",
@@ -47,7 +47,7 @@ p3_targets <- list(
   tar_target(
     p3_perc_black_png,
     plot_census_map(
-      census_data = p2_perc_black_sf,
+      census_data = p2_perc_census_layers_sf[[3]],
       var = 'percent',
       conus_sf = p1_conus_sf, 
       outfile_path = "3_visualize/out/perc_black_census_2022.png",
@@ -68,7 +68,7 @@ p3_targets <- list(
   tar_target(
     p3_tot_latino_png,
     plot_census_map(
-      census_data = p2_tot_latino_sf,
+      census_data = p2_perc_census_layers_sf[[4]],
       var = 'estimate',
       conus_sf = p1_conus_sf, 
       outfile_path = "3_visualize/out/tot_latino_census_2022.png",
@@ -89,7 +89,7 @@ p3_targets <- list(
   tar_target(
     p3_perc_latino_png,
     plot_census_map(
-      census_data = p2_perc_latino_sf,
+      census_data = p2_perc_census_layers_sf[[4]],
       var = 'percent',
       conus_sf = p1_conus_sf, 
       outfile_path = "3_visualize/out/perc_latino_census_2022.png",
@@ -110,7 +110,7 @@ p3_targets <- list(
   tar_target(
     p3_tot_male_png,
     plot_census_map(
-      census_data = p2_tot_male_sf,
+      census_data = p2_perc_census_layers_sf[[5]],
       var = 'estimate',
       conus_sf = p1_conus_sf, 
       outfile_path = "3_visualize/out/tot_male_census_2022.png",
@@ -131,7 +131,7 @@ p3_targets <- list(
   tar_target(
     p3_tot_female_png,
     plot_census_map(
-      census_data = p2_tot_female_sf,
+      census_data = p2_perc_census_layers_sf[[6]],
       var = 'estimate', 
       conus_sf = p1_conus_sf, 
       outfile_path = "3_visualize/out/tot_female_census_2022.png",
-- 
GitLab