Question

我使用XML2使用以下代码将发布数据从在线XML文档中提取出来，例如this一个：

xF <- read_xml(target, encoding = "UTF-8")   ## target = above link

获取每个发布节点的项目没有问题。

Titles <- xml_text(xml_find_all(xF, "//publication-base_uk:title", xml_ns(xF)))
Pub.Lang <- xml_text(xml_find_all(xF, "//publication-base_uk:language/core:term/core:localizedString", xml_ns(xF)))
## etc...

但是，我很难理解如何获得并不总是有条目的项目，例如同行评审标签。

Peer.Rev <- xml_text(xml_find_all(xF, "//extensions-core:peerReviewed", xml_ns(xF)))

返回具有peerReviewed子项的所有发布的值，但由于某些peerReviewed标记没有子项，因此计数已关闭。有没有办法让NA（或任何真正的东西）代替丢失的文本值？

先谢谢你。

Answer 1

使用xml2::xml_find_first()可以获得您想要的效果。

实施例

让我们说我们想要这个xml rss feed中的博客帖子类别： https://eagereyes.org/feed。其中一些帖子有一个类别，有些有一个以上。搜索一个可以正常工作：

feed <- "https://eagereyes.org/feed"
doc <- httr::GET(feed) %>% xml2::read_xml()
channel <- xml2::xml_find_all(doc, "channel")
site <- xml2::xml_find_all(channel, "item")

categories <- tibble::tibble(
    category1 = xml2::xml_text(xml2::xml_find_all(site, "category[1]"))
  )

> categories
# A tibble: 10 x 1
       category1
           <chr>
 1        Papers
 2     Blog 2017
 3         Links
 4     Blog 2017
 5     Blog 2017
 6          Talk
 7 ISOTYPE Books
 8    Techniques
 9        Basics
10     Blog 2017

但尝试不止一次不会：

categories <- tibble::tibble(
    category1 = xml2::xml_text(xml2::xml_find_all(site, "category[1]")),
    category2 = xml2::xml_text(xml2::xml_find_all(site, "category[2]"))
  )

Error: Column `category2` must be length 1 or 10, not 3

xml_find_first救援：

categories <- tibble::tibble(
    category1 = xml2::xml_text(xml2::xml_find_first(site, "category[1]")),
    category2 = xml2::xml_text(xml2::xml_find_first(site, "category[2]"))
  )
> categories
# A tibble: 10 x 2
       category1  category2
           <chr>      <chr>
 1        Papers      paper
 2     Blog 2017 conference
 3         Links       <NA>
 4     Blog 2017       <NA>
 5     Blog 2017       <NA>
 6          Talk       <NA>
 7 ISOTYPE Books    isotype
 8    Techniques       <NA>
 9        Basics       <NA>
10     Blog 2017       <NA>

希望有所帮助。

R＆amp; XML2：用NA替换缺少的XML元素

1 个答案:

实施例