Usuń NULL element i wyświetlać na liście listy poziomie lokalnym z zagnieżdżonej listy w R

Question

Załóżmy, że mam listy, mówią, że ma trzy poziomy:

tmp =list(list(list(c(2,9,10), NULL), c(1,3,4,6)), 7) 

co zmieni

[[1]] 
[[1]][[1]] 
[[1]][[1]][[1]] 
[1] 2 9 10 

[[1]][[1]][[2]] 
NULL 

[[1]][[2]] 
[1] 1 3 4 6 

[[2]] 
[1] 7 

chciałbym aby usunąć element NULL i lokalny poziom listy. tj zagnieżdżona lista tmp ma tylko 2 poziomy i staje

tmp =list(list(c(2,9,10), c(1,3,4,6)), 7). 

Oznacza to, że sygnał wyjściowy będzie albo być następujące:

tmp 
[[1]] 
[[1]][[1]] 
[1] 2 9 10 

[[1]][[2]] 
[1] 1 3 4 6 

[[2]] 
[1] 7 

Próbowałem szukać pozycji indeksu NULL ale bez szczęścia. Ponadto nie jestem pewien, jak wykryć i usunąć listę zawierającą element NULL na liście. Dzięki!

Answer 1

Zazwyczaj usunąć NULL elementów na płaskiej listy z

ll <- list(1, 2, NULL, 3) 
ll <- ll[ ! sapply(ll, is.null) ] 

Jeśli nie znają strukturę z góry, jest to wyraźny przypadek łączenia tego rozwiązania z funkcji rekurencyjnej:

removeNullRec <- function(x){ 
    x <- x[ !sapply(x, is.null) ] 
    if(is.list(x)){ 
    x <- lapply(x, removeNullRec) 
    } 
    return(x) 
} 

removeNullRec(tmp) 

[[1]] 
[[1]][[1]] 
[[1]][[1]][[1]] 
[1] 2 9 10 


[[1]][[2]] 
[1] 1 3 4 6 


[[2]] 
[1] 7 

Edit

To zawsze dobry przeformułowanie problemu tak proste, jak to możliwe. Z twoich komentarzy wynika, że ​​(niezależnie od występowania elementów NULL) chcesz, aby zastąpić każdy element, który zawiera tylko jedno dziecko przez samo dziecko. Jest jeszcze jeden przypadek, który należy wziąć pod uwagę: Dwa liście o rodzeństwie również mogą być NULL. Więc zacznijmy trochę bardziej skomplikowany przykład:

tree <- list(
    list(
    list(
     list(
     list(NULL, NULL), 
     list(NULL, NULL) 
    ), 
     7 
    ), 
    list(
     list(
     list(c(1,2), NULL), 
     c(3,4) 
)))) 

to odosobniony problem płaskiego drzewa jest oczywiście również rozwiązany najlepiej stosując rekurencyjnej podejście:

flatTreeRec <- function(x){ 
    if(is.list(x)){ 
    # recursion 
    x <- lapply(x, flatTree) 
    # remove empty branches 
    x <- x[ sapply(x, length) > 0 ] 
    # flat branches with only child 
    if(length(x) == 1){ 
     x <- x[[1]] 
    } 
    } 
    return(x) 
} 

flatTreeRec(removeNullRec(tree)) 

i Oczywiście możesz bezpośrednio łączyć te dwie funkcje, aby uniknąć dwukrotnego nacisku na swój stos:

removeNullAndFlatTreeRec <- function(x){ 
    x <- x[ !sapply(x, is.null) ] 
    if(is.list(x)){ 
    x <- lapply(x, removeNullRec) 
    x <- x[ sapply(x, length) > 0 ] 
    if(length(x) == 1){ 
     x <- x[[1]] 
    } 
    } 
    return(x) 
} 

removeNullAndFlatTreeRec(tree) 

Answer 2

używam tej funkcji:

removeNULL <- function(x){ 
    x <- Filter(Negate(is.null), x) 
    if(is.list(x)){ 
     x <- lapply(x, function(y) Filter(length, removeNULL(y))) 
    } 
    return(x) 
} 

Nie tylko usunięcia NULL elementy, ale także usuwa elementy, które znajduje się lista zawierająca jedynie NULL elementów, takich jak A2$A2$format$font w poniższym przykładzie:

> A2 
$A2 
$A2$value 
[1] 9.9 

$A2$format 
$A2$format$numberFormat 
[1] "2Decimal" 

$A2$format$font 
$A2$format$font$name 
NULL 

$A2$format$font$bold 
NULL 

$A2$format$font$color 
NULL 



$A2$comment 
NULL 


> removeNULL(A2) 
$A2 
$A2$value 
[1] 9.9 

$A2$format 
$A2$format$numberFormat 
[1] "2Decimal"