R/stf_download_sheet.R

In jjesusfilho/stf: Provides functions to collect and manipulate Brazilian's Supreme Court decisions

#' Download html with docket follow-up sheet based on incidente
#'
#' @param incidente Incidente number
#' @param dir Directory where to download the htmls
#'
#' @return htmls
#' @export
#'
stf_download_sheet <- function(incidente, dir = "."){


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

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

    pb$tick()

    url <- paste0("http://portal.stf.jus.br/processos/abaAndamentos.asp?incidente=",.x)

    arquivo <- file.path(dir,paste0(format(Sys.Date(), "sheet_date_%Y_%m_%d_incidente_"), .x, ".html"))

    httr::RETRY("GET",url,httr::write_disk(arquivo),
                httr::user_agent("Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.61 Safari/537.36")

                )

  },NULL))

}