R/is_list.R

In bschilder/scKirby: Automated ingestion and conversion of various single-cell data formats.

is_list <- function(obj,
                    validate=FALSE){
  is.list(obj) &&
    !is.data.frame(obj) &&
    !is_sparse_matrix(obj) &&
    !methods::is(obj,"matrix") &&
    if(isTRUE(validate)){
      all(c("data","obs") %in% names(obj))
    } else {
      TRUE
    }
}