Change bad node shapes for igraph

motherhack3r · May 19, 2021 · 5b3c959 · 5b3c959
1 parent 7056acf
commit 5b3c959
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/mitre.R b/R/mitre.R
@@ -25,6 +25,7 @@ build_network <- function(verbose = FALSE, as_igraph = TRUE) {
 
 
   if (as_igraph) {
+    mitrenet$nodes$shape[mitrenet$nodes$shape %in% c("triangle", "box")] <- "circle"
     mitrenet <- igraph::graph_from_data_frame(edges, directed = T, vertices = nodes)
   } else {
     mitrenet <- list(nodes = nodes, edges = edges)