knitr::opts_chunk$set(collapse = TRUE)
Quebra captcha do TJMG por áudio.
# install.packages('devtools') devtools::install_github('decryptr/captchaTJMGAudio') library(captchaTJMGAudio)
path <- 'exemplo'
captchaTJMGAudio::baixar_img_audio(path)
arqs <- dir(path, full.names = TRUE) arqs
Visualização da imagem do captcha.
captchaTJMGAudio::desenhar_img(arqs[1])
Visualização do áudio picotado (cada cor é uma letra identificada)
onda <- captchaTJMGAudio::ler_audio(arqs[2]) captchaTJMGAudio::desenhar_corte(onda)
captchaTJMGAudio::predizer(arqs[2])
microbenchmark::microbenchmark(captcha = captchaTJMGAudio::predizer(arqs[2]))
rmarkdown::render('README.Rmd', output_format = rmarkdown::md_document(), quiet = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.