Зацикливание вложенных списков в 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) 

РЕДАКТИРОВАТЬ: Лучший вариант

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