# NOT RUN {
if (interactive()) {
# Add a circle element to an
# SVG drawing and offset it
# by 10px to the right
SVG(width = 150, height = 150) %>%
svg_filter(
id = "offset_right",
filters = list(
filter_offset(dx = 50, dy = 0)
)
) %>%
svg_circle(
x = 30, y = 30,
diameter = 40,
attrs = svg_attrs_pres(
fill = "red",
filter = "offset_right"
)
)
}
# }
Run the code above in your browser using DataLab