R/listarPresencasDia.R

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

#' List Legislator Attendance on one day
#'
#' @description Returns a data frame with information on legislator attendance at sessions
#' on a specific day. The maximum difference between initial and final date allowed by the
#' web service is 7 days. The inputs for this function are of class character and
#' in the format dd/mm/yyyy.
#'
#' @param data string of format dd/mm/yyyy, the date of the sessions.
#' @param numLegislatura integer, the number specific to the legislature.
#' @param numMatriculaParlamentar integer, the legislator "matricula" number (check the obterDeputados
#' function for help). This is an optional parameter and its default is empty.
#' @param siglaPartido string, the political party of the author of the proposal. This is an optional
#' parameter and its default is empty.
#' @param siglaUF string, the state (Unidade da Federacao) of the author of the proposal. This is an optional
#' parameter and its default is empty.
#'
#' @return A data frame with information on legislator attendance at sessions on a specific day.
#'
#' @author Leonardo Sangali Barone; Alexia Aslan
#'
#' @import httr XML dplyr
#'
#' @examples
#'
#' dataSessao = "10/04/2012"
#' presencas <- listarPresencasDia(dataSessao)
#' head(presencas)
#'
#' @rdname listarPresencasDia
#' @export

listarPresencasDia <- function(data,
                               numLegislatura = "",
                               numMatriculaParlamentar = "",
                               siglaPartido = "",
                               siglaUF = ""){

  parsedOutput <- xmlParse(GET('http://www.camara.gov.br/SitCamaraWS/sessoesreunioes.asmx/ListarPresencasDia?',
                               query = list(data = data,
                                            dataFimnumLegislatura = numLegislatura,
                                            numMatriculaParlamentar = numMatriculaParlamentar,
                                            siglaPartido = siglaPartido,
                                            siglaUF = siglaUF)))

  dia <- xmlToDataFrame(getNodeSet(parsedOutput, "//dia"), stringsAsFactors = F)[,1:3]
  parlamentar <- xmlToDataFrame(getNodeSet(parsedOutput, "//parlamentar"), stringsAsFactors = F)[,1:7]
  output <- data.frame()

  for (i in 1:nrow(parlamentar)){
    sessao <- xmlToDataFrame(getNodeSet(parsedOutput,
                                        paste("//parlamentar[.//carteiraParlamentar/text() = '",
                                              parlamentar$carteiraParlamentar[i],
                                              "']//sessaoDia",
                                              sep = "")), stringsAsFactors = F)
    output <- bind_rows(output, merge(parlamentar[i,], sessao))
  }
  return(output)
}