r - R中函数的每个结果的bind_rows

Question

我想为我的每个节点创建一个包含 1 行的 data_frame。

library(tidyverse)
library(xml2)

nodeToDf <- function(theNode) {
  # More complex stuff here. But in the end it returns a data_frame with 1 row
  xml_attrs(theNode) %>%
    map_dfr(~as.list(.))
}  

data <- read_xml("<root><book title='First' pages='100'/><book title='Second' pages='100'/><book title='Third' pages='100'/></root>")
books <- xml_find_all(data, "//book")
map_df(books,nodeToDf)
# Error in bind_rows_(x, .id) : Argument 1 must have names

所以我的问题是如何通过为每个节点调用 nodeToDf 来为 myNodeSet 中的每个节点获取一个包含 1 行的 data_frame？

Answer 1

尝试使用 rbind

rbind(myNodeset,nodeToDf)