tests/cube.R

In duncantl/Rtesseract: Interface to the tesseract OCR system

library(Rtesseract)

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

if(exists('OEM_TESSERACT_CUBE_COMBINED')) {
ts = tesseract(init = FALSE)
Init(ts, engineMode = 'OEM_TESSERACT_CUBE_COMBINED')
SetPageSegMode(ts, 'psm_auto')
SetInputName(ts, f)
Recognize(ts)
Rtesseract:::oem(ts)

bbox = GetBoxes(ts)
}

if(exists('OEM_CUBE_ONLY')) {
ts2 = tesseract(init = FALSE)
Init(ts2, engineMode = 'OEM_CUBE_ONLY')
SetPageSegMode(ts2, 'psm_auto')
SetInputName(ts2, f)
Recognize(ts2)

bbox2 = GetBoxes(ts2)
}