# NOT RUN {
if (interactive()) {
# Apply a drop shadow filter on a
# text element (orange in color,
# and semi-opaque)
SVG(width = 250, height = 100) %>%
svg_filter(
id = "shadow",
filters = list(
filter_drop_shadow(
dx = 1, dy = 2,
color = "orange",
opacity = 0.5
)
)
) %>%
svg_text(
x = 10, y = 40,
text = "Shadowed",
attrs = svg_attrs_pres(
font_size = "2em",
fill = "#555555",
font_weight = "bolder",
filter = "shadow"
)
)
}
# }
Run the code above in your browser using DataLab