library(tesseract)
eng <- tesseract("eng") text <- tesseract::ocr("ChatterjeeHadi2012.jpg", engine = eng) cat(text)