if (FALSE) {
# Needs Census Bureau API
cd <- tinytiger::tt_congressional_districts() %>% filter(STATEFP == '49')
cnty <- tinytiger::tt_counties(state = 49)
matchedcty <- geo_match(from = cnty, to = cd)
# use counties as precincts and let the plan be their center match:
r2dra(cnty, matchedcty, 'UT', 'r2dra_ex.csv')
}
Run the code above in your browser using DataLab