R/collect.R

In decryptr/captchaTRT:

#' Download one captcha image from TRT3's website
#'
#' Download just one captcha image from TRT3's website
#'
#' @param dir character string naming a directory path for writing the image
#' @param sleep time in seconds for the system wait until next try if the attempt to download fails
#' @param repeat_last_captcha boolean indicating if the letters of the last captcha download should persist, changing only the noise draws.
#'
#' @return response
#'
#' @export

#Codigo anterior:
#captcha_download_one <- function(dir, sleep = 1, repeat_last_captcha = FALSE) {
#url_img <- "https://pje.trt3.jus.br/consultaprocessual/seam/resource/captcha"
#if (!repeat_last_captcha) httr::handle_reset(url_img)
#if (!file.exists(dir)) dir.create(dir, recursive = TRUE)
#solicitacao <- httr::GET(url_img)
#data_hora <- stringr::str_replace_all(lubridate::now(), "[^0-9]", "")
#if (is.null(dir)) dir <- tempdir()
#arq <- tempfile(pattern = data_hora, tmpdir = dir)
#wd_img <- httr::write_disk(paste0(arq, ".jpeg"), overwrite = TRUE)
#imagem <- httr::GET(url_img, wd_img)
#while (as.numeric(solicitacao$headers[['content-length']]) < 1) {
#  msg <- sprintf('Something went bad. trying again in %d seconds...', sleep)
#  message(msg)
#  Sys.sleep(sleep)
#  imagem <- httr::GET(url_img, wd_img)
#}
#return(imagem)
#}

captcha_download_one <- function(dest=NULL) {
  base <- "https://pje.trt3.jus.br/consultaprocessual/seam/resource/captcha"
  if(is.null(dest)) {
    dest <- tempfile(pattern = 'captcha', fileext = '.jpeg')
  } else {
    dest <- tempfile(pattern = 'captcha', tmpdir = dest, fileext = '.jpeg')
  }
  httr::GET(base, httr::write_disk(dest, overwrite = TRUE))
  return(dest)
}

#' Download n captcha images from TRT3's website at once
#'
#' Download n captcha images from TRT3's website at once
#'
#' @param n number of captchas to download
#' @param repeat_captcha_n_times number of times that one sequence of letters should be repeated (varying just the noise draws between them)
#' @param dir character string naming a directory path for writing the image
#' @param sleep time in seconds for the system wait until next try if the attempt to download fails
#' @param repeat_last_captcha boolean indicating if the letters of the last captcha download should persist, changing only the noise draws.
#'
#' @return list of responses
#'
#' @export
captcha_download <- function(n, repeat_captcha_n_times = 1, dir, sleep = 1) {
  repeat_last_captcha <- as.numeric((seq.int(n) - 1) %% repeat_captcha_n_times != 0)
  imagens <- repeat_last_captcha %>%
    purrr::map(~captcha_download(dir = dir, sleep = sleep, .x))
  return(imagens)
}