R/fetcher_mandatos_camara.R

In parlametria/perfil-parlamentarR: Perfil Parlamentar

#' @title Extrai informações sobre o mandato de um deputado
#' @description Recebe o id de um deputado e retorna um dataframe contendo informações do mandato, como legislatura,
#' data de inicio, data de fim, situacao, código e descrição da causa do fim do exercício.
#' @param id_deputado id do deputado
#' @return Dataframe contendo informações de legislatura,
#' data de inicio, data de fim, situacao, código e descrição da causa do fim do exercício.
#' @examples
#' fetch_mandatos_camara(141428)
fetch_mandatos_camara <- function(id_deputado) {
  url <- paste0("https://www.camara.leg.br/SitCamaraWS/Deputados.asmx/ObterDetalhesDeputado?ideCadastro=", 
                id_deputado, "&numLegislatura=")
  
  mandatos <- tryCatch({
    data <- 
      RCurl::getURL(url) %>% xml2::read_xml() %>% 
      xml2::xml_find_all(".//Deputado") %>% 
      purrr::map_df(function(x) {
        list(
          id_legislatura = 
            xml2::xml_find_first(x, "./numLegislatura") %>%
            xml2::xml_text(),
          data_inicio = 
            xml2::xml_find_first(x,"./periodosExercicio/periodoExercicio/dataInicio") %>%
            xml2::xml_text(),
          data_fim = 
            xml2::xml_find_first(x, "./periodosExercicio/periodoExercicio/dataFim") %>%
            xml2::xml_text(),
          situacao = 
            xml2::xml_find_first(x, "./periodosExercicio/periodoExercicio/situacaoExercicio") %>%
            xml2::xml_text(),
          cod_causa_fim_exercicio = 
            xml2::xml_find_first(x, "./periodosExercicio/periodoExercicio/idCausaFimExercicio") %>%
            xml2::xml_text(),
          desc_causa_fim_exercicio = 
            xml2::xml_find_first(x, "./periodosExercicio/periodoExercicio/descricaoCausaFimExercicio") %>%
            xml2::xml_text()
        )
      })
    
    data <- data %>% 
      dplyr::mutate(id_parlamentar = as.integer(id_deputado),
                    casa = "camara",
                    data_inicio = as.Date(data_inicio, "%d/%m/%Y"),
                    data_fim = as.Date(data_fim, "%d/%m/%Y"),
                    cod_causa_fim_exercicio = as.integer(cod_causa_fim_exercicio),
                    desc_causa_fim_exercicio = gsub('\n ', NA, desc_causa_fim_exercicio)) %>% 
      dplyr::select(id_parlamentar, casa, id_legislatura, data_inicio, data_fim, situacao,
                    cod_causa_fim_exercicio, desc_causa_fim_exercicio)
    
  }, error = function(e) {
    data <- tribble(
      ~ id_parlamentar, ~ casa, ~ data_inicio, ~ data_fim, ~ situacao,
      ~ cod_causa_fim_exercicio, ~ desc_causa_fim_exercicio)
    return(data)
  })
  
  return(mandatos)
}