我已将此报告为错误，但想知道社区中是否有人遇到并成功解决了此问题。
也就是说，如果您想删除一条边然后改变主意并单击取消，则所有操作选项都会消失。
重现：
运行下面的应用程序
点击编辑
点击边缘
点击删除选中
点击取消
require(shiny)
require(visNetwork)
library(dplyr)
init.nodes.df = data.frame(id = c("foo", "bar"),
label = c("Foo", "Bar"),
stringsAsFactors = F)
init.edges.df = data.frame(id = "foobar",
from = "foo",
to = "bar",
stringsAsFactors = F)
ui <- fluidPage(
fluidRow(
column(
width = 6,
visNetworkOutput("editable_network", height = "400px")
)
)
)
server <- function(input, output) {
graph_data = reactiveValues(
nodes = init.nodes.df,
edges = init.edges.df
)
output$editable_network <- renderVisNetwork({
visNetwork(graph_data$nodes, graph_data$edges) %>%
visOptions(manipulation = T)
})
}
shinyApp(ui, server)
shiny这与它本身无关。您也可以在 RStudio 中简单地运行以下代码，并在查看器中按照上述步骤操作：
library(dplyr)
library(visNetwork)
init.nodes.df = data.frame(id = c("foo", "bar"),
label = c("Foo", "Bar"),
stringsAsFactors = F)
init.edges.df = data.frame(id = "foobar",
from = "foo",
to = "bar",
stringsAsFactors = F)
visNetwork(init.nodes.df, init.edges.df) %>%
visOptions(manipulation = T)
但是，请注意，我添加闪亮标签的唯一原因是，每天使用visnetwork的人可能并没有真正关注该标签。如果它不符合政策，很高兴将其删除。