add droplevels for meta.data UpdateSeuratObject

samuel-marsh · David Collins · commit 6896340eb443 · 2025-04-21T13:40:05.000-04:00
diff --git a/R/seurat.R b/R/seurat.R
@@ -873,7 +873,7 @@ UpdateSeuratObject <- function(object) {
         misc = object@misc %||% list(),
         active.ident = object@ident,
         reductions = new.dr,
-        meta.data = object@meta.data,
+        meta.data = droplevels(object@meta.data),
         tools = list()
       )
       # Run CalcN

Original file line number	Diff line number	Diff line change
`@@ -873,7 +873,7 @@ UpdateSeuratObject <- function(object) {`
`873`	`873`	`misc = object@misc %\|\|% list(),`
`874`	`874`	`active.ident = object@ident,`
`875`	`875`	`reductions = new.dr,`
`876`		`- meta.data = object@meta.data,`
	`876`	`+ meta.data = droplevels(object@meta.data),`
`877`	`877`	`tools = list()`
`878`	`878`	`)`
`879`	`879`	`# Run CalcN`