powered by
grid.cap()
NULL
grid.raster
dev.capabilities to see if it is supported.
dev.capabilities
dev.new(width=0.5, height=0.5) grid.rect() grid.text("hi") cap <- grid.cap() dev.off() if(!is.null(cap)) grid.raster(cap, width=0.5, height=0.5, interpolate=FALSE)
Run the code above in your browser using DataLab