From e6c9eb3e1483f343c070d1ae4d54b4a01ed9099c Mon Sep 17 00:00:00 2001
From: Jay Qi <jay.qi@uptake.com>
Date: Fri, 30 Nov 2018 12:47:45 -0600
Subject: [PATCH] Added nodesIdSelection to AbstractGraphReporter default.
 Resolves #132

---
 R/AbstractGraphReporter.R | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/R/AbstractGraphReporter.R b/R/AbstractGraphReporter.R
index 66ab08ee..e55c957e 100644
--- 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)
         },