library(Sxslt)
# Check that we have the default registration function that is
# called each time the R extension module is needed, i.e. once
# per stylesheet application.
SxsltInitializationFunction()
addXSLTFunctions( version = function() paste("R", version$major, version$minor),
rnorm = function() rnorm(1),
.funcs = list(rbinom = function(p = .5) rbinom(1, p)))
xslFile = system.file("examples", "registration.xsl", package="Sxslt")
xmlFile = system.file("examples", "registration.xml", package="Sxslt")
z = xsltApplyStyleSheet(xmlFile, xslFile)
library(XML)
saveXML(z$doc)
# Now, we provide a new version of the version extension function.
# This just adds information about the (operating) system.
addXSLTFunctions( version = function() paste("R", version$major, version$minor, version$system),
clear = TRUE)
z = xsltApplyStyleSheet(xmlFile, xslFile)
saveXML(z$doc)
sheet = xsltParseStyleSheet(xslFile)
addXSLTFunctions( version = function() paste("R", version$major, version$minor, version$system),
clear = TRUE)
z = xsltApplyStyleSheet(xmlFile, sheet)
addXSLTFunctions( version = function() paste("R", version$major, version$minor), clear = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.