Optical Character Recognition

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