R中嵌套列表的叶子名称

Question

我想检查两个嵌套列表是否在最后一级具有相同的名称。

如果unlist 提供了不连接名称的选项，这将是微不足道的。但是，看起来我需要一些功能leaf.names()：

X <- list(list(a = pi, b = list(alpha.c = 1:5, 7.12)), d = "a test")

leaf.names(X)
[1] "a" "alpha.c" "NA" "d"

如果可能的话，我想避免任何不雅的 grepping。我觉得应该有一些简单的方法可以使用rapply 或unlist...

Answer 1

leaf.names <- function(X) names(rlang::squash(X))

或

leaf.names <- function(X){
  while(any(sapply(X, is.list))) X <- purrr::flatten(X) 
  names(X)
}

给予

leaf.names(X)
# [1] "a"       "alpha.c" ""        "d"