R递归获取任意深度嵌套列表的第一个元素的名称

Question

我知道有很多相关的帖子，但我发现没有一个能解决我的问题。情况如下:我正在使用 shinyTree 包，当我选择一个节点时，它的结构如下

List of 1
 $ :List of 1
  ..$ ParentA:List of 1
  .. ..$ ParentB:List of 1
  .. .. ..$ ParentC: num 0

这可以重现:

mynode = list(list(ParentA=list(ParentB=list(ParentC=0)))

我想从中获得嵌套列表名称的向量

c("ParentA", "ParentB", "ParentC")

我试过使用像这样的递归函数

recursive <- function(x){
if(is.list(x)) recursive(x[[1]])
names(x[[1]])
}

使用 lapply 但它没有用...我不知道该尝试什么...有人可以帮忙吗？？

提前致谢

Answer 1

试试这个

strsplit(names(unlist(mynode)) , "\\.")[[1]]

• 输出

#> [1] "ParentA" "ParentB" "ParentC"