tests/test-symbol.R

In grImport2: Importing 'SVG' Graphics

library(grid)
library(grImport2)
library(gridSVG)

pic <- readPicture("test-symbol-input.svg")

gridsvg("test-symbol-output.svg", width = 6, height = 6, annotate = FALSE)
grid.picture(pic, expansion = 0)
dev.off()

## Encoding in SVG file (on line 1) differs by platform
model <- readLines("test-symbol-output.svg.save")[-1]
test <- readLines("test-symbol-output.svg")[-1]
same <- model == test
if (! all(same)) {
    stop(paste0("symbol output not equal to expected output",
                "------------------",
                model[!same],
                "------------------",
                test[!same],
                collapse="\n"))
}