Nothing
libxmlVersion <-
function(runTime = FALSE)
{
v <- if(runTime) .Call("RS_XML_libxmlVersionRuntime", PACKAGE = "XML")
else .Call( "RS_XML_libxmlVersion", PACKAGE = "XML")
v <- as.character(v)
els <- substring(v, 1:nchar(v), 1:nchar(v))
list(major=els[1], minor=paste(els[2:3],sep="", collapse=""),
patch=paste(els[4:5], sep="", collapse=""))
}
setEntitySubstitution =
function(val)
.Call("RS_XML_SubstituteEntitiesDefault", as.logical(val), PACKAGE = "XML")
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.