# NOT RUN {
if (interactive()) {
# Create a simple SVG with a rectangle and a circle
svg <-
SVG_t(viewbox = c(0, 0, 60, 20)) %>%
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