# NOT RUN {
group.svg(id = "group_1", group.content = "this is a svg element")
group.content <- list(svg1 = "this is a svg element",
svg2 = "this is a svg element")
group.svg(id = "group_1", group.content = group.content)
group.svg(id = "group_1", group.content = group.content,
style.sheet = c("stroke:red", "stroke-width:1"),
transform.sheet = c("translate(100, 100)"))
# }
Run the code above in your browser using DataLab