# NOT RUN {
if (interactive()) {
# Add a green ellipse to an SVG and
# then apply the `filter_gaussian_blur()`
# filter to blur the edges
SVG(width = 200, height = 100) %>%
svg_filter(
id = "blur",
filters = list(
filter_gaussian_blur(stdev = 2)
)
) %>%
svg_ellipse(
x = 40, y = 40,
width = 50, height = 30,
attrs = svg_attrs_pres(
fill = "green",
filter = "blur"
)
)
}
# }
Run the code above in your browser using DataLab