ben/wisconsin_crashes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added district double check to schoolmaps_PDFs.Rmd

Browse Source
This commit is contained in:
Ben Varick 2025-01-27 16:12:48 -06:00
parent 61bf55f116
commit fbc49fa518
Signed by: ben
SSH Key Fingerprint: SHA256:jWnpFDAcacYM5aPFpYRqlsamlDyKNpSj3jj+k4ojtUo
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
R/schoolmaps_PDFs.Rmd
View File

@ -431,11 +431,13 @@ for(school in WI_schools$district_school) {
double_check[[school]] <- school_check double_check[[school]] <- school_check
} }
double_check <- bind_rows(double_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(district_school %in% (double_check %>%
filter(exists == FALSE) %>% filter(exists == FALSE) %>%
pull(district_school)), pull(district_school)),
!st_is_empty(SHAPE)) %>% !st_is_empty(SHAPE)) %>%
pull(DISTRICT_NAME)) pull(DISTRICT_NAME))))
write_csv(double_check, file = "parameters/double_check.csv") write_csv(districts_not_done, file = "parameters/districts_not_done.csv")
``` ```