# create some svg
tmp <- tempfile()
svglite::svglite(tmp, width = 10, height = 7)
ggplot2::qplot(mpg, wt, data = mtcars, colour = factor(cyl))
dev.off()
# render it into 720p HD
bitmap <- rsvg(tmp, height = 720)
png::writePNG(bitmap, "test.png", dpi = 144)
jpeg::writeJPEG(bitmap, "test.jpg", quality = 1)
webp::write_webp(bitmap, "test.webp", quality = 100)
Run the code above in your browser using DataLab