knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README-" )
To get the current development version from Github:
## install devtools package if it's not already if (!requireNamespace("devtools", quietly = TRUE)) { install.packages("devtools") } ## install dev version of SenadoBR from github devtools::install_github("danielmarcelino/SenadoBR")
## load SenadoBR package library(SenadoBR) sents = fetchSenators() print(sents)
fetchGovBlocLeader(bloc="Governo") fetchGovBlocLeader(bloc="Maioria") fetchGovBlocLeader(bloc="Minoria") fetchGovBlocLeader(bloc="Bloco") fetchGovBlocLeader(bloc="PODE")
fetchRollcallVotesByInterval(initial_date = "01/02/2019")
fetchRollcallVotes(bill_id = 135251)
# get detailed information from rollcalls carried out in the period: infos <- fetchRollcallVotesByInterval(initial_date = "01/10/2020") print(infos)
# then we can extract votes from "Mapa de votação nominal" archives rollcalls = extractRollcallVotes(infos) # Result rollcalls %>% select(rollcall_id, datetime, legislator_name, legislator_party, legislator_vote)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.