# NOT RUN {
rlogo <- system.file("img", "Rlogo.png", package="png")
show_image(rlogo)
## Create a plot in a PNG and show it
png(tmp <- tempfile(fileext = ".png"))
pairs(iris)
dev.off()
show_image(tmp)
# }
Run the code above in your browser using DataLab