在visNetwork中以编程方式取消选择边
我想取消选择Shiny中visNetwork网络中的边在visNetwork中以编程方式取消选择边,r,shiny,visnetwork,R,Shiny,Visnetwork,我想取消选择Shiny中visNetwork网络中的边visSetSelection应该可以工作，但它不能工作：如果我手动选择一条边，然后按下按钮，该边将保持选中状态。我不知道还有什么别的办法。这建议使用visSelectEdges并将id设置为NULL，但这也没有效果。有什么想法吗 require(shiny) require(visNetwork) server <- function(input, output) { output$network <- renderVis
visSetSelectionrequire(shiny)
require(visNetwork)
server <- function(input, output) {
output$network <- renderVisNetwork({
# minimal example
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges)
})
observeEvent("deselect",{
visNetworkProxy("network") %>%
visSetSelection(edgesId = NULL,unselectAll = T)
})
}
ui <- fluidPage(
visNetworkOutput("network"),
actionButton("deselect","Deselect")
)
shinyApp(ui = ui, server = server)
require（闪亮）
需要（网络）
服务器您可以使用visUnselectAll
（请参阅）。此外，在observeEvent
的情况下，您需要将的“取消选择”替换为输入$deselect
require(shiny)
require(visNetwork)
server <- function(input, output) {
output$network <- renderVisNetwork({
# minimal example
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges)
})
observeEvent(input$deselect, {
visNetworkProxy("network") %>%
visUnselectAll()
})
}
ui <- fluidPage(
visNetworkOutput("network"),
actionButton("deselect","Deselect")
)
shinyApp(ui = ui, server = server)
require（闪亮）
需要（网络）
服务器