我有一个包含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仅应用于第一级,如何递归循环整个嵌套列表并执行此操作?
答案 0 :(得分:9)
尝试以下递归。
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)
}