R/cleanNULL.R

In neotoma2: Working with the Neotoma Paleoecology Database

#' @title Clean NULL values
#' @description Pass an object and convert all
#' \code{NULL} elements to \code{NA}.
#' @param x An element that may or may not have NULL values.
#' @returns parsed `list` where NULL values are changed to NA
#' @export
cleanNULL <- function(x) { # nolint
  out <- rapply(x,
                function(y) {
                  #print(y)
                  ifelse(is.null(y), NA, y)
                },
                how = "replace")
  return(out)
}