如何基于R中的visNetwork的一组边创建第二个下拉列表？

Question

在精神上类似于边缘组和在R中的visNetwork中选择,我想知道如何基于边缘而不是使用visNetwork包的节点创建下拉列表.我认为这是可能的visSetSelection功能,但这需要使用闪亮.我用降价渲染的html提供最终产品,而不是从服务器部署它,所以我不认为这是可能的.

有没有办法在闪亮之外复制这个功能？我不完全理解文档中的术语,但我认为我想要做的是类似于函数中nodeIdSelection的selectedBy参数visOptions,你可以创建一个"HTML选择元素",但是基于边缘列表而不是节点列表.

这个特定问题的数据集是专有的,但这里有一些虚拟数据.我希望能够通过边缘的"重量"进行选择.

   library(tidyverse)
    library(visNetwork)

    nodes <- tibble(id = 1:30)
    edges <- tibble(from = c(21:30, 1:20),
                    to = c(5:20, 21:30, 1:4),
                    weight = c(rep(1:5, 6)))

    visNetwork(nodes, edges) %>%
      visIgraphLayout(layout = "layout_in_circle") %>%
      visOptions(highlightNearest = list(enabled = T, 
                                         hover = T, 
                                         degree = 1, 
                                         algorithm = "hierarchical"), 
                                    nodesIdSelection = T)

我所期待的是一个edgesIdSelection争论,visOptions但这不是一个选择.我认为管道visSelectEdges可以工作,但只适用于闪亮,我的客户端无法访问闪亮的服务器.我知道这个库是为了让javascript库可以通过R访问所以我不希望完整的功能 - 如果我不能在R中使用这个包(没有闪亮),我完全明白了.