CODEWITHSUNDEEP
rlist
Sander Van der Zeeuw
Sander Van der Zeeuw

Reputation: 1092

Remove empty list from a list of lists

I have a list of lists where some of them are NA e.g. empty lists. I want to extract all the lists which are filled with data and remove all the lists which are empty(NA).

The code i'm trying is:

lapply(outputfile,function(x){
  if(outputfile != NA){
  test<-lapply(outputfile,unlist)
}})

But this does not work.

The list of lists is like this: (small example of random data)

list(NA, NA, NA, NA, NA, NA, list(c(5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5)))

I only want to extract the list with the 5s in it. The first 6 lists should be ignored e.g. removed.

Any help is appreciated

Upvotes: 4

Views: 6075

Answers (1)

Arun
Arun

Reputation: 118779

So, to remove NA at the first level, you could use is.na directly:

l[!is.na(l)]

Alternatively, you can also use Filter which tries to coerce the results of the evaluated function to logical and returns those elements that evaluated to TRUE. You could do, for example:

Filter(function(x) !is.na(x), l)

(or) equivalently (as @flodel writes under comment)

Filter(Negate(is.na), l)

Upvotes: 10

Related Questions