R/tjsp_baixar_cpopg_cd_processo.R

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

#' Baixa dados processuais com base no código do processo
#'
#' @param cd_processo Código do processo. Possivelmente, a coluna
#'     cd_doc do cjpg obtida com tjsp_ler_cjpg pode ser usada.
#' @param diretorio Diretório onde armazenar os arquivos.
#'
#' @return htmls
#' @export
#'
tjsp_baixar_cpopg_cd_processo <- function(cd_processo, diretorio = "."){

  cd_processo <- stringr::str_extract(cd_processo,"\\w+")

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

  purrr::walk(cd_processo, purrr::possibly(~{


    pb$tick()
    arquivo <- file.path(diretorio, paste0("cpopg_cd_processo_",.x, ".html"))

    httr::GET(paste0("https://esaj.tjsp.jus.br/cpopg/show.do?processo.codigo=",.x,"&gateway=true"),
              httr::write_disk(arquivo, overwrite = T))

  }, NULL))
}