使用data.tree处理XML时遇弃用警告及元素文本访问问题

1. 消除弃用警告 #

直接替换data.tree中已弃用的API：

• 将所有Node$fieldsAll替换为Node$attributesAll
• 将所有Node$fields替换为Node$attributes

这是因为data.tree v1.1.0已完成字段属性的命名规范更新，旧API仅保留兼容性提示，替换后警告会完全消失。

2. 修复XML文本内容无法访问的问题 #

问题出在xml2转列表再转Node的过程中，元素文本未被正确挂载到节点属性中。需自定义XML到列表的转换逻辑，确保文本内容被保留：

完整代码示例 #

library(xml2)
library(data.tree)

# 1. 解析XML文档
xml_doc <- read_xml("your_xml_file.xml")  # 替换为你的XML文件路径

# 2. 递归处理xml2节点，生成带文本内容的结构化列表
xml_to_tree_list <- function(node) {
  # 提取当前节点的文本（去除首尾空白）
  node_text <- xml_text(node, trim = TRUE)
  result <- list()
  
  # 若文本非空，将其作为节点的textContent属性
  if (nchar(node_text) > 0) {
    result$textContent <- node_text
  }
  
  # 递归处理子节点
  child_nodes <- xml_children(node)
  for (child in child_nodes) {
    child_name <- xml_name(child)
    child_data <- xml_to_tree_list(child)
    
    # 处理同名多节点的情况（如Deployment[1]、Deployment[2]）
    if (child_name %in% names(result)) {
      # 若已存在同名节点，转为列表存储多个实例
      if (!is.list(result[[child_name]]) || !is.null(names(result[[child_name]]))) {
        result[[child_name]] <- list(result[[child_name]])
      }
      result[[child_name]] <- c(result[[child_name]], list(child_data))
    } else {
      result[[child_name]] <- child_data
    }
  }
  return(result)
}

# 3. 转换为data.tree的Node对象
tree_list <- xml_to_tree_list(xml_doc)
root_node <- Node$new(xml_name(xml_doc))
FromListExplicit(tree_list, root = root_node)

# 4. 访问目标节点的文本内容
target_text <- root_node$Result$Record$Deployment[[2]]$SamplingDetails$Channel$Start$textContent
print(target_text)

关键说明 #

• 自定义的xml_to_tree_list函数会将XML元素的文本内容存入textContent属性，确保转成Node后可直接访问
• 对同名多节点（如多个Deployment）做了特殊处理，转为列表形式存储，避免覆盖
• 使用FromListExplicit而非默认转换函数，能严格按照列表结构构建树节点

内容的提问来源于stack exchange，提问作者Marie R