R/device.R

In pmur002/dvir: Render DVI Files

psDevice <- function(device) {
    device == "postscript"
}

pdfDevice <- function(device) {
    device == "pdf"
}

cairoDevice <- function(device) {
    ## X11cairo, cairo_pdf, cairo_ps
    grepl("cairo", device) ||  
        ## NOTE that png(type="Xlib") has name "PNG" (all caps), etc
        device %in% c("svg", "png", "jpeg", "tiff", "bmp")
}

rasterDevice <- function(device) {
    !(psDevice(device) || pdfDevice(device) ||
      (cairoDevice(device) && grepl("_ps|_pdf|svg", device)))
}