make sure that assay meta.data ends up in the output

scverse · Oct 24, 2024 · 46d8672 · 46d8672
1 parent e7f2be2
commit 46d8672
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/Seurat.R b/R/Seurat.R
@@ -143,9 +143,11 @@ to_Seurat <- function(
   )
 
   # trackstatus: class=Seurat, feature=get_var, status=done
-  assay <- obj@assays[[assay_name]]
   if (!is.null(var)) {
-    assay <- SeuratObject::AddMetaData(assay, metadata = adata$var)
+    obj@assays[[assay_name]] <- SeuratObject::AddMetaData(
+      obj@assays[[assay_name]],
+      metadata = adata$var
+    )
   }
 
   # make sure obs and var names are set properly