inst/doc/OCR_with_imagerExtra.R

In imagerExtra: Extra Image Processing Library Based on 'imager'

## ----setup, include = FALSE----------------------------------------------
knitr::opts_chunk$set(warning = FALSE, message = FALSE, cache = FALSE, 
               comment = NA, verbose = TRUE, fig.width = 5, fig.height = 5, dev = 'jpeg', dev.args=list(quality=50))
is_available_tesseract <- requireNamespace("tesseract", quietly = TRUE)

## ---- fig.height = 3, eval = is_available_tesseract----------------------
library(imagerExtra)
plot(papers, main = "Original")
OCR(papers) %>% print
OCR_data(papers) %>% print

## ---- fig.height = 3, eval = is_available_tesseract----------------------
hello <- DenoiseDCT(papers, 0.01) %>% ThresholdAdaptive(., 0.1, range = c(0,1))
plot(hello, main = "Hello")
OCR(hello) %>% print
OCR_data(hello) %>% print