From 2da230c4ec9aa8e5a543c7525ff2c8a250fd1fb9 Mon Sep 17 00:00:00 2001
From: dgodovich <31218794+dgodovich@users.noreply.github.com>
Date: Tue, 1 Apr 2025 16:14:25 -0400
Subject: [PATCH] Update .copyArrowSingle

Fix the cellNames check to be sample aware, and be more in line with the other cellNames checks in copyArrows
---
 R/ArrowUtils.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/ArrowUtils.R b/R/ArrowUtils.R
index 54608320..341100a8 100644
--- a/R/ArrowUtils.R
+++ b/R/ArrowUtils.R
@@ -408,8 +408,8 @@
   o <- h5createGroup(outArrow, groupName)
 
   mData <- ArrowInfo[[groupName]]
-  cellNames <- .h5read(inArrow, "Metadata/CellNames")
-  idx <- which(cellNames %in% stringr::str_split(cellsKeep, pattern="#", simplify=TRUE)[,2])
+  cellNames <- paste0(sampleName, "#", .h5read(inArrow, "Metadata/CellNames"))
+  idx <- which(cellNames %in% cellsKeep)
   
   if(length(idx)==0){
     stop("No cells matching in arrow file!")