# NOT RUN {
if (interactive()) {
# Create an SVG with nothing drawn
# within it
svg <- SVG(width = 200, height = 100)
# Add a rectangle and then a circle
svg <-
svg %>%
svg_rect(x = 20, y = 20, width = 40, height = 40) %>%
svg_circle(x = 100, y = 40, diameter = 40)
}
# }
Run the code above in your browser using DataLab