library(rsvg)


rsvg::rsvg_svg(system.file("extra", "moon-26619.svg", 
                     package="RGraphics"),
         "full-moon.svg")
moon <- grImport2::readPicture("full-moon.svg")


grImport2::grid.picture(moon)