R/ler_decisoes_monocraticas.R

In jjesusfilho/tjsp: Coleta e organização de dados do Tribunal de Justiça de São Paulo

#' Lê conteúdo das decisões monocráticas
#'
#' @param diretorio objeto ou diretório onde se encontram os htmls.
#'
#' @return tibble com o número do processo, o texto da decisão e a data da
#'     decisão.
#'
#' @details Em alguns processos, as decisões monocráticas estão etiquetadas como
#'     despachos. Complemente a busca com a função ler_despachos.
#'
#' @export
#'
#' @examples
#' \dontrun{
#' ler_decisoes_monocraticas()
#' }
#'
ler_decisoes_monocraticas <- function(diretorio = ".") {
  arquivos <- list.files(
    path = diretorio, pattern = ".html",
    full.names = TRUE
  )





  processo <- stringr::str_extract(arquivos, "\\d{20}")


  pb <- progress::progress_bar$new(total = length(arquivos))

  purrr::map2_dfr(arquivos, processo, purrr::possibly(~ {

    pb$tick()

    decisao <- xml2::read_html(.x) %>%
      rvest::html_nodes(xpath = "//a[contains(text(),'Decis\u00e3o Monocr\u00e1tica')]/following-sibling::span") %>%
      rvest::html_text()

    data_decisao <- xml2::read_html(.x) %>%
      rvest::html_nodes(xpath = "//tr[td[a[contains(text(),'Decis\u00e3o Monocr\u00e1tica')]]]/td[1]") %>%
      rvest::html_text(trim = TRUE) %>%
      lubridate::dmy()

    tibble::tibble(processo = .y, decisao = decisao, data_decisao = data_decisao)
  }, otherwise = NULL))
}