Or ...
txt <- "<doc><CreaDate>20120627</CreaDate><CreaTime>07322600</CreaTime></doc>"
if (!require(XML)) {
install.packages("XML")
library(XML)
}
result <- xmlParse(txt, asText=TRUE)
# or ... result <- xmlParse(your-file-here.xml)
toString.XMLNode(getNodeSet(result,'//CreaDate/text()')[[1]])
toString.XMLNode(getNodeSet(result,'//CreaTime/text()')[[1]])
B.
On Dec 13, 2014, at 4:06 PM, Duncan Temple Lang <dtemplel...@ucdavis.edu> wrote:
> Hi Don
>
> library(XML)
> readxmldate =
> function(xmlfile)
> {
> doc = xmlParse(xmlfile)
> xpathSApply(doc, '//Esri/CreaDate | //Esri/CreaTime', xmlValue)
> }
>
> D.
>
> On 12/13/14, 12:36 PM, MacQueen, Don wrote:
>> I would appreciate assistance doing in R what a colleague has done in
>> python. Unfortunately (for me), I have almost no experience with either
>> python or xml.
>>
>> Within an xml file there is
>> <CreaDate>20120627</CreaDate><CreaTime>07322600</CreaTime>
>> and I need to extract those two values, 20120627 and 07322600
>>
>>
>> Here is the short python function. Even without knowing python, it's
>> conceptually clear what it does. I would like to do the same in R.
>>
>> def readxmldate(xmlfile):
>> tree = ET.parse(xmlfile)
>> root = tree.getroot()
>> for lev1 in root.findall('Esri'):
>> xdate = lev1.find('CreaDate').text
>> xtime = lev1.find('CreaTime').text
>> return xdate, xtime
>>
>>
>> Thanks in advance
>> -Don
>>
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
