Question

我正在尝试从我的visNetwork图中获取节点/边数据。我正在使用示例代码，但它无法正常工作。我想用Shiny来做这件事。我的目标是从网络获取节点和边缘数据，然后将其显示在表格中。我将非常感谢我能得到的任何帮助。谢谢，

这是我的代码：

require(shiny)
require(visNetwork)

server <- function(input, output) {

  output$network_proxy_nodes <- renderVisNetwork({
    nodes <- data.frame(id = 1:3)
    edges <- data.frame(from = c(1,2), to = c(1,3))

    visNetwork(nodes, edges) %>% visNodes(color = "green")
  })


  output$edges_data_from_shiny <- renderPrint({
    if(!is.null(input$network_proxy_get_edges)){
      input$network_proxy_get_edges
    }
  })

  observe({
    input$getEdges
    visNetworkProxy("network_proxy_get") %>%
      visGetEdges()
  })

  output$nodes_data_from_shiny <- renderPrint({
    if(!is.null(input$network_proxy_get_nodes)){
      input$network_proxy_get_nodes
    }
  })

  observe({
    input$getNodes
    visNetworkProxy("network_proxy_get") %>%
      visGetNodes()
  })
}

ui <- fluidPage(
     visNetworkOutput("network_proxy_nodes", height = "100%"),
           verbatimTextOutput("edges_data_from_shiny "),
           verbatimTextOutput("nodes_data_from_shiny"),
           actionButton("getNodes", "Nodes"),
           actionButton("getEdges", "Edges")
  )

shinyApp(ui = ui, server = server)

Answer 1

代码的主要问题是网络output$network_proxy_nodes的名称在各处都不一样。

这是一段代码，用于获取边缘信息并以纯文本显示，并获取节点信息并将其显示为DataTable：

require(shiny)
require(visNetwork)

server <- function(input, output, session) {
  nodes <- data.frame(id = 1:3, 
                      name = c("first", "second", "third"), 
                      extra = c("info1", "info2", "info3"))
  edges <- data.frame(from = c(1,2), to = c(1,3), id= 1:2)

  output$network_proxy <- renderVisNetwork({
    visNetwork(nodes, edges)
  })


  output$nodes_data_from_shiny <- renderDataTable({
    if(!is.null(input$network_proxy_nodes)){
      info <- data.frame(matrix(unlist(input$network_proxy_nodes), ncol = dim(nodes)[1],
                        byrow=T),stringsAsFactors=FALSE)
      colnames(info) <- colnames(nodes)
      info
    }
  })
  output$edges_data_from_shiny <- renderPrint({
    if(!is.null(input$network_proxy_edges)){
      input$network_proxy_edges
    }
  })

  observeEvent(input$getNodes,{
    visNetworkProxy("network_proxy") %>%
      visGetNodes() 
  })

  observeEvent(input$getEdges, {
    visNetworkProxy("network_proxy") %>%
      visGetEdges()
  })
}

ui <- fluidPage(
  visNetworkOutput("network_proxy", height = "400px"),
  verbatimTextOutput("edges_data_from_shiny"),
  dataTableOutput("nodes_data_from_shiny"),
  actionButton("getEdges", "Edges"),
  actionButton("getNodes", "Nodes")
)

shinyApp(ui = ui, server = server)

从visNetwork图中获取节点和边缘数据

1 个答案: