R/version.R

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

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=""))
}