From 7f57fb430d52ea504b9e0730c2309c6e71bdf816 Mon Sep 17 00:00:00 2001
From: Nuoya Wang <noahwang1991@gmail.com>
Date: Tue, 25 Nov 2025 14:51:26 -0500
Subject: [PATCH] Modify the metadata adding initialization

---
 .DS_Store                 | Bin 18436 -> 18436 bytes
 R/RunCellToNeighborhood.R |   6 +++---
 R/RunNeighborhoodToCell.R |   6 +++---
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/.DS_Store b/.DS_Store
index 58ed3fef6e7894f57f5505cb143f85aaaeef1acf..450952a100df180c34b416be90145d6ac44cb36d 100644
GIT binary patch
delta 1479
zcmeH_U1-x+7{=e{q_zL!iRQ!_+eB-k!KTepO_P7VENZkJtnH?wjni#zU8A`O#-uhX
zYAI2vH@b;<P}$UZGgda{aK?{)!fu2K;)Ql>?qZX{E@bXvH=+(?$D|t~UU(zkc;N7!
z^YFs^ob!9e4r1&ePX9B-*Eli~4n+c<a5Op^@Qfrv!GOmMM@L7w;qWf%=o{FW+mtWt
zQ^{60_N%VC=v;q#D3>j62?l=wv((g1sWbRgA*Q)jzqV%W>u;!e%?=gv29!0{W+fu%
zt(PInc4tFP*=N0PQ7-@3Ow$bML5cXoL)967r2M;d+RDPSl{vy@TpKedjm33;%#5jE
zYpi^E{&zNfsjTxiKTZE}zBaqQknhj#%&6oG4sg|OHZUR7?)nxrY`P)TAv3s2_*|`A
z4jQSVZk(7Q?KTk*3%M-v)W&RnLq&15i?AU#@YT7&bS77oq9Sg{UcP2qX1JIw<f~$b
zQ1-~-QnGVb<=ec;mP#dWwGgH9gPStmWUzXdAcLAHNGqs^-lieiLHp?louspLj?U9X
zx<c3KH@ZoG(`~v#cj+E1uwpuFkZ{6<IcS0(VVH<uIeO5GSFjSLeyqb=7{EKoAddnz
zV;I}98+$N@y?75ta1<Zl7(T)&e2&xj0^j2ju3-W{;#b_npSXp;aGM#7v#G3}H8US;
zVXZ90I#?I$W_?xrY%(46=6}zt)^?WC2T)(GxNRt%E2N3o$;Zde{Ze;N@5_;gV)qC(
z2j|zP+oXL){Y=NK2G0WjA~U{Zg*r8BRb8XgHG58zP?uwEQn+QU24qY;5Sx8M@%Y@5
zkQNP=SF}jLEhHu{iN!+58jYAw%yzmO#WJy+%W*EL(%RYOc1uJ4U>Jt?Nl8AAW9fg8
zm*^_}OgHG326<m2G|&JKnh`)0OOZq;y6~a~_bU3(k5q--AktWmoaQ%F;WvU&l(0)v
z+=q8H!vmV(`<mf#oWREz$0zs{pWz%X;46HMZ}2T@FX9S*Qpelo;SZHe^prnL3<&%4
O#6Ae=Gf%8VC-z_Bv_X^r

delta 1413
zcmeH_U2Ka{7{{OgS#9sT9(uaXwsx_1AF-}8bZf0`2;Gcf3qk8EAy%8D(XF$xV3_X<
z-*S8`xb+o@uZqvOkcfy72}6hkw+k*@SXhEr+ackK#FdkroOAxqlauFpe*Z0dv1KpL
z^`}~_ot;jnyS$*nQ@O6ZptGXV<Io=tw^ue~IOU`?XTBC}3x}dB9FFH;DTYC*X^NU|
z<b$n&If1!+zVwZlD4(X;IT1nM`cjOsLQ9SzX5*hzq_JqFQt9>Te^z;AvE3JYFD#~g
z8$`@lu#){8sg2z$x?z$x%^gGkz8<GXuFB3d&I>Jxw9XE#X%>*9Tse$$xi7O+MqC=W
z+~ac0;5MsW6^)8Nsweei2(yWo^HHjZs{Uo6)~2{(t>8{YG^v4bW3V}#kgB*x5%uca
zj^_4gDAJk`$8tGj%z>`N5QvI>rHQM*wXvmHE%rH*5ru|PCDl>`Ev9zrq+Qfar|BYH
zqRVuf9?)}oMZNT%`sgElqJ9`K7$yjqVMQK>As-{)!WdMc2K8vbbj*Ms3$X}`(TJ|4
zh@cJah+;K1VKcU38+PLmx^V<YaSUg07UyvRH*ps|c#J1_iC(<HTf9RbQ&~DQvMgp}
zrOeLCn3IiT)vP8_I!h9!1p`ec^?LmT%?d|5+J*<iksuM<|9jhLbyMo5^7@2r5}34~
zFsaXmn1neaGizvePQmc9(JuG6YPsGWU|f?oN=mYGE!MokBCd%+IuWJk+q1;RrP-6;
z#YKuvQjKfIa*Zdi9xvy@pc7Sl@+{U|KA!tjaY7XoPpp}!X+jZq6h$c>=;@EZ-R+`B
z^o(B9Tb<k&otcVU6vBp)aAN|hQHx2Ktdp9F**dL2oK_G^(1aEp*z!2AwOEf0*r;RM
zft}cegF3XsNo>b)5~pw)7jX$!a23~Z9k*~F5Ai5ocpiPH(=gCU;=~K-_fCs#x35c$
WrTIP>vi@85$AH+svab0T>wX2r>@PzA

diff --git a/R/RunCellToNeighborhood.R b/R/RunCellToNeighborhood.R
index 4b73257..af80a7f 100644
--- a/R/RunCellToNeighborhood.R
+++ b/R/RunCellToNeighborhood.R
@@ -83,9 +83,9 @@ RunCellToNeighborhood <- function(node.object,
   # Add metadata based on ident slot
   # bug fix: add the Neighborhood - prefix
 
-  sending_type.meta <- data.frame(Seurat::Idents(node.object)[barcodes])
-  rownames(sending_type.meta) <- paste(rownames(sending_type.meta),"Neighborhood",sep = '—')
-
+  sending_type.meta <- data.frame(SendingCell = barcodes,
+                                  SendingType = Seurat::Idents(node.object)[barcodes],
+                                  row.names = paste(barcodes,"Neighborhood",sep = '—'))
   
   demo <- Seurat::AddMetaData(demo,metadata = sending_type.meta,col.name = c("SendingCell","SendingType"))
 
diff --git a/R/RunNeighborhoodToCell.R b/R/RunNeighborhoodToCell.R
index 6d39c40..637bea1 100644
--- a/R/RunNeighborhoodToCell.R
+++ b/R/RunNeighborhoodToCell.R
@@ -83,9 +83,9 @@ RunNeighborhoodToCell <- function(node.object,
   # Add metadata based on ident slot
   # bug fix: add the Neighborhood - prefix
 
-  receiving_type.meta <- data.frame(Seurat::Idents(node.object)[barcodes])
-  rownames(receiving_type.meta) <- paste("Neighborhood",rownames(receiving_type.meta),sep = '—')
-
+  receiving_type.meta <- data.frame(ReceivingCell = barcodes,
+                                    ReceivingType = Seurat::Idents(node.object)[barcodes],
+                                    row.names = paste("Neighborhood",barcodes,sep = '—'))
   
   demo <- Seurat::AddMetaData(demo,metadata = receiving_type.meta,col.name = c("ReceivingCell","ReceivingType"))