循環嵌套列表中的R

Question

我有一個巨大的15層的嵌套列表。我需要用chr「」替換出現在任何級別的空列表。我嘗試了一下循環遍歷列表，但它不工作。有沒有簡單的方法來做到這一點？

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) 

EDIT：一個更好的版本

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