data-raw/elem_director_crosswalk.R

In ekholme-ccps/ccpsr: Tools for Working with CCPS Data

library(tidyverse)

raw <- read_csv(here::here("data-raw/sch_director_crosswalk.csv"))

es <- raw %>%
  filter(LV == "ES")


# Getting School IDs for Each Dir -----------------------------------------

booth_school_codes <- es %>%
  filter(LD == "MB") %>%
  pull(2)

save(booth_school_codes, file = here::here("data/booth_school_codes.RData"))

foglesong_school_codes <- es %>%
  filter(LD == "RF") %>%
  pull(2)

save(foglesong_school_codes, file = here::here("data/foglesong_school_codes.RData"))

stefanko_school_codes <- es %>%
  filter(LD == "BS") %>%
  pull(2)

save(stefanko_school_codes, file = here::here("data/stefanko_school_codes.RData"))