inst/examples/clobberstart.R
In JasonHackney/ReportingTools: Tools for making reports in various formats
library(ReportingTools)
library(XML)
mydf = data.frame(x = 1:5, y = c("hi", "lo", "medium", "stuff", "goodbye"))
newStartPage = function(...)
{
htmlParse("<html><head></head><body><p>This initial page is WAY better! Too bad all the JS/CSS is now broken :(</p></body></html>")
}
makeHTMLClobberer = function(basePath, reportDirectory, shortName, startPage, ...)
{
loc = ReportingTools:::makeReportPath(basePath, reportDirectory, paste0(shortName, "_clobbered"))
new("ReportHandlers",
init = function(node, args)
{
rnode = xmlRoot(node)
realdom = do.call(args$startPage,args)
newrnode = xmlRoot(realdom)
removeChildren(rnode, kids = xmlChildren(rnode))
addChildren(rnode, kids = xmlChildren(newrnode))
node
},
#finish by writing the file
finish = function(rep, args)
{
saveXML(rep$.reportDOM, file=loc)
},
args = list(init = list(startPage = startPage, ...)),
location = loc
)
}
myrep1 = HTMLReport(reportDirectory = "./reports")
publish(mydf, myrep1)
finish(myrep1)
myrep2 = HTMLReport(reportDirectory = "./reports", handlers = makeHTMLClobberer, startPage = newStartPage)
publish(mydf, myrep2)
finish(myrep2)
JasonHackney/ReportingTools documentation built on Oct. 23, 2023, 9:24 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(ReportingTools)
library(XML)
mydf = data.frame(x = 1:5, y = c("hi", "lo", "medium", "stuff", "goodbye"))
newStartPage = function(...)
{
htmlParse("<html><head></head><body><p>This initial page is WAY better! Too bad all the JS/CSS is now broken :(</p></body></html>")
}
makeHTMLClobberer = function(basePath, reportDirectory, shortName, startPage, ...)
{
loc = ReportingTools:::makeReportPath(basePath, reportDirectory, paste0(shortName, "_clobbered"))
new("ReportHandlers",
init = function(node, args)
{
rnode = xmlRoot(node)
realdom = do.call(args$startPage,args)
newrnode = xmlRoot(realdom)
removeChildren(rnode, kids = xmlChildren(rnode))
addChildren(rnode, kids = xmlChildren(newrnode))
node
},
#finish by writing the file
finish = function(rep, args)
{
saveXML(rep$.reportDOM, file=loc)
},
args = list(init = list(startPage = startPage, ...)),
location = loc
)
}
myrep1 = HTMLReport(reportDirectory = "./reports")
publish(mydf, myrep1)
finish(myrep1)
myrep2 = HTMLReport(reportDirectory = "./reports", handlers = makeHTMLClobberer, startPage = newStartPage)
publish(mydf, myrep2)
finish(myrep2)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.