inst/template/01_download.R

In decryptr/captcha: Solve Text on Image Computer Vision Challenges

# download functions ------------------------------------------------------

# Write the script to download captcha files

download_captcha <- function(n = 1, path = "img", ext = NULL) {

  fs::dir_create(path)
  if (is.null(ext)) ext <- ".png"
  purrr::map_chr(seq_len(n), \(x) download_captcha_one(path, ext))

}

download_captcha_one <- function(path, ext) {

  # captcha url goes here
  u_captcha <- ""
  f_captcha <- fs::file_temp("captcha", path, ext)

  # change method if necessary
  httr::GET(
    u_captcha,
    httr::write_disk(f_captcha, TRUE)
  )

  f_captcha
}

# execute download --------------------------------------------------------

img_path <- "img"

f_captcha <- download_captcha(n = 1200, img_path)