如何在 R 中使用 xpath 导航 XML

Question

我能否获得一些 xpath 导航帮助，以用于 R 中的 XML 文档？

我提供了实际数据的非常精简的版本来说明（“my_xml”）。一般来说，我希望将 pmml 文档（由 spss 以 XML 格式导出）导入到 R 中。

对于这个示例，我想知道如何在属性属性=“有效”的节点中返回“值”属性值。您将看到我已将一项属性设置为“无效”。

my_xml = xmlParse('<?xml version="1.0" encoding="UTF-8"?>
<PMML xmlns="http://www.dmg.org/PMML-4_1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="4.1" xsi:schemaLocation="http://www.dmg.org/PMML-4_1 pmml-4-1.xsd">
<Header copyright="(C) Copyright IBM Corp. 1989, 2014.">
<Application name="IBM SPSS Statistics 23.0" version="23.0.0.0"/>
</Header><DataDictionary numberOfFields="15">
<DataField dataType="string" displayName="Target_Status_OIDV_M!" name="Target_Status_OIDV_M!" optype="categorical">
<Extension extender="spss.com" name="format" value="1"/>
<Extension extender="spss.com" name="width" value="1"/>
<Extension extender="spss.com" name="decimals" value="0"/>
<Value displayValue="F" property="valid" value="F"/>
<Value displayValue="T" property="valid" value="T"/>
</DataField>
<DataField dataType="string" displayName="Status_OIDV_M2" name="Status_OIDV_M2" optype="categorical">
<Extension extender="spss.com" name="format" value="1"/>
<Extension extender="spss.com" name="width" value="4"/>    
<Extension extender="spss.com" name="decimals" value="0"/>    
<Value displayValue="0000" property="valid" value="0000"/>    
<Value displayValue="0001" property="valid" value="0001"/>    
<Value displayValue="0100" property="notvalid" value="0100"/>    
</DataField>
</DataDictionary>
</PMML>')

我检查班级...并查找所有值

class(my_xml) #  "XMLInternalDocument" - excellent... just what xpathApply is looking for :)

get_value_attr = xpathApply(my_xml, "//@value")
print(get_value_attr) # a start in the right direction

所以接下来我尝试使用我的财产条件......但我只是得到一个空列表

get_value_attr_with_condition = xpathApply(my_xml, "//@value[@property='valid']") 
print(get_value_attr_with_condition) # returns an empty list

这让我意识到，在我见过的所有示例中，方括号属性条件仅在节点上使用，我从未见过使用另一个属性运行的情况（即 //mynodename[@attribute='superduper']）

但是，当我使用 xpath 在文档中的任何位置搜索“值”节点时（即使用“//”）....它返回一个空列表（注意 - 我现在正在搜索带有大写字母的“值”节点“V”，不是“值”属性）

get_values = xpathApply(my_xml, "//Value") 
print(get_values) 

如果我使用句点搜索当前节点...

my_current_node = xpathApply(my_xml, ".") 
print(my_current_node) 

这是另一个空列表 - 为什么它不选择我当前的节点？

我想也许 xpathApply 正在寻找一些额外的参数，3 次尝试......

get_that_value = xpathApply(my_xml, "//Value", xmlGetAttr, "value")
print(get_that_value) # empty list again

get_that_property = xpathApply(my_xml, "//Value", xmlGetAttr, "property")
print(get_that_property) # empty list again

get_the_xmlValue = xpathApply(my_xml, "//Value", xmlValue)
print(get_the_xmlValue) 

不——我一定做错了什么！但什么？？？

Answer 1

主要询问：

xpathSApply(my_xml, "//*[@value and @property='valid']/@value")

对于第二次查询，需要处理默认命名空间：

nsDefs <- xmlNamespaceDefinitions(my_xml)
ns <- structure(sapply(nsDefs, function(x) x$uri), names = names(nsDefs))
names(ns)[1] <- "x"

xpathSApply(my_xml, "//x:Value", namespaces=ns)