fix for issue satijalab#7922

agdenadel · Nov 15, 2023 · 891cd23 · 891cd23
1 parent f828377
commit 891cd23
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/integration.R b/R/integration.R
@@ -2621,19 +2621,19 @@ MappingScore.AnchorSet <- function(
   combined.object <- slot(object = anchors, name = "object.list")[[1]]
   combined.object <- RenameCells(
     object = combined.object,
-    new.names = unname(obj = sapply(
+    new.names = unname(obj = make.unique(sapply(
       X = Cells(x = combined.object),
       FUN = RemoveLastField
-    ))
+    )))
   )
-  query.cells <- sapply(
+  query.cells <- make.unique(sapply(
     X = slot(object = anchors, name = "query.cells"),
     FUN = RemoveLastField
-  )
-  ref.cells <- sapply(
+  ))
+  ref.cells <- make.unique(sapply(
     X = slot(object = anchors, name = "reference.cells"),
     FUN = RemoveLastField
-  )
+  ))
   query.embeddings <- Embeddings(object = subset(
     x = combined.object[["pcaproject.l2"]],
     cells = query.cells