r - 光沢のあるRの関数に引数を渡す

Question

シンプルなネットワークのノード値を引数として Shiny R の関数に渡そうとしていますが、次のエラーが発生します。

rsqlite_send_query のエラー: そのような列はありません: input$id

誰でもこの問題を解決できますか? ありがとう。

library(shiny)
library(networkD3)
ui <- shinyUI(fluidPage(
fluidRow(
    column(4, simpleNetworkOutput("simple")),
    column(4, DT::dataTableOutput("table"))
)
))

server <- shinyServer(function(input, output, session) { 
  session$onSessionEnded(stopApp)
  output$simple <- renderSimpleNetwork({
  sn<-simpleNetwork(df)
  sn$x$options$clickAction = 'Shiny.onInputChange("id",d.name)'
  sn
})

 output$table <- DT::renderDataTable(DT::datatable(get(funct(input$id))))

})

shinyApp(ui = ui, server = server)