Nothing
library(grid)
library(gridSVG)
# There are many filter effect primitives and many of them are
# quite complex so this file could end up having plenty more tests!
pdf(file = NULL)
# First, lets draw some text that we're then going to filter
grid.text("hello, world!", gp = gpar(fontsize = 96),
name = "backtext")
# Draw a copy over the top with white text that will be left alone
grid.text("hello, world!", gp = gpar(fontsize = 96, col = "white"),
name = "foretext")
# We want to create a filter that takes the text thicker, and then blurs it
f <- filterEffect(list(feMorphology(operator = "dilate",
radius = unit(1, "mm")),
feGaussianBlur(sd = 1)))
# Apply the filter
grid.filter("backtext", f)
# Now lets export this
grid.export("filter-test.svg")
dev.off()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.