Added nodesIdSelection to AbstractGraphReporter default. Resolves upt…

…ake#132
jayqi · Dec 4, 2018 · e6c9eb3 · e6c9eb3
1 parent 05d2080
commit e6c9eb3
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/R/AbstractGraphReporter.R b/R/AbstractGraphReporter.R
@@ -420,9 +420,14 @@ AbstractGraphReporter <- R6::R6Class(
                 visNetwork::visHierarchicalLayout(sortMethod = "directed"
                                                   , direction = "UD") %>%
                 visNetwork::visEdges(arrows = 'to') %>%
-                visNetwork::visOptions(highlightNearest = list(enabled = TRUE
-                                                               , degree = nrow(plotDTnodes) # guarantee full path
-                                                               , algorithm = "hierarchical"))
+                visNetwork::visOptions(
+                    highlightNearest = list(
+                        enabled = TRUE
+                        , degree = nrow(plotDTnodes) # guarantee full path
+                        , algorithm = "hierarchical"
+                    )
+                    , nodesIdSelection = TRUE
+                )
 
             # Add orphan node clustering
             if (numOrphanNodes > numOrphanThreshold) {
@@ -450,7 +455,7 @@ AbstractGraphReporter <- R6::R6Class(
                 self$nodes[, node]
                 , unique(c(self$edges[, SOURCE], self$edges[, TARGET]))
             )
-            
+
             # If there are none, then will be character(0)
             return(orphan_nodes)
         },