fix matching deseq2

boulardlab · Dec 17, 2024 · f20a887 · f20a887
1 parent 8035d4e
commit f20a887
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/workflow/scripts/deseq2_v1.R b/workflow/scripts/deseq2_v1.R
@@ -102,7 +102,9 @@ mat <- sapply(ls, function(p) {
   setNames(dt$V2, dt$V1)
 })
 
-colnames_order <- match(colData$name,colnames(mat))
+colnames_order <- sapply(colnames(mat), function(x) grep(sprintf("%s$",x), colData$name))
+print(colnames_order)
+print(colnames(mat)[colnames_order])
 
 # Rename columns to match sample sheet sample column
 colnames(mat)[colnames_order] <- rownames(colData)