#' Get Parties Coalitions
#'
#' @description Returns a data frame containing details of the coalitions made by the parties with
#' representation at Camara dos Deputados. All the parameters are optional.
#'
#' @param idBloco string, the identification of the coalition(s).
#' This is an optional parameter, the default is empty.
#' @param numLegislatura integer, the number of the legislature.
#' This is an optional parameter, the default is empty.
#'
#' @return A data frame containing information on the required coalition.
#'
#' @author Alexia Aslan; Leonardo Sangali Barone;
#'
#' @import httr XML dplyr
#'
#' @examples
#'
#' # Return a data frame containing all the coalitions
#' blocos <- obterPartidosBlocoCD
#' print(blocos)
#'
#' @rdname obterPartidosBlocoCD
#'
#' @export
obterPartidosBlocoCD <- function (idBloco = "",
numLegislatura = ""){
parsedOutput <- xmlParse(GET('http://www.camara.gov.br/SitCamaraWS/Deputados.asmx/ObterPartidosBlocoCD?',
query = list(idBloco = idBloco,
numLegislatura = numLegislatura)))
bloco <- xmlToDataFrame(getNodeSet(parsedOutput, "//bloco"), stringsAsFactors = F)[,1:5]
output <- data.frame()
for (i in 1:nrow(bloco)){
partidos <- xmlToDataFrame(getNodeSet(parsedOutput,
paste("//bloco[.//idBloco/text() = '",
bloco$idBloco[i],
"']//partido",
sep = "")), stringsAsFactors = F)
output <- bind_rows(output, merge(bloco[i,], partidos))
}
return(output)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.