On Tue, 19 Sep 2023 17:14:58 +0200
arnaud gaboury <arnaud.gabo...@gmail.com> wrote:
> non_empty_df <- function(l) {
> lapply(l, function(df) df[sapply(df, function(df) nrow(df) !=0)])
> }
> If I test this way: non_empty_df(my.list[1]) it does the job. It will
> return the data.frame from the first list of my_list with rows.
> Now I can't find a way to iterate the above function to all the 9
> nested lists.
I think it should already work on the whole my.list. Note that
my.list[1] is a list containing one list of data.frames, not just a
list of data.frames (the latter would be my.list[[1]]).
The outer `l` argument is the list of lists of data.frames. Inside the
first anonymous function, `df` is a list of data.frames. Inside the
second anonymous function, `df` is finally a data frame which you test
for being non-empty. The lapply() call iterates over the lists of lists
and the sapply() iterates over the data.frames inside a list.
--
Best regards,
Ivan
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
