R/baixar_tjdft_cpopg.R

In jjesusfilho/tjdf: Baixar e ler processos e decisões do TJDFT

#' Baixa processo de primeira instância do TJDFT
#'
#' @param x número unificado do processo (20 dígitos) com ou sem separador.
#' @param diretorio Default para o atual.
#'
#' @return Baixa as páginas html.
#' @export
#'
baixar_tjdft_cpopg <- function(x, diretorio = ".") {

  x <- abjutils::clean_id(x)


  urls <-
    paste0(
      "http://www.tjdft.jus.br/submitConsulta?url=http%3A%2F%2Fcache-internet.tjdft.jus.br%2Fcgi-bin%2Ftjcgi1&NXTPGM=tjhtml101&ORIGEM=INTER&SELECAO=1&CIRC=ZZ&CHAVE=",
      x,
      "&CHAVE1=&submit=ok"
    )

  furrr::future_map2(urls, x, purrr::possibly( ~ {
    httr::GET(.x) %>%
      httr::content("text") %>%
      stringr::str_extract("(?<=URL\\=)\\X+\\d{10,}") %>%
      httr::GET(httr::write_disk(paste0(
        diretorio, "/", format(Sys.Date(), "%Y%m%d_"), .y, ".html"
      ), overwrite = TRUE))

  }, NULL), .progress = TRUE)

}