#283 multilevel groupuing

Per suggestion from @noranekonobokkusu for group.by merging
BorchLab · Dec 19, 2023 · d188e6f · d188e6f
1 parent 7a4085f
commit d188e6f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/combineExpression.R b/R/combineExpression.R
@@ -104,7 +104,7 @@ combineExpression <- function(input.data,
         )
 
         colnames(data2)[c(1,2)] <- c(cloneCall, group.by)
-        data <- merge(data, data2, by = cloneCall, all = TRUE)
+        data <- merge(data, data2, by = c(cloneCall, group.by), all = TRUE)
         Con.df <- data[,c("barcode", "CTgene", "CTnt", 
                           "CTaa", "CTstrict", "clonalProportion", 
                           "clonalFrequency")]