删除R中树中没有子项的同级

# 定义删除空节点的函数
deleteEmptyNodes <- function(node) {
  if (is.null(node$children)) {
    # 如果当前节点没有子项，则删除该节点
    parent <- attr(node, "parent")
    if (!is.null(parent)) {
      parent$children <- parent$children[-which(parent$children == node)]
    }
  } else {
    # 如果当前节点有子项，则递归调用deleteEmptyNodes函数
    for (child in node$children) {
      deleteEmptyNodes(child)
    }
  }
}

# 创建一个树结构
tree <- list(
  name = "A",
  children = list(
    list(
      name = "B",
      children = list(
        list(name = "C"),
        list(name = "D")
      )
    ),
    list(
      name = "E",
      children = list(
        list(name = "F"),
        list(name = "G")
      )
    ),
    list(
      name = "H"
    )
  )
)

# 删除树中没有子项的同级节点
deleteEmptyNodes(tree)

# 打印删除后的树结构
print(tree)