tests/ProcessPages.R

In duncantl/Rtesseract: Interface to the tesseract OCR system

# The idea here is to mimic the tesseract command line
# We seem to be doing the same thing up to where it calls api.ProcessPages()
# So we will try that.

library(Rtesseract)

f = system.file("trainingSample", "eng.tables.exp0.png", package = "Rtesseract")
ts = tesseract(f, "psm_auto")

print(SetPageSegMode(ts, 3))
print(GetPageSegMode(ts))

# SetOutputName(ts, "/tmp/foo.rout.txt")
if(FALSE){
.Call("R_TessBaseAPI_ProcessPages", ts, f, NULL, 0L, NULL)
out = "/tmp/foo.rout.txt"
stopifnot(file.exists(out))
tt = readLines(out)
head(tt)
}