在 R 中循环嵌套列表

Question

我有一个包含 15 个级别的巨大嵌套列表。我需要用 chr“”替换任何级别出现的空列表。我尝试 lapply 遍历列表，但它不起作用。有什么简单的方法可以做到这一点吗？

nested_list<-list(a=list(x=list(),y=list(i=list(),j=list(p=list(),q=list()))),b=list())

lapply(nested_list,function(x) if(length(x)==0) "" else x)

lapply 仅应用于第一级，我如何递归循环整个嵌套列表并执行此操作？

Answer 1

尝试以下递归。

foo <- function(l){
    lapply(l, function(x) if(length(x)==0) "" else foo(x))
}
foo(nested_list)

编辑：更好的版本

foo <- function(l){
    lapply(l, function(x) if(is.list(x) && length(x)==0) "" else if(is.list(x)) foo(x) else x)
}

looping nested lists in R