library(gridSVG) library(grid) library(png) cpiImage <- readPNG("cpi.png") gridsvg("test.svg") grid.rect(width=.5, height=.5, gp=gpar(fill="white")) grid.raster(cpiImage, width=.4, height=.4) grid.circle(x=.6, y=.7, r=.2) blurAlpha <- feGaussianBlur(input="SourceAlpha", sd=5, result="blur") offset <- feOffset(input="blur", unit(3, "mm"), unit(-3, "mm"), result="drop") composite <- feComposite(input1="SourceGraphic", input2="drop") drop <- filterEffect(list(blurAlpha, offset, composite)) grid.filter(".", drop, grep=TRUE, global=TRUE) dev.off()