Nothing
test_that("format.xml_node prints attributes for root nodes", {
x <- read_xml("<parent foo = 'bar' />")
expect_equal(format(x), "<parent foo=\"bar\">")
})
test_that("format.xml_node prints namespaces for root nodes", {
x <- read_xml("<parent/>")
expect_equal(format(x), "<parent>")
y <- read_xml("<parent xmlns = 'tag:james.f.hester@gmail.com,2016:bar' />")
expect_equal(format(y), "<parent xmlns=\"tag:james.f.hester@gmail.com,2016:bar\">")
z <- read_xml("<parent xmlns:foo = 'tag:james.f.hester@gmail.com,2016:bar' />")
expect_equal(format(z), "<parent xmlns:foo=\"tag:james.f.hester@gmail.com,2016:bar\">")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.