tests/testelement.R

In sachsmc/gridSVG: Export grid graphics as SVG

library(grid)
library(gridSVG)

dev.new(width=6, height=6)
grid.element("test")
grid.element("testParent",
             children = gList(commentGrob("This is a child comment"),
                              elementGrob("firstChild"),
                              rectGrob(),
                              elementGrob("thirdChild",
                                          attrs = list(anAttrib = "value"))))
# Create a 'title' element with descriptive text
grid.element("title", children = gList(
             textNodeGrob("A gridSVG image with customised SVG content")))
grid.export("element-test.svg")
dev.off()