# NOT RUN {
if (interactive()) {
# Create an SVG with a single
# line element
svg <-
SVG(width = 100, height = 50) %>%
svg_line(
x1 = 5, y1 = 5,
x2 = 95, y2 = 45,
stroke = "blue"
)
}
# }
Run the code above in your browser using DataLab