R/rmNullObs.R

In ggedit: Interactive 'ggplot2' Layer and Theme Aesthetic Editor

#' @title rmNullObs
#' @description Removes null objects from a nested list.
#' @param x list
#' @return list
#' @keywords internal
rmNullObs <- function(x) {
  if (!(is.function(x))) {
    x <- x[!(sapply(x, is.NullOb))]
    lapply(x, function(x) if (is.list(x)) rmNullObs(x) else x)
  }
}