R/utils.R

In tribe: Play with the Tribe of Attributes

Defines functions is_empty nlist

is_empty <- function(x) {
  length(x) == 0L
}


#' @importFrom dplyr lst
#' 
nlist <- function(...) {
  x <- dplyr::lst(...)
  if (is_empty(x)) {
    names(x) <- character(0L)
  }
  x
}

Try the tribe package in your browser