From fbc49fa518a979bb055fa4a8a7d43bee8c3ae495 Mon Sep 17 00:00:00 2001 From: Ben Varick Date: Mon, 27 Jan 2025 16:12:48 -0600 Subject: [PATCH] added district double check to schoolmaps_PDFs.Rmd --- R/schoolmaps_PDFs.Rmd | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/R/schoolmaps_PDFs.Rmd b/R/schoolmaps_PDFs.Rmd index 4fd07cb..5543942 100644 --- a/R/schoolmaps_PDFs.Rmd +++ b/R/schoolmaps_PDFs.Rmd @@ -431,11 +431,13 @@ for(school in WI_schools$district_school) { double_check[[school]] <- school_check } double_check <- bind_rows(double_check) -unique(WI_schools %>% +write_csv(double_check, file = "parameters/double_check.csv") + +districts_not_done <- data.frame(districts = c(unique(WI_schools %>% filter(district_school %in% (double_check %>% filter(exists == FALSE) %>% pull(district_school)), !st_is_empty(SHAPE)) %>% - pull(DISTRICT_NAME)) -write_csv(double_check, file = "parameters/double_check.csv") + pull(DISTRICT_NAME)))) +write_csv(districts_not_done, file = "parameters/districts_not_done.csv") ``` \ No newline at end of file