R/obterLideresBancadas.R

In leobarone/bRasilLegis: R Tools for Brazilian Chamber of Deputies (Camara Dos Deputados) Data

#' Get Leadership
#'
#' @description Returns a data frame containing leaders and vice-leaders of parties/coalitions at
#' Camara dos Deputados. There are no required parameters.
#'
#' @return A data frame containing leaders and vice-leaders of parties/coalitions.
#'
#' @author Alexia Aslan; Leonardo Sangali Barone;
#'
#' @import httr XML dplyr
#'
#' @examples
#'
#' # Return a data frame containing the learders and vice-leaders of parties/coalitions in office
#' lideres <- obterLideresBancadas()
#' print(lideres)
#'
#' @rdname obterLideresBancadas
#'
#' @export

obterLideresBancadas <- function(){
  parsedOutput <- xmlParse(GET('http://www.camara.gov.br/SitCamaraWS/Deputados.asmx/ObterLideresBancadas?'))
  bancada <- xmlAttributesToDataFrame(parsedOutput, "//bancada")
  names(bancada)[2] <- "nome.bancada"
  output <- data.frame()
  for (i in 1:nrow(bancada)){
    lideres <- xmlToDataFrame(getNodeSet(parsedOutput, paste("//bancada[@sigla = '", bancada$sigla[i], "']/*", sep = '')), stringsAsFactors = F)
    lideres$posicao <- "vice-lider"; lideres$posicao[1] <- "lider"
    lideres[1]
    output <- bind_rows(output, merge(bancada[i,], lideres))
  }
  return(output)
}