if (FALSE) {
# get a silhouette
cat <- image_data("23cd6aa4-9587-4a2e-8e26-de42885004c9", size = 128)[[1]]
# save image
out <- save_png(cat)
identical(png::readPNG(out), cat)
save_png(cat, dpi = 1000)
}
Run the code above in your browser using DataLab