fix(clonal_size_data): fix when grouping is not Sample

pwwang · pwwang · commit fad7e3563c07 · 2025-08-06T12:14:15.000-07:00
- Added group.by = ".group" to clonalScatter function call
diff --git a/R/clonalutils.R b/R/clonalutils.R
@@ -40,7 +40,7 @@ clonal_size_data <- function(data, clone_call, chain, groupings) {
 
     gv_pairs <- as.list(as.data.frame(combn(all_gvalues, 2, simplify = TRUE)))
     do.call(rbind, lapply(gv_pairs, function(gv) {
-        d <- clonalScatter(data,
+        d <- clonalScatter(data, group.by = ".group",
             cloneCall = clone_call, chain = chain,
             x.axis = gv[1], y.axis = gv[2], exportTable = TRUE
         )

Original file line number	Diff line number	Diff line change
`@@ -40,7 +40,7 @@ clonal_size_data <- function(data, clone_call, chain, groupings) {`
`40`	`40`
`41`	`41`	`gv_pairs <- as.list(as.data.frame(combn(all_gvalues, 2, simplify = TRUE)))`
`42`	`42`	`do.call(rbind, lapply(gv_pairs, function(gv) {`
`43`		`- d <- clonalScatter(data,`
	`43`	`+ d <- clonalScatter(data, group.by = ".group",`
`44`	`44`	`cloneCall = clone_call, chain = chain,`
`45`	`45`	`x.axis = gv[1], y.axis = gv[2], exportTable = TRUE`
`46`	`46`	`)`