R/utils.R

In MangoTheCat/sankey: Sankey Diagrams

Defines functions `%||%` null_or_any_na drop_last

`%||%` <- function(l, r) {
  if (is.null(l)) r else l
}

null_or_any_na <- function(x) {
  is.null(x) || any(is.na(x))
}

#' @importFrom utils head

drop_last <- function(x) {
  head(x, length(x) - 1)
}