library(ggplot2)
my_plot <- ggplot(data=mtcars, aes(x=hp, y=mpg)) + geom_point()
make_link(my_plot, folder=tempdir(), file_suffix = ".png",
save_fn = ggsaver, width = 16, height = 16, units = "cm")
Run the code above in your browser using DataLab