batch-ocr.r

library("tesseract")
library("magick")
library("magrittr")

# load 'em up
dest <- "/path/to/images"
myfiles <- list.files(path = dest, pattern = "jpg",  full.names = TRUE)

# improve the images
# ocr 'em
# write the output to text file

lapply(myfiles, function(i){
  text <- image_read(i) %>%
  image_resize("3000x") %>%
  image_convert(type = 'Grayscale') %>%
  image_trim(fuzz = 40) %>%
  image_write(format = 'png', density = '300x300') %>%
  tesseract::ocr() 
  
  outfile <- paste(i,"-ocr.txt",sep="")
  cat(text, file=outfile, sep="\n")
  
  })