R/utils.R

In coolbutuseless/minicss: CSS Builder

'%||%' <- function(x, y) {
  if (is.null(x)) {
    y
  } else {
    x
  }
}




#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#' Check if all elements are named
#'
#' @param x object e.g. list, vector
#' @return TRUE if all elements are named, otherwise FALSE
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
all_named <- function(x) {
  named <- nzchar(names(x))
  length(x) == 0 || (!is.null(named) && length(named) > 0 && all(named))
}