如何从列表中子集化？

Question

我需要列表的一个子集，但是列表中仍然有不适用该子集的条目。 在我的列表中，应该只有适合子功能的条目。 我怎么解决这个问题？ 我以航班为例 谢谢！

编辑：

install.packages("nycflights13")
library(nycflights13)
library(plyr)

list_flights<-dlply(flights,"carrier")

subset_list<-lapply(list_flights, function(x) subset(x,dest == "BWI" & origin == "EWR"))

Answer 1

删除没有任何数据的元素

subset_list[lapply(subset_list, nrow) > 0]