if (FALSE) {
v <- get_result_vote(12345)
table(v$vote)
p <- get_proposal_votes(12345)
stringr::str_replace_all(p$proposal_vote$proposal_text,
"\\<(.*)\\>|\\r\\n", "") |>
stringr::str_trim()
}
Run the code above in your browser using DataLab