R/empty.rstack.R

In oneilsh/rstackdeque: Persistent Fast Amortized Stack and Queue Data Structures

#' @export
#' @title Check if an rstack is empty
#' @description Check if an rstack is empty.
#' @details Runs in \eqn{O(1)} time.
#' @param x the rstack to check.
#' @param ... additional arguments to be passed to or from methods (ignored).
#' @return logical vector of length 1.
#' @seealso \code{\link{empty}} for the generic function that can be used on rstacks, rdeques, and rpqueues.
empty.rstack <- function(x, ...) {
  if(length(x) < 1) {
    return(TRUE)
  } else {
    return(FALSE)
  }
}