Удалить пустой список из списка списков

Question

У меня есть список списков, где некоторые из них: NA, например. empty lists. Я хочу извлечь все списки, заполненные данными, и удалить все списки, которые являются empty(NA).

Код я пытаюсь это:

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

Но это не работает.

Список списков, как это: (небольшой пример случайных данных)

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))) 

Я только хочу, чтобы извлечь список с 5s в нем. Первые 6 списков следует игнорировать, например. удален.

Любая помощь приветствуется

Answer 1

Таким образом, чтобы удалить NA на первом уровне, вы можете использовать is.na непосредственно:

l[!is.na(l)] 

В качестве альтернативы, вы можете также использовать Filter, которая пытается принудить результаты из оценивает функцию для логического и возвращает те элементы, которые были оценены как TRUE. Вы могли бы сделать, например:

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

(или) эквивалентно (как @flodel пишет под комментарием)

Filter(Negate(is.na), l)