R/drop_doublets.R

In trichelab/velocessor: The world's dumbest single-cell RNA velocity calculator and loader

#' @rdname find_doublets
#' @export
drop_doublets <- function(txis, score=NULL, clust=TRUE, ...) {

  dbls <- find_doublets(txis, score=score, clust=clust, ...) 
  if ("scDblFinder.class" %in% names(colData(dbls))) {
    dbls <- dbls[, dbls$scDblFinder.class == "singlet"]
  }
  return(dbls)

}