I have a list column with nested lists and want to remove those lists which contain only NA.

I saw this and this, but it seems I am missing something crucial. Many thx.

```
library(tidyverse)
x <- list(list(c("A", "B"), NA, NA, NA),
list(c("C","E"), NA, "D", NA, NA))
intended.answer <- list(list(c("A", "B")),
list(c("C","E"),"D"))
x %>% map_depth(.,2, has_element, NA)
#> [[1]]
#> [[1]][[1]]
#> [1] FALSE
#>
#> [[1]][[2]]
#> [1] TRUE
#>
#> [[1]][[3]]
#> [1] TRUE
#>
#> [[1]][[4]]
#> [1] TRUE
#>
#>
#> [[2]]
#> [[2]][[1]]
#> [1] FALSE
#>
#> [[2]][[2]]
#> [1] TRUE
#>
#> [[2]][[3]]
#> [1] FALSE
#>
#> [[2]][[4]]
#> [1] TRUE
#>
#> [[2]][[5]]
#> [1] TRUE
x %>% discard(., has_element(.,NA))
#> Error in probe(.x, .p, ...): length(.p) == length(.x) ist nicht TRUE
x %>% compact(.) %>% purrr::discard(.,is.na(.))
#> [[1]]
#> [[1]][[1]]
#> [1] "A" "B"
#>
#> [[1]][[2]]
#> [1] NA
#>
#> [[1]][[3]]
#> [1] NA
#>
#> [[1]][[4]]
#> [1] NA
#>
#>
#> [[2]]
#> [[2]][[1]]
#> [1] "C" "E"
#>
#> [[2]][[2]]
#> [1] NA
#>
#> [[2]][[3]]
#> [1] "D"
#>
#> [[2]][[4]]
#> [1] NA
#>
#> [[2]][[5]]
#> [1] NA
```