Вставить таблицу рендеринга в кнопку действия в блестящей панели инструментов

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)

Публикация - это мои данные. После этого кода я могу получить кнопку действия с именем «Просмотреть все», но при нажатии на нее всплывающее окно или таблица не отображаются.