Я не уверен, что добавление одного узла за один раз с использованием 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
Есть ли способ / обходной путь, когда я заранее знаю все свои дочерние узлы и просто хочу добавить их все в корень?