Ensure cells are character vector

satijalab · Sep 20, 2022 · c4a5fd3 · c4a5fd3
1 parent 69fc8a9
commit c4a5fd3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/integration.R b/R/integration.R
@@ -5384,7 +5384,7 @@ ValidateParams_IntegrateEmbeddings_TransferAnchors <- function(
   }
   reference.cells <- slot(object = anchorset, name = "reference.cells")
   reference.cells <- gsub(pattern = "_reference", replacement = "", x = reference.cells)
-  if (!isTRUE(x = all.equal(target = reference.cells, current = Cells(x = reference)))) {
+  if (!isTRUE(x = all.equal(target = reference.cells, current = as.character(x = Cells(x = reference))))) {
     stop("The set of cells used as a reference in the AnchorSet does not match ",
          "the set of cells provided in the reference object.")
   }