如何获取在R中使用相对xpath找到的节点的绝对路径？

library(XML)

# 1. 使用相对XPath定位到目标节点
doc <- xmlParse("your_xml_file.xml")
nodes <- xpathApply(doc, "//your/relative/xpath")

# 2. 将目标节点存储为节点集合
node_set <- getNodeSet(nodes)

# 3. 获取节点的绝对路径
get_absolute_path <- function(node) {
  if (is.null(xmlParent(node))) {
    return("/")
  } else {
    parent_path <- get_absolute_path(xmlParent(node))
    node_name <- xmlName(node)
    return(paste(parent_path, node_name, sep = "/"))
  }
}

# 4. 打印节点的绝对路径
for (node in node_set) {
  absolute_path <- get_absolute_path(node)
  print(absolute_path)
}