# NOT RUN {
if (interactive()) {
# Create an SVG with a single
# circle element
svg <-
SVG(width = 80, height = 80) %>%
svg_circle(
x = 30, y = 30,
diameter = 40,
stroke = "magenta",
fill = "olive"
)
}
# }
Run the code above in your browser using DataLab