Get selected Node data from visNetwork graph without actionButton
<p>I used the example given in this <a href="https://stackoverflow.com/questions/39905061/get-node-and-edge-data-from-visnetwork-graph">question</a> but I would like to adapt it to display the data of the node that has been selected (not all the node but only this one) and also not use the action button so that the data are displaid as soon as I click on the node.</p>

<p>I have tried many solution without success.</p>

<p>When I create my graph, I upload a CSV file and associate other parameters to the nodes (size, title ...). Would it be possible to display these parameters also when I select a node :</p>

<p>nodes$company_name</p>

<p>nodes$company_postcode</p>

<p>nodes$amount.size</p>

<p>...</p>

<p>Here is the code I used to start with, kindly given by @xclotet</p>

<pre><code>require(shiny)
require(visNetwork)

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

  output$network_proxy &lt;- renderVisNetwork({
    visNetwork(nodes, edges)
  })


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

  observeEvent(input$getNodes,{
    visNetworkProxy("network_proxy") %&gt;%
      visGetNodes() 
  })
}

ui &lt;- fluidPage(
  visNetworkOutput("network_proxy", height = "400px"),
  dataTableOutput("nodes_data_from_shiny"),
  actionButton("getNodes", "Nodes")
)

shinyApp(ui = ui, server = server)
</code></pre>