我怎么能解析xml到csv并保存在R?

Question

如何解析我的xml数据并将其保存为R中的csv ?请参见

下面的输入和输出输入=

<patient id="559" weight="99" insulin_type="Novalog">
<glu_level>
<event ts="18-01-2022 00:01:00" value="179"/>
<event ts="18-01-2022 00:06:00" value="183"/>
<event ts="18-01-2022 00:11:00" value="187"/>
</glu_level>
<finger_stick>
<event ts="07-12-2021 01:03:20" value="107"/>
<event ts="07-12-2021 01:08:04" value="107"/>
<event ts="07-12-2021 05:08:14" value="191"/>
<event ts="07-12-2021 11:21:49" value="586"/>
</finger_stick>
</patient>

Output1 =

<表类>时间glu_leveltbody><<tr>18-01-2022 00:01:0017918-01-2022 00:06:0018318-01-2022 00:11:00187

我们可以读取文件read_xml，过滤'glu_level'后提取属性

library(xml2)
library(dplyr)
dat <- read_xml("input.xml")
glu <- dat %>% 
xml_find_all("//glu_level/event") 
out <- tibble(time = glu %>% 
xml_attr('ts'), glu_level = glu %>% 
xml_attr('value'))         

与产出

> out
# A tibble: 3 × 2
time                glu_level
<chr>               <chr>    
1 18-01-2022 00:01:00 179      
2 18-01-2022 00:06:00 183      
3 18-01-2022 00:11:00 187