R: Examples for 'grid::grid.cap'

### ** Examples

## No test: 
dev.new(width=0.5, height=0.5)
grid.rect()
grid.text("hi")
cap <- grid.cap()

Warning in grid.Call(C_cap): raster capture is not available for this device

dev.off()

png 
  2

if(!is.null(cap))
    grid.raster(cap, width=0.5, height=0.5, interpolate=FALSE)
## End(No test)

Examples for 'grid::grid.cap'