title: Passing argument to a function in shiny R
body: <p>I'm trying to pass the node value of a simple network as an argument to a function in Shiny R. However, I'm getting this error:</p>
  
  <p>Error in rsqlite_send_query: no such column: input$id</p>
  
  <p>Can anyone help with this issue? Thanks.</p>
  
  <pre><code>library(shiny)
  library(networkD3)
  ui &lt;- shinyUI(fluidPage(
  fluidRow(
      column(4, simpleNetworkOutput("simple")),
      column(4, DT::dataTableOutput("table"))
  )
  ))
  
  server &lt;- shinyServer(function(input, output, session) { 
    session$onSessionEnded(stopApp)
    output$simple &lt;- renderSimpleNetwork({
    sn&lt;-simpleNetwork(df)
    sn$x$options$clickAction = 'Shiny.onInputChange("id",d.name)'
    sn
  })
  
   output$table &lt;- DT::renderDataTable(DT::datatable(get(funct(input$id))))
  
  })
  
  shinyApp(ui = ui, server = server) 
  </code></pre>