data-raw/trt/trt-data.R

In jtrecenti/captchaDownload: What the Package Does (One Line, Title Case)

# path <- "data-raw/trt/img2/"
# purrr::walk(1:500, ~captcha_download_trt(path))
# classificar <- fs::dir_ls("data-raw/trt/img", regexp = "_", invert = TRUE)
# captcha::classify(classificar, rm_old = TRUE)



# remotes::install_github("jtrecenti/captchaDownload")
library(magrittr)
# tail(readr::read_csv(fs::path_ext_set(path_model, ".log"), show_col_types = FALSE))


path_model <- "/home/jt/Documents/jtrecenti/captcha/data-raw/trt_99.pt"
path_img <- "data-raw/trt/test"

(modelo <- luz::luz_load(path_model))

purrr::rerun(
  .n = 2,
  captcha_oracle_trt_com_feedback(path_img, modelo, 50)
)