library(two.laws.html)
SetTestContext("svg")
CreateTestCase(
"Empty svg tags",
{
Html <- str_RemoveWhitespace(
as.character(withTags(svg(g())))
)
expect_equal(
Html,
"<svg><g></g></svg>"
)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.