我将其报告为bug，但想知道社区中是否有人遇到并成功解决了此问题。
即，如果要删除边缘然后改变主意并单击“取消”，则所有用于操作的选项都将消失。
要复制：
在下面运行应用程序
单击编辑
单击边缘
点击删除所选内容
单击取消
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中运行以下代码，并在 Viewer 中按照上述步骤操作：
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)
但是，请注意，我之所以添加了shiny标签，是因为每天使用visnetwork的人们可能并不真正关注该标签。如果不符合政策，很高兴将其删除。