library(sf)
data(checkerboard)
low <- checkerboard %>% dplyr::slice(1:3, 9:11)
prec <- checkerboard %>%
dplyr::slice(1:3) %>%
dplyr::summarize(geometry = sf::st_union(geometry))
dists <- checkerboard %>%
dplyr::slice(1:3, 9:11) %>%
dplyr::mutate(dist = c(1, 2, 2, 1, 3, 3)) %>%
dplyr::group_by(dist) %>%
dplyr::summarize(geometry = sf::st_union(geometry))
split_precinct(low, prec, dists, split_by_id = 'dist')
Run the code above in your browser using DataLab