Параметры манипуляции исчезают, если нажать кнопку «Отмена» в приглашении visNetwork - PullRequest
Новая
       26

Параметры манипуляции исчезают, если нажать кнопку «Отмена» в приглашении visNetwork

1 голос
/ 24 июня 2019

Я сообщил об этом как ошибка , но мне было интересно, сталкивался ли кто-нибудь в сообществе с этой проблемой и успешно ли решил эту проблему.

А именно, если вы хотите удалить ребро, а затемпередумайте и нажмите Отмена, все опции для манипуляции исчезнут.

Для воспроизведения:

  • Запустите приложение ниже

  • Нажмите Изменить

  • Нажмите на ребро

  • Нажмите Удалить выбранное

  • Нажмите Отмена 

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)

Однако обратите внимание, что я добавил тег по единственной причине, что люди, которые ежедневно используют , могут не следовать этому тегу.Рад удалить его, если он не соответствует политике.

...