你如何将 xml 文件转换为 R 中的数据框

Question

I am trying to parse this xml and place it on data frame form:

file content looks like this:

 <?xml version="1.0" encoding="utf-8" ?> 
- <dashboardreport name="Incident_Rules" version="7.2.5.1022" reportdate="2019-02-20T14:45:57.352-05:00" description="">
- <source name="app1">
- <filters summary="last 30 minutes (auto)">
  <filter>tf:DiagnoseTimeframe?1550690157352:1550691957352</filter> 
  </filters>
  </source>
- <reportheader>
- <reportdetails>
  <user>user1</user> 
  </reportdetails>
  </reportheader>
- <data>
- <incidentchartdashlet name="Incident Chart" description="">
- <incidentchartrecords structuretype="tree">
  <incidentchartrecord rule="Database Exception" systemprofile="app1" /> 
  <incidentchartrecord rule="Response time greater than 30 minutes" systemprofile="app1" /> 
  <incidentchartrecord rule="JVM Heap Utilization > 90%" systemprofile="app1" /> 
  </incidentchartrecords>
  </incidentchartdashlet>
  </data>
  </dashboardreport>

The data frame needs to be like this:

Source Name      Rule
App1         Database Exception
App1         Response time greater than 30 minutes
App1         JVM Heap Utilization > 90%

Need to extract "Source name" and "incidentchartrecord rule". I have tried something like this:

library("XML")
doc <- read_xml(file)
  dat<-xml_find_all(doc, ".//incidentchartrecord") %>%
    map_df(function(x) {
      xml_find_all(x, ".//incidentchartrecord") %>%
        map_df(~as.list(xml_attrs(.))) %>%
        select(rule) %>%
        mutate(node=xml_attr(x, "incidentchartrecord"))
    })

Any ideas?

Answer 1

Here's an approach that works. I used xml2 , instead; that's where the xml_find_all & xml_attr functions are found.

library(xml2)
doc <- read_xml("test.xml")
source <- xml_attr(xml_find_all(doc,".//source"), "name")
rules <- xml_attr(xml_find_all(doc, ".//incidentchartrecord"), "rule")
df <- data.frame("Source.Name" = source, Rule=rules, stringsAsFactors=F)