R/is_zdd.R

In jordagaman/zddr: A zero-suppressed binary decision diagram implementation for R

#' is_zdd
#'
#' @param zdd object
#'
#' @return TRUE if the object is the class of the zdd list object
#' @export
#'
#' @examples
#' is_zdd(as_zdd(FALSE)) # TRUE
#' is_zdd(3L)     # FALSE
is_zdd <- function(zdd) {
  return(class(zdd) == 'zdd')
}