# NOT RUN {
# 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
# }
# NOT RUN {
# }
# NOT RUN {
# error
is_null_list()
# }
Run the code above in your browser using DataLab