importtest <- function() {
    grid.rect(gp=gpar(col=NA, fill="grey"))
    grid.text("This should not be visible")
    grid.raster(matrix(0:1, ncol=5, nrow=2, byrow=TRUE), 
                interpolate=FALSE)
}
library(gridSVG)
gridsvg("importtest.svg", width=3, height=3)
importtest()
dev.off()
rsvg::rsvg_svg("importtest.svg", "importtest-cairo.svg")
pdf("importtest.pdf", width=3, height=3)
importtest()
dev.off()
system("cp importtest.pdf Figures/import-importtest.pdf")
postscript("importtest.ps", 
           paper="special", width=3, height=3, horizontal=FALSE)
importtest()
dev.off()
png("Web/import-importtest.png")
importtest()
dev.off()