如何在R中循环xml文件中的变量组合并保存到新的xml文件中

library(XML)
xml_data <- xmlParse("path/to/original.xml")

new_xml <- newXMLDoc()

# 假设原始XML文件中的变量节点位于"/root/variables/variable"路径下
variable_nodes <- xpathApply(xml_data, "/root/variables/variable")

# 循环遍历变量节点
for (node in variable_nodes) {
  # 获取变量节点的值
  variable_value <- xmlValue(node)
  
  # 根据需要进行变量组合操作
  # ...
  
  # 创建新的变量节点并设置值
  new_variable_node <- newXMLNode("variable", variable_value)
  
  # 将新的变量节点添加到新的XML对象中
  xmlAddChild(new_xml, new_variable_node)
}

saveXML(new_xml, "path/to/new.xml")