SPLUS XML操作

SPLUS XML操作
 在SPLUS中，用于处理XML的有2个库,Insightful公司的SPXML库和比尔实验室的XML库
 SPXML库支持读写XML，并使用C代码写和分析XML标记，在SPLUS中，没有类似的XML对象，也不能处理XML，在这个库中，XML处理是用XSL完成的
 XML库,它引入了一组SPLUS类，用XML对象呈现，如XMLNode和XMLComment,使用DOM以建立SPLUS对象，这些对象可以方便的在SPLUS中使用
 具体使用哪个库，要看你的实际应用：
  SPXML库是有效率的，它使用SAX分析器且大部分操作用C实现
  SPXML库使用XSL来完成XML变换操作
  XML库使用内建的SPLUS对象来完成XML的变换，SPLUS程序员可能更喜欢这种操作,胜于XSL

SPXML库使用
 利用SPXML库，你可以使用createXMLFile把SPLUS对象当做XML文件保存起来，通过parseXMLFile读一个XML文件，利用XSLT或者XSL-FO来完成XML文件的变换
 SPXML库函数提供了一些有用的工具函数，如下：
  函数xml2html, xml2pdf, xml2ps, xml2rtf,  xml2xml,其利用javaXMLTransform来完成XML到不同文件类型的转换
  createXMLString函数返回一个XML串胜于写到一个文件中去
  summaryReport函数实现了汇总报表

利用SPXML库读写XML
 > library(SPXML) #加载SPXML库
 > xmlFile <- "output.xml" #指定输出路径
 > orig.list <- list(fuel.frame, c(1:50), hist) #加载数据集内容到LIST
 > createXMLFile(orig.list, xmlFile) #通过LIST建立XML文件
 > new.list <- parseXMLFile(xmlFile) #读XML文件到LIST
 > all.equal(orig.list, new.list) #比较新旧2个LIST是否相等

利用XSL来实现XML变换
 > library(SPXML)
 > logRegPMMLFile <- paste(getenv("SHOME"), "/library/SPXML/examples/xml_generation/logRegPMML.xml", sep="") #指定XML文件
 > logRegXSLFile <- paste(getenv("SHOME"),"/library/SPXML/examples/xml_generation/logReg_ColImp_Vec.xsl", sep="") #知道XSL文件
 > splusVecXMLFile <- "Splus_ColImp_Vec.xml" #知道目标XML文件
 > xml2xml(logRegPMMLFile, splusVecXMLFile, logRegXSLFile)
 > colImpVec <- parseXMLFile(splusVecXMLFile) #读目标XML文件
 > colImpVec
  
建立XML报表
 > library(SPXML)
 > xsltFile <- paste(getenv("SHOME"),"/library/SPXML/xml/SplusObjects.xsl", sep="")
 > xmlFile <- "c://temp.xml"
 > splusObject <- fuel.frame
 > createXMLFile(splusObject, xmlFile)
 > javaXMLTransform(xmlFile, "c://fuelReport.htm", xsltFile)   
 要建立PDF,RTF或者PS，需使用SplusObjects_FO.xsl
 > foFile <- paste(getenv("SHOME"), "/library/SPXML/xml/SplusObjects_FO.xsl", sep="")
 > javaXMLTransform(xmlFile, "c://fuelReport.pdf", foFile)
 > javaXMLTransform(xmlFile, "c://fuelReport.rtf", foFile)
 > javaXMLTransform(xmlFile, "c://fuelReport.ps", foFile) 
 汇总报告
  使用summaryReport函数
  > args(summaryReport)
  如：
  > reportFilename <- "fuel.report.html"
  > summaryReport(fuel.frame, reportFilename)
  也可以使用下面代码：
 > summaryReport(data=fuel.frame, file="c://fuel.report.pdf", variables=c("Weight"), grouping.variables=c("Type"))  

自定义报表输出
 如果你想改变报表输出，比如改变颜色、字体等，你可以通过修改ColumnReport.xsl(用于HTML)或者ColumnReport_FO.xsl来实现，他们位于library/SPXML/xml目录下
 改变颜色 
  <xsl:variable name="g_headerBG" select="'#CCE6FF'" />
  <xsl:variable name="g_rowBG_1" select="'#EEEEEE'" />
  <xsl:variable name="g_rowBG_2" select="'#FFFFFF'" />
 对应在XSL中的特殊字符  
 小于< &lt;
 大于> &gt;
 等于= =