Fix bug naming CD4

mhurtado13 · mhurtado13 · commit 7415a188bb29 · 2025-09-30T23:59:49.000+02:00
diff --git a/R/cell_deconvolution.R b/R/cell_deconvolution.R
@@ -141,7 +141,7 @@ compute.deconvolution.preprocessing = function(deconv){
   if(ncol(CD4)>0){
     deconv = deconv[,-which(colnames(deconv)%in%colnames(CD4)), drop = F]
     colnames(CD4) = stringr::str_replace(colnames(CD4), "T.cells.CD4(?!\\.cells)", "CD4.cells")
-    colnames(deconv) <- stringr::str_replace(colnames(deconv), "_CD4$", "_CD4.cells")
+    colnames(deconv) <- stringr::str_replace(colnames(CD4), "_CD4$", "_CD4.cells")
     colnames(CD4) = stringr::str_replace(colnames(CD4), "^CD4(?!\\.cells)", "CD4.cells")
   }
 

Original file line number	Diff line number	Diff line change
`@@ -141,7 +141,7 @@ compute.deconvolution.preprocessing = function(deconv){`
`141`	`141`	`if(ncol(CD4)>0){`
`142`	`142`	`deconv = deconv[,-which(colnames(deconv)%in%colnames(CD4)), drop = F]`
`143`	`143`	`colnames(CD4) = stringr::str_replace(colnames(CD4), "T.cells.CD4(?!\\.cells)", "CD4.cells")`
`144`		`- colnames(deconv) <- stringr::str_replace(colnames(deconv), "_CD4$", "_CD4.cells")`
	`144`	`+ colnames(deconv) <- stringr::str_replace(colnames(CD4), "_CD4$", "_CD4.cells")`
`145`	`145`	`colnames(CD4) = stringr::str_replace(colnames(CD4), "^CD4(?!\\.cells)", "CD4.cells")`
`146`	`146`	`}`
`147`	`147`