r - R : return NA if node is missing 中的 XPath

Question

我正在尝试使用 R 中的 Xpath 在 html 文档中搜索节点。
在下面的代码中，我想知道如何在缺少节点时返回 NULL 或 NA:

library(XML)
b <- '
<bookstore specialty="novel">
<book style="autobiography">
<author>
<first-name>Joe</first-name>
<last-name>Bob</last-name>
</author>
</book>
<book style="textbook">
<author>
<first-name>Mary</first-name>
<last-name>Bob</last-name>
</author>
<author>
<first-name>Britney</first-name>
<last-name>Bob</last-name>
</author>
<price>55</price>
</book>
<book style="novel" id="myfave">
<author>
<first-name>Toni</first-name>
<last-name>Bob</last-name>
</author>
</bookstore>
'
doc2 <- htmlTreeParse(b, useInternal=T)
xpathApply(doc2, "//author/first-name", xmlValue)

例如，当我运行 xpathApply() 时对作者的函数我会得到 4 个结果，但是如果我要删除 <first-name> 之一节点，我想要 xpathApply函数返回一个 NULL 或其他东西在它的位置，我不希望它跳过它。如果我要删除 <first-name>Mary</first-name>，我希望结果看起来像这样:

Joe
NA
Britney
Tony

Answer 1

你可以这样做:

xpathApply(doc2, "//author",
           function(x){
             if("first-name" %in% names(x))
               xmlValue(x[["first-name"]])
             else NA})

[[1]]
[1] "Joe"

[[2]]
[1] NA

[[3]]
[1] "Britney"

[[4]]
[1] "Toni"