fix altExp convert

AustinHartman · Jun 7, 2021 · 8482f75 · 8482f75
1 parent dfa68df
commit 8482f75
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/R/objects.R b/R/objects.R
@@ -1187,12 +1187,14 @@ as.SingleCellExperiment.Seurat <- function(x, assay = NULL, ...) {
   # create one single cell experiment
   sce <- as(object = experiments[[1]], Class = "SingleCellExperiment")
   orig.exp.name <- names(x = experiments[1])
-  sce <- SingleCellExperiment::SingleCellExperiment(sce, altExps = experiments)
-  sce <- SingleCellExperiment::swapAltExp(
-    x = sce,
-    name = orig.exp.name,
-    saved = NULL
-  )
+  if (length(x = experiments) > 1) {
+    sce <- SingleCellExperiment::SingleCellExperiment(sce, altExps = experiments)
+    sce <- SingleCellExperiment::swapAltExp(
+      x = sce,
+      name = orig.exp.name,
+      saved = NULL
+    )
+  }
   metadata <- x[[]]
   metadata$ident <- Idents(object = x)
   SummarizedExperiment::colData(x = sce) <- S4Vectors::DataFrame(metadata)