Как вручную ввести идентификатор узла, чтобы выбрать / выделить узлы в visNetwork - PullRequest
Новая
       31

Как вручную ввести идентификатор узла, чтобы выбрать / выделить узлы в visNetwork

0 голосов
/ 25 февраля 2019

Я строю сеть с помощью пакета visNetwork в приложении Shiny.

В пакете visNetwork есть аргумент nodeIdSelection в функции visOption для выбора / выделенияузлы.

Однако мы можем выбрать только узлы из выпадающего меню , вместо того, чтобы вручную вводить узлы id для выбора в этой функции.Трудно найти идентификатор узла, если в выпадающем меню много идентификаторов узлов.

Мне интересно, есть ли способ достичь этой функции.Если это невозможно в visNetwork, я думаю реализовать возможные функции в Shiny для ее решения.

Ниже приведен мой текущий код visNetwork. 

# data used in next examples
nb <- 10
nodes <- data.frame(id = 1:nb, label = paste("Label", 1:nb),
                    group = sample(LETTERS[1:3], nb, replace = TRUE), value = 1:nb,
                    title = paste0("<p>", 1:nb,"<br>Tooltip !</p>"), stringsAsFactors = FALSE)

edges <- data.frame(from = c(8,2,7,6,1,8,9,4,6,2),
                    to = c(3,7,2,7,9,1,5,3,2,9),
                    value = rnorm(nb, 10), label = paste("Edge", 1:nb),
                    title = paste0("<p>", 1:nb,"<br>Edge Tooltip !</p>"))

visNetwork(nodes, edges, height = "500px", width = "100%") %>% 
  visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE) %>%
  visLayout(randomSeed = 123)

Заранее спасибо.

...