data-raw/high_schools.R

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

# High School Codes -------------------------------------------------------

library(tidyverse)

con <- ccpsr::set_con()

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

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