put default assay to first

trn13 · Aug 5, 2021 · 6287d8a · 6287d8a
1 parent 01b9599
commit 6287d8a
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/objects.R b/R/objects.R
@@ -1179,6 +1179,9 @@ as.SingleCellExperiment.Seurat <- function(x, assay = NULL, ...) {
   if (!all(assay %in% Assays(object = x))) {
     stop("One or more of the assays you are trying to convert is not in the Seurat object")
   }
+  if (DefaultAssay(object = x) %in% assay) {
+    assay <- union(DefaultAssay(object = x), assay)
+  }
   experiments <- list()
   for (assayn in assay) {
     assays <- list(