Fixing denominator issue wit getCirclize

#239
BorchLab · Jan 23, 2025 · 982a982 · 982a982
1 parent ebccc86
commit 982a982
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/getCircilize.R b/R/getCircilize.R
@@ -87,7 +87,12 @@ getCirclize <- function(sc.data,
     }
 
     if (proportion) {
-      value <- value/length(unique(clone.table[clone.table[,1] == pair2,cloneCall]))
+      denominator <- length(unique(clone.table[clone.table[,1] == pair2, cloneCall]))
+      if (denominator > 0) {
+        value <- value / denominator
+      } else {
+        value <- 0
+      }
     }
 
     group_pairs$value[i] <- value