将所有较高级别节点属性作为列的XML节点转R数据框

install.packages("XML")
install.packages("RCurl")
library(XML)
library(RCurl)

xml_data <- getURL("http://example.com/data.xml")

xml_tree <- xmlTreeParse(xml_data, useInternalNodes = TRUE)

xml_root <- xmlRoot(xml_tree)

xml_to_df <- function(node) {
  if (xmlName(node) == "#text") {
    return(NULL)
  }
  
  attributes <- xmlAttrs(node)
  children <- xmlChildren(node)
  
  if (length(children) == 0) {
    return(as.data.frame(t(attributes)))
  }
  
  df <- do.call(rbind, lapply(children, xml_to_df))
  df <- cbind(df, attributes)
  
  return(df)
}

data_frame <- xml_to_df(xml_root)