library(grid)
gg_record(device = "png", width = 10, height = 8, units = "in", dpi = 320)
## make a plot using grobs
grid.draw(rectGrob(width = 2, height = 2, gp = gpar(fill = "green")))
grid.draw(textGrob("Hello world"))
record_polaroid()
gg_stop_recording()
Run the code above in your browser using DataLab