# I can run this only if I'd make is_null_list exported
if (FALSE) {
# TRUE:
is_null_list(list())
# FALSE
is_null_list(list(1))
is_null_list(1)
x <- list(1, list(), 123)
ss_list <- sapply(x, is_null_list)
x <- x[!ss_list]
x
x <- list(1, list(), 123)
ss_list <- sapply(x, is_null_list)
x <- list(list())
x
}
if (FALSE) {
# error
is_null_list()
}
Run the code above in your browser using DataLab