This announcement from Jay Lee, Matthew Yancheff, and Mia Leung, three Reed students who were in the Data and Election Sciences course that I taught along with Prof. Andrew Bray this spring. They have released the results of their work to CRAN.
sf_cleaned <- clean_ballot(ballot = sf_bos_ballot, b_header = T, lookup = sf_bos_lookup, l_header = T, format = "WinEDS")
results7 <- rcv_tally(sf_cleaned, "Board of Supervisors, District 7")
d3_7 <- rcv::make_d3list(results = results7)
networkD3::sankeyNetwork(Links = d3_7$values, Nodes = d3_7$names, Source = "source", Target = "target", Value = "value", NodeID = "candidate", units = "voters", fontSize = 12, nodeWidth = 20)