Fix a bug in netVisual_diffInteraction

sqjin · Sep 22, 2022 · c982c71 · c982c71
1 parent 7e0e903
commit c982c71
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/visualization.R b/R/visualization.R
@@ -1389,6 +1389,7 @@ netVisual_diffInteraction <- function(object, comparison = c(1,2), measure = c("
     df.net$target <- factor(df.net$target, levels = cells.level)
     df.net$value[is.na(df.net$value)] <- 0
     net <- tapply(df.net[["value"]], list(df.net[["source"]], df.net[["target"]]), sum)
+    net[is.na(net)] <- 0
   }
 
   if (remove.isolate) {