Рекурсивно извлечь XML-атрибут

Question

У меня есть документ XML:

library("xml2")

xml_ex <- '
<Member name="ONE">
    <Member name="A"/>
    <Member name="B">
        <Member name="1"/>
        <Member name="2"/>
    </Member>
    <Member name="C"/>
</Member>'

ex <- read_xml(xml_ex)

Как извлечь name атрибут от каждого Member сохраняя при этом иерархические отношения? Например:

structure(
  list(
    ONE = structure(
      list(
        A = "", 
        B = structure(
          list(
            `1` = "",
            `2` = ""
            ), 
            .Names = c("1", "2")
        ), 
        C = ""),
        .Names = c("A", "B", "C")
    )
  ),
  .Names = "ONE"
)
## $ONE
## $ONE$A
## [1] ""
## 
## $ONE$B
## $ONE$B$`1`
## [1] ""
## 
## $ONE$B$`2`
## [1] ""
## 
## $ONE$C
## [1] ""

РЕДАКТИРОВАТЬ: Изменен выход цели

Answer 1

Я пришел к решению ниже, которое работает, но кажется неуклюжим.

takeTheChildren <- function(x, search) {
  # extracting the nth node (search) from the nodeset x
  lapply(search, xml2::xml_child, x = x)
}

hierBuilder <- function(nodes) {

  if (!requireNamespace("xml2", quietly = TRUE)) {
    stop("`xml2` needed for this function to work. Please install it.", call. = FALSE)
  }

  # if we reach the leaf level of any of the node sets,
  # just return an empty string
  if (length(nodes) == 0L) {
    return("")
  }

  # extract the names of each of the current top level nodes
  names(nodes) <- sapply(nodes, xml2::xml_attr, attr = 'name')

  # count the children each of the current top level node has, make a sequence
  seq_ix <- lapply(nodes, function(node) {
    seq(xml2::xml_children(node))
  })

  # make a list of individual child nodes under each of the current top level
  # nodes, while preserving the hierarchy
  children <- mapply(takeTheChildren, x = nodes, search = seq_ix, SIMPLIFY = FALSE)

  # recurse on the current node's children
  return(lapply(children, hierBuilder))
}

Раздражающее требование состоит в том, что мы должны передать начальный xml_doc или xml_nodeset в качестве списка для работы рекурсии:

hierBuilder(list(ex))
## $ONE
## $ONE$A
## [1] ""
## 
## $ONE$B
## $ONE$B$`1`
## [1] ""
## 
## $ONE$B$`2`
## [1] ""
## 
## $ONE$C
## [1] ""