# NOT RUN {
# Create three plots
plot.data <- lapply(1:3, function (i) {
# Open new device
grDevices::dev.new()
# Print plot
plot(1:i)
# Record plot
p <- grDevices::recordPlot()
# Turn off graphics device drive
grDevices::dev.off()
return (p)
} )
# Print plots
ParsePlot(plot.data)
# }
Run the code above in your browser using DataLab