fix a bug in netVisual_aggregate

sqjin · Jul 19, 2023 · 7ee94c3 · 7ee94c3
1 parent 268b447
commit 7ee94c3
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/visualization.R b/R/visualization.R
@@ -582,8 +582,7 @@ netVisual_aggregate <- function(object, signaling, signaling.name = NULL, color.
         stop("Please run `netAnalysis_computeCentrality` to compute the network centrality scores! ")
       }
       vertex.weight = object@netP$centr[[signaling]]$indeg
-    }
-    if (vertex.weight == "outgoing"){
+    } else if (vertex.weight == "outgoing"){
       if (length(slot(object, "netP")$centr) == 0) {
         stop("Please run `netAnalysis_computeCentrality` to compute the network centrality scores! ")
       }