Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
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