我不太习惯lapply和整个apply家庭。我可以在for循环中使用循环，但在尝试切换到lapply时我无法进行。
有什么不对？
我的代码
目的：尝试删除不包含任何行的所有列表项。
for(i in 1:length(a.df)) {
# Works great
if(nrow(a.df[[i]]) == 0) a.df[[i]] <- NULL
}
lapply(seq_along(a.df), function(i) {x <- if(nrow(a.df[[i]]) == 0) a.df[[i]] <- NULL; x }) # returns only NA...