tests/testDev.R

In dsidavis/Rrawpoppler: Interface to the poppler PDF library for reading and querying details of PDF documents

library(Rrawpoppler)

devFuns =
function()
{    
    list(upsideDown = function(){ message("in upsideDown") ;  TRUE},
         useDrawChar = function() TRUE,
         interpretType3Chars = function() FALSE,
         startPage = function(num, state, xref) { message(paste("startPage", num)) },
         endPage = function() {  message("endPage") },
         updateFillColor = function(state) { message("setting color") },
         beginStringOp = function(state) { message("begin string op") },
         beginString = function(state, str) { message(paste("begin string ", str)) },
         drawString = function(state, str) { message(paste("draw string ", str)) },
         endString = function(state) { message(paste("end string ")) },
         updateLineWidth = function(state) message("updateLineWidth"),
         updateLineCap = function(state) message("updateLineWidth"),
         updateLineDash = function(state) message("updateLineDash"),                  
         dump = function() message("dump"),
         beginActualText = function(state, str) message("beginActualText"),
         endActualText = function(state) message("endActualText"),
         updateFont = function(state) message("updateFont"),
         eoFill = function(state) message("eoFill"),
         fill = function(state) message("fill")
        )
}


# Generate the list of functions
D = devFuns()

# Generate the ROutputDev instance, passing it the list of functions to implement the methods
dev = ROutputDev(D) 

# Create a PDFDoc with a PDF file
doc = pdfDoc(system.file("samples", "map.pdf", package = "Rrawpoppler"))

# Process one page
displayPages(doc, dev, 1)

# Process 3 pages
displayPages(doc, dev, c(1, 3))