R/check_supported.R

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

check_supported <- function(obj){

  if(!is_class(obj,"supported") &&
     !is_ctd(obj)){
    stopper("Unsupported class detected: ",
            paste(methods::is(obj),collapse = " / "),
            "\n"," obj must be at least one of the following classes:",
            paste(" \n -",dict_class(group = "supported_print"),
                  collapse = ""))
  }
}