library(grImport)



library(grImport)
PostScriptTrace(system.file("extra", "comic_moon.ps",
                            package="RGraphics"),
                "comic_moon.xml")


vectorMoon <- grImport::readPicture("comic_moon.xml")


grImport::grid.picture(vectorMoon[1:4])



grImport::grid.picture(vectorMoon, use.gc=FALSE)