library(rcongresso)
library(DT)
library(dplyr)
library(knitr)
O RCongresso é um wrapper para a nova API RESTful da Câmara dos Deputados.
Na versão atual, podemos recuperar dados sobre proposições específicas, votações, votos dos deputados, orientações dos partidos e dados sobre os deputados.
Para recuperar uma proposição você precisa de três informações: O tipo da proposição (i.e., PEC, PL, PLP), o número da proposição e o ano em que esta foi proposta. Com isso você pode recuperar o ID da proposição na API e o conteúdo da proposição em si.
Por exemplo, para a PL 4302/1998, o projeto de lei da terceirização:
pl4302_id <- fetch_id_proposicao(tipo = "PL", numero = 4302, ano = 1998)
Com o ID da proposição, recuperamos a proposição em si:
pl4302 <- fetch_proposicao(id = pl4302_id)
glimpse(pl4302)
## Observations: 1
## Variables: 13
## $ id <int> 20794
## $ uri <chr> "https://dadosabertos.camara.leg.br/api/v2/pr...
## $ siglaTipo <chr> "PL"
## $ idTipo <int> 139
## $ numero <int> 4302
## $ ano <int> 1998
## $ ementa <chr> "Dispõe sobre as relações de trabalho na empr...
## $ dataApresentacao <chr> "1998-03-19T03:00"
## $ tipoAutor <chr> "Órgão do Poder Executivo"
## $ idTipoAutor <int> 30000
## $ descricaoTipo <chr> "Projeto de Lei"
## $ keywords <chr> "Alteração, Lei do Trabalho Temporário, empre...
## $ urlInteiroTeor <chr> "http://www.camara.gov.br/proposicoesWeb/prop...
Com o ID da proposição você pode recuperar todas as votações pelas quais aquela proposição já passou:
votacoes_pl4302 <- fetch_votacoes(id_prop=pl4302_id)
votacoes_pl4302 %>%
select(id, titulo, placarSim, placarNao, placarAbstencao) %>%
kable()
id | titulo | placarSim | placarNao | placarAbstencao |
---|---|---|---|---|
7430 | SUBSTITUTIVO DO SENADO FEDERAL - EMENDA SUPRESSIVA | 28 | 275 | 46 |
7427 | REQUERIMENTO DE ADIAMENTO DA VOTAÇÃO POR 1 SESSÃO | 35 | 231 | 5 |
7424 | REQUERIMENTO DE RETIRADA DE PAUTA | 40 | 213 | 4 |
7431 | SUBSTITUTIVO DO SENADO FEDERAL | 232 | 188 | 8 |
Para focar em uma votação usamos seu ID:
fetch_votacao(id_votacao=7431) %>%
glimpse()
## Observations: 1
## Variables: 11
## $ id <int> 7431
## $ uri <chr> "https://dadosabertos.camara.leg.br/api...
## $ titulo <chr> "SUBSTITUTIVO DO SENADO FEDERAL"
## $ uriEvento <chr> "https://dadosabertos.camara.leg.br/api...
## $ uriProposicaoPrincipal <chr> "https://dadosabertos.camara.leg.br/api...
## $ tipoVotacao <chr> "Nominal Eletrônica"
## $ placarSim <int> 232
## $ placarNao <int> 188
## $ placarAbstencao <int> 8
## $ dataHoraInicio <chr> "2017-03-22 15:41:02.0"
## $ dataHoraFim <chr> "2017-03-22 20:45:32.0"
Cada votação tem registrada também as orientações das bancadas:
fetch_orientacoes(id_votacao=7431) %>%
select(nomeBancada, voto) %>%
datatable()
Podemos recuperar todas os votos dos deputados que participaram daquela votação:
fetch_votos(id_votacao=7431) %>%
select(parlamentar.id,
parlamentar.nome,
parlamentar.siglaPartido,
voto) %>%
datatable()
Se quisermos obter mais informações sobre um deputado, podemos fazê-lo pelo seu ID. Por exemplo, sobre o deputado Abel Mesquita, cujo id é 178957, até agora recuperamos o seguinte:
fetch_deputado(178957) %>%
select(-uri) %>%
kable()
id | nomeCivil | cpf | sexo | dataNascimento | ufNascimento | municipioNascimento | escolaridade |
---|---|---|---|---|---|---|---|
178957 | ABEL SALVADOR MESQUITA JUNIOR | M | 1962-03-29 | RR | Boa Vista | Superior Incompleto |