如何在visNetwork中手动输入节点ID以选择/突出显示节点

Question

我正在使用Shiny应用程序中的visNetwork软件包构建网络。

在visNetwork软件包中， visOption 函数中有一个 nodesIdSelection 自变量，用于选择/突出显示节点。

但是，我们可以仅从下拉菜单中选择节点，而不是手动输入节点ID 以在此功能中进行选择。如果下拉菜单中有很多节点ID，则很难找到节点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)

谢谢。