acceptance {MIfuns} | R Documentation |
This function reads "accept.xml" in .Library, if it exists, and prints it with the default method.
acceptance()
Data is displayed as xml markup.
an object of class XMLNode ...
Tim Bergsma
http://metruminstitute.org
## The function is currently defined as function(){ library(XML) filepath <- file.path(.Library,"accept.xml") as.XMLNode <- function(x,...)UseMethod("as.XMLNode") as.XMLNode.XMLDocument <- function(x,...)xmlTreeParse(x,...)$doc$children[[1]] as.XMLNode.character <- function(x,...)xmlTreeParse(x,...)$doc$children[[1]] if(file.exists(filepath))return(as.XMLNode.XMLDocument(filepath,asText=FALSE)) return(NULL) }