data-raw/middle_schools.R

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

# Middle School Codes -----------------------------------------------------

library(tidyverse)

con <- ccpsr::set_con()

middle_school_codes <- odbc::dbGetQuery(con, '
                   SELECT SCHOOL_CODE
                   FROM [CCPS_Shared].[CCPS_Shared].[RE_Organizations]
                   WHERE (SCHOOL_TYPE LIKE \'2%\')
                   ') %>%
  tibble::as_tibble() %>%
  dplyr::pull()

#writing out
save(middle_school_codes, file = here::here("data/middle_school_codes.RData"))