# NOT RUN {
if (interactive()) {
# Create a simple SVG with a rectangle and a circle
svg <-
SVG_(width = 100, height = 50) %>%
svg_rect(x = 0, y = 0, width = 30, height = 20) %>%
svg_circle(x = 50, y = 10, diameter = 20)
}
# }
Run the code above in your browser using DataLab