0

我正在使用 visNetwork 包在 Shiny 中构建网络。

显示节点和边输入的功能很有趣。但是，节点和边输入只能单独显示，而不是一起显示在 1 个框中。

我按照以下说明https://datastorm-open.github.io/visNetwork/shiny.html通过将鼠标悬停在节点和边上来构建交互式节点和边输入。这是通过在 visNetwork 包的 visEvent 函数中使用 hoverNode/hoverEdge 参数来完成的。这是基于 javascript 事件中的 Shiny.OnInputChange 函数

library(visNetwork)
library(shiny)

server <- function(input, output) {
  output$network <- renderVisNetwork({
    # minimal example
    nodes <- data.frame(id = 1:3, label = 1:3)
    edges <- data.frame(from = c(1,2), to = c(1,3))

    visNetwork(nodes, edges) %>%
      visInteraction(hover = TRUE) %>%
      visEvents(hoverNode = "function(nodes) {
        Shiny.onInputChange('current_node_id', nodes);
      ;}"), hoverEdge = "function(edges) {
        Shiny.onInputChange('current_edge_id', edges);
      ;}")
  })

  output$shiny_return <- renderPrint({
    input$current_node_id
  })
}

  output$shiny_return <- renderPrint({
    input$current_edge_id
  })
}

ui <- fluidPage(
  visNetworkOutput("network"),
  verbatimTextOutput("shiny_return")
)

shinyApp(ui = ui, server = server)

根据代码，我有 2 个 renderPrint 输出。我想保留 1，但是，它受 hoverNode/hoverEdge arguments 的限制。

提前致谢

4

1 回答 1

0

Shiny.onInputChange允许我们为输出指定任何名称。因为在任何给定时间，您都可以将鼠标悬停在节点或边上，您可以简单地在 JS 代码中为节点和边赋予相同的名称，并在 Shiny 服务器端代码中引用此输入。这就是它的样子：

library(visNetwork)
library(shiny)

server <- function(input, output) {
  output$network <- renderVisNetwork({
    # minimal example
    nodes <- data.frame(id = 1:3, label = 1:3)
    edges <- data.frame(from = c(1,2), to = c(1,3))

    visNetwork(nodes, edges) %>%
      visInteraction(hover = TRUE) %>%
      visEvents(hoverNode = "function(nodes) {
                Shiny.onInputChange('unique_id', nodes);
                ;}", hoverEdge = "function(edges) {
    Shiny.onInputChange('unique_id', edges);
    ;}")
  })

  output$shiny_return <- renderPrint({
    input$unique_id
  })
}

ui <- fluidPage(
  visNetworkOutput("network"),
  verbatimTextOutput("shiny_return")
)

shinyApp(ui = ui, server = server)
于 2019-02-10T01:53:21.467 回答