r - 在 R 中查找 XPath 节点的名称

Question

我想找到没有任何子节点的父节点名称。例如，我在 xpather.com 上尝试了我的 XPath 表达式，它工作正常，但我无法让它在 R 中工作。

//*[not(*)]/parent::*/name()

结果应该是aa, ca

    library(XML)
    xml_doc <- ("<ca>
  <ai>67400000</ai>
  <ssci>FN</ssci>
  <aa>
    <ta>1280</ta>
    <tc>EUR</tc>
  </aa>
</ca>")

xml_parsed <- xmlParse(xml_doc)
a <- getNodeSet(xml_parsed, "//*[not(*)]/parent::*")
names(a)

Answer 1

library(xml2)
doc <- read_xml(xml_doc)
# Xpath for parents of nodes without children 
#  xml_name() for name extraction
xml_name(xml_find_all(doc, ".//*[not(*)]/parent::*"))
# [1] "ca" "aa"