如何在R中使用xml2软件包将多个xml节点快速添加到根目录？

Question

我不确定是否使用xml2::xml_add_child一次添加一个节点是否类似于使用someList[[length(someList)+1]] <- 0增长列表（如果可以预先分配，效率很低），但是在调试之后，这似乎是我的瓶颈：

library(xml2)
rNode <- xml_new_root('Test')
start <- Sys.time();
invisible(lapply(1:5000, function(i) { 
    childNode <- xml_new_root('Child')
    xml_add_child(rNode, childNode)
))
Sys.time - start
Time difference of 7.971461387 mins

当我提前知道所有子节点并将其全部附加到根节点时，是否有一种方法/解决方法？