# NOT RUN {
if (interactive()) {
# Create an SVG with a single
# path element
svg <-
SVG(width = 300, height = 300) %>%
svg_path(
path = "M 50 160 q 100 -300 200 0",
stroke = "magenta",
stroke_width = 5,
fill = "lightblue"
)
}
# }
Run the code above in your browser using DataLab