1

我正在尝试使用 xml2 使用新节点更新 xml 文件。如果我只是将所有内容手动编写为文本，这很容易，

oldXML <- read_xml("<Root><Trial><Number>3.14159 </Number><Adjective>Fast </Adjective></Trial></Root>")

但我正在开发一个将运行计算然后将这些值放入 xml 的应用程序，所以我需要混合字符和变量。它最终看起来像：

var1 <- 4.567
var2 <- "Slow"
newLine <- read_xml(paste0("<Trial><Number>",var1," </Number><Adjective>",var2," </Adjective></Trial>"))
xml_add_child(oldXML,newLine)

我怀疑有一种比使用 paste0 更简单的方法来做到这一点，但我无法得到任何其他工作。我希望能够通过引用数据框来指示它更新 xml，以便它可以创建新的试验：

<Trial>
  <Number>df$number[1]</Number>
  <Adjective>df$adjective[1]</Adjective>
</Trial>
<Trial>
  <Number>df$number[2]</Number>
  <Adjective>df$adjective[2]</Adjective>
</Trial>

有没有办法以大约这种方式创建新的 Trial 节点，或者至少比使用 paste0 插入变量更自然？这是 XML 包比 xml2 做得更好的东西吗？

4

2 回答 2

3

如果您在 data.frame 中有这样的新值：

vars <- data.frame(Number = c(4.567, 3.211),
                   Adjective = c("Slow", "Slow"),
                   stringsAsFactors = FALSE)

您可以将其转换为xml_document's 列表，如下所示：

vars_xml <- lapply(purrr::transpose(vars),
                   function(x) {
                       as_xml_document(list(Trial = lapply(x, as.list)))
                   })

然后您可以将新节点添加到原始 xml 中：

for(trial in vars_xml) xml_add_child(oldXML, trial)

我不知道这比你的paste方法更好。无论哪种方式，您都可以将其包装在一个函数中，这样您只需要编写一次丑陋的代码。

于 2017-08-29T01:58:32.540 回答
1

这是一个基于@Ista 出色答案的解决方案。基本上，我已经放弃了第一个lapply支持purrr::map（我们可能会lapply用 a 替换第二个map，但我找不到更易读的方法来实现这一点）。

library(purrr)

vars_xml <- transpose(vars) %>% 
   map(~as_xml_document(list(Trial = lapply(.x, as.list))))
于 2018-08-24T18:59:53.557 回答