```{r eval}
library(sf)
```

```{r}
# src <- "http://cdmaps.polisci.ucla.edu/shp/districts113.zip"
# dsn_districts <- "data/districtShapes/"
dsn_districts <- fs::path(fs::path_wd(), "data", "districtShapes")
#st_layers(dsn_districts)
districts <- st_read(dsn_districts, layer = "districts113") %>%
  mutate(DISTRICT = parse_number(as.character(DISTRICT))) %>% 
  janitor::clean_names()
```
