R/utils.R

# Defaults for NULL values
`%||%` <- function(a, b) if (is.null(a)) b else a

compact <- function(x) {
  x[!vapply(x, is.null, logical(1))]
}
nverno/treestack documentation built on May 24, 2019, 10:56 a.m.