# I can run this only if I'd make is_null_list exported
## Not run:
# # 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
# ## End(Not run)
## Not run:
# # error
# is_null_list()
# ## End(Not run)
Run the code above in your browser using DataLab