使用带有xml2的管道运算符编写XML

Question

该XML2包允许用户创建XML文档.我正在尝试使用管道运算符创建一个文档%>%来添加子节点和兄弟节点的各种组合.我无法弄清楚如何在子节点内创建子节点,该子节点跟随原始子节点的兄弟节点(参见下面的示例).

是否有可能"升级"一个级别然后创建更多节点或者是否必须在链式命令之外创建它们？

我想要的是

library(xml2)
x1 <- read_xml("<parent><child>1</child><child><grandchild>2</grandchild></child><child>3</child><child>4</child></parent>")
message(x1)
#> <?xml version="1.0" encoding="UTF-8"?>
#> <parent>
#>  <child>1</child>
#>  <child>
#>    <grandchild>2</grandchild>
#>  </child>
#>  <child>3</child>
#>  <child>4</child>
#> </parent>

我在创造那是错的

library(magrittr)
library(xml2)
x2 <- xml_new_document()
x2 %>% 
  xml_add_child("parent") %>%
  xml_add_child("child", 1) %>%
  xml_add_sibling("child", 4, .where="after") %>%
  xml_add_sibling("child", 3) %>%
  xml_add_sibling("child", .where="before") %>%
  xml_add_child("grandchild", 2)
message(x2)
#> <?xml version="1.0" encoding="UTF-8"?>
#> <parent>
#>  <child>1</child>
#>  <child>4</child>
#>  <child>
#>    <grandchild>2</grandchild>
#>  </child>
#>  <child>3</child>
#> </parent>

使用XML包的解决方案

如果使用XML包完成,这实际上相当简单.

library(XML)
x2 <- newXMLNode("parent")
invisible(newXMLNode("child", 1, parent=x2))
invisible(newXMLNode("child", newXMLNode("grandchild", 2), parent=x2))
invisible(newXMLNode("child", 3, parent=x2))
invisible(newXMLNode("child", 4, parent=x2))
x2
#> <?xml version="1.0" encoding="UTF-8"?>
#> <parent>
#>  <child>1</child>
#>  <child>
#>    <grandchild>2</grandchild>
#>  </child>
#>  <child>3</child>
#>  <child>4</child>
#> </parent>

Answer 1

我首先要说的是,我认为这通常是一个坏主意.xml2使用指针工作,这意味着它具有引用语义("按引用传递"),这不是R中的典型行为.xml2中的函数通过在XML树上产生副作用而不是通过返回函数编程中的值来工作("按值传递").

这意味着管道基本上是错误的原则.您只需要一系列以正确顺序修改对象的步骤.

那说,你可以这样做:

library("magrittr")
library("xml2")
x2 <- xml_new_document()
x2 %>% 
  xml_add_child(., "parent") %>%
{
  xml_add_child(., "child", 1, .where = "after")
  (xml_add_child(., "child") %>% xml_add_child("grandchild", 2))
  xml_add_child(., "child", 3, .where = "after")
  xml_add_child(., "child", 4, .where = "after")
}
message(x2)
## <?xml version="1.0" encoding="UTF-8"?>
## <parent>
##   <child>1</child>
##   <child>
##     <grandchild>2</grandchild>
##   </child>
##   <child>3</child>
##   <child>4</child>
## </parent>

该.通知%>%放置在后续调用"父"节点,在xml_add_child().()中间的括号表达式利用了这样一个事实,即您想要管道进入"子"节点,然后将该子节点传递到孙子节点.

另一种选择,如果你真的想在整个过程中使用管道,那就是使用%T>%管道而不是%>%管道(或者更确切地说是两者的混合).两者的区别如下:

> 1:3 %>% mean() %>% str()
 num 2
> 1:3 %T>% mean() %>% str()
 int [1:3] 1 2 3

所述%T>%管推动左侧的表达成右手侧的表达式的值,但进一步其推到随后的表达.这意味着您可以在管道中间调用函数以获得副作用,并继续在管道中向前传递先前的对象引用.

这就是当你说"提升一个级别"时你想要做的事情 - 也就是说,回到管道中的先前值并从那里开始工作.因此,您只需要%T>%管道直到达到要%>%管道的位置(例如,创建孙子),然后返回%T>%管道以继续向前传送父对象引用.一个例子:

x3 <- xml_new_document()
x3 %>% 
  xml_add_child("parent") %T>%
    xml_add_child("child", 1, .where = "after") %T>%
    {xml_add_child(., "child") %>% xml_add_child("grandchild", 2)} %T>%
    xml_add_child("child", 3, .where = "after") %>%
    xml_add_child("child", 4, .where = "after")
message(x3)
## <?xml version="1.0" encoding="UTF-8"?>
## <parent>
##   <child>1</child>
##   <child>
##     <grandchild>2</grandchild>
##   </child>
##   <child>3</child>
##   <child>4</child>
## </parent>

注意最后%>%而不是%T>%.如果你换%>%了%T>%整个管道的价值将是"父"节点只树:

{xml_document}
<parent>
[1] <child>1</child>
[2] <child>\n  <grandchild>2</grandchild>\n</child>
[3] <child>3</child>
[4] <child>4</child>

(其中 - 再次 - 最终并不重要,因为我们实际上正在构建x3使用副作用,但它会将父节点树打印到控制台,这可能会令人困惑.)

同样,我建议不要使用管道,因为尴尬,但这取决于你.更好的方法是保留要附加子项的每个对象,然后每次再次引用它.就像在第一个例子中,除父节点p,跳过所有的管道,只是指p每个地方.在示例代码中使用.