Nothing
test.xmlfromfile <- function()
{
targetFile <- system.file(package = "R4X", "unit/book.xml")
# the xml function should recognize that targetFile is a file
contents <- xml(targetFile)
checkEquals(contents["book/author/#"], c("Capinsky, Marek","Tuckman, Bruce"),
checkNames = FALSE)
# checkEquals(contents, xml(readLines(targetFile)))
}
#> bar["book/author/#"]
#book book
#"Capinsky, Marek" "Tuckman, Bruce"
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.