library(rsvg)


rsvg::rsvg_svg(system.file("extra", "comic_moon.svg", 
         package="RGraphics"),
         "comic_moon_cairo.svg")


library(grImport2)
moonSVG <- grImport2::readPicture("comic_moon_cairo.svg")


grImport2::grid.picture(moonSVG)


grid.rect()
grImport2::grid.picture(moonSVG)