# NOT RUN {
if (interactive()) {
# Create an SVG with a single
# polygon element
svg <-
SVG(width = 300, height = 300) %>%
svg_polygon(
points = "100,10 40,198 190,78 10,78 160,198",
stroke = "orange",
stroke_width = 4,
fill = "yellow"
)
}
# }
Run the code above in your browser using DataLab