将渲染表嵌入发光仪表板中的操作按钮中

Question

我正在尝试将渲染表嵌入到动作按钮中。 我想，当我单击操作按钮时，我的表应该在渲染表输出中弹出。

tabPanel("2017",tags$div(id="PublicationPi2017", style="width:50%;height:400px;")
                          ,deliverChart(div_id = "PublicationPi2017"),
                          actionButton("go","View All")
                         ),

server<-output$go<-renderDataTable(Publication)

出版物是我的数据资料。 这段代码之后，我可以使用名称为“查看全部”的操作按钮，但是单击它时，不会显示任何弹出窗口或表格。