knitr::opts_chunk$set(eval = FALSE)
library(decryptr)

arqs <- dir('~/decryptr/captchaTJMGAudio/data-raw/treino_img', 
            full.names = TRUE, pattern = 'jpg$') %>% 
  read_captcha()

prepared_tjmg <- prepare(arqs)
saveRDS(prepared_tjmg, 'prepared_tjmg.rds')


marceloturim/decryptr documentation built on May 14, 2019, 5:26 p.m.