Skip to content
Permalink
Browse files

Leave sce_assay check to assay

  • Loading branch information...
Irrationone committed May 15, 2019
1 parent 775aea1 commit 59564acdb2a130115ebed585c5e3591607134930
Showing with 0 additions and 3 deletions.
  1. +0 −3 R/utils.R
@@ -76,9 +76,6 @@ get_mle_cell_type <- function(gamma) {
#' @keywords internal
extract_expression_matrix <- function(exprs_obj, sce_assay = "counts") {
if(is(exprs_obj, "SummarizedExperiment")) {
if(!sce_assay %in% names(SummarizedExperiment::assays(exprs_obj))) {
stop(paste("Assay", sce_assay, "is not present in the assays associated with the input SingleCellExperiment"))
}
Y <- t(as.matrix(SummarizedExperiment::assay(exprs_obj, sce_assay)))
} else if(is.matrix(exprs_obj) && is.numeric(exprs_obj)) {
Y <- exprs_obj

0 comments on commit 59564ac

Please sign in to comment.
You can’t perform that action at this time.