Найти пустые списки во вложенном списке списков

Question

Учитывая произвольно вложенный список, как я могу найти, содержит ли список пустые списки? Рассмотрим следующий пример:

mylist <- list(list("foo", "bar", "baz", list(list())))

Я попытался rapply, но пропускает через списки. Хотя я мог бы использовать lapply, мне нужно было знать уровень гнездования заранее. Для этого упражнения мне не нужно знать, где находится список (хотя это будет бонус), мне просто нужен способ определить, есть ли он.

Answer 1

насчет функции, как этот

has_empty_list <- function(x) { 
    if(is.list(x)) { 
     if (length(x)==0) { 
      return(TRUE) 
     } else { 
      return(any(vapply(x, has_empty_list, logical(1)))) 
     } 
    } else { 
     return(FALSE) 
    } 
} 

В основном мы создаем рекурсивную функцию для поиска списков длины 0.

has_empty_list(list(list("foo", "bar", "baz", list(list())))) 
# TRUE 
has_empty_list(list(list("foo", "bar", "baz", list(list(4))))) 
# FALSE 

А вот модификация найти индекс пустого списка

find_empty_list <- function(x, index=c()) { 
    if(is.list(x)) { 
     #list 
     if (length(x)==0) { 
      if (length(index)==0) { 
       return(0) 
      } else { 
       return(index) 
      } 
     } else { 
      m <- Map(find_empty_list, x, lapply(seq_along(x), function(i) append(index,i))) 
      # return the most deeply nested 
      return(m[[which.max(lengths(m))]]) 
     } 
    } else { 
     return(numeric()) 
    } 
} 

Это должно вернуть вектор индекса, который вы можете использовать для поиска пустого список. Например

(i <- find_empty_list(mylist)) 
# [1] 1 4 1 
mylist[[i]] 
# list() 

Если сам первый параметр является пустым списком, он будет возвращать 0

find_empty_list(list()) 
# 0 

и если нет пустого списка, он должен возвращать пустой вектор

find_empty_list(list(1:3, list("c", a~b))) 
# numeric() 

Answer 2

Другим удобным вариантом для работы с вложенным списком является использование data.tree пакета:

library(data.tree) 
nodes <- as.Node(mylist) 
any(node$Get(function(node) length(as.list(node))) == 0) 
# [1] TRUE