inst/examples/docbook.R

In XML: Tools for Parsing and Generating XML Within R and S-Plus

# Find the elements used in the collection of chapters of the SVN book.
# The approach works for any set of XML documents.
# The SVN book can be downloaded from 
#      http://svnbook.red-bean.com/trac/changeset/3082/tags/en-1.4-final/src/en/book?old_path=%2F&format=zip


if(FALSE) {
   # Find the nodes and attributes used in the SVN book.
 files = list.files("SVN-book", "\\.xml$", full.names = TRUE)
 svn.book = xmlElementSummary(files)
}


if(FALSE) {
   # Process the XSL files in IDynDocs, OmegahatXSL and docbook-xsl
 h = xmlElementSummaryHandlers()
 dir = "~/Classes/StatComputing/XDynDocs/inst/XSL"
 invisible(
  lapply(c("", "OmegahatXSL", "docbook-xsl-1.73.2/html", "docbook-xsl-1.73.2/fo"),
        function(sub) {
          files = list.files(paste(dir, sub, sep = .Platform$file.sep), "\\.xsl$", full.names = TRUE)
          invisible(sapply(files, xmlEventParse, handlers = h, replaceEntities = FALSE))          
        }))
 h$result() 
}