单击actionbutton后的R only renderDataTable

我希望用户单击一个按钮,然后调用renderDataTable函数

这就是我现在要做的:

UI具有以下功能:

ui <- fluidPage(
 actionButton("tbl","Show Table"),
 DT::dataTableOutput("t_all")
)

服务器:

server <- function(input, output){

summary_table_RCT <- eventReactive(input$tbl, {summary_table})

output$t_all <-
DT::renderDataTable(
  summary_table_RCT(), 
  filter = 'top',
  class = "cell-border stripe",
  rownames = FALSE,
  extensions = c("FixedColumns"),
  options = list(searchHighlight = TRUE, 
                 regex = TRUE,
                 scrollX = TRUE,
                 fixedColumns = list(leftColumns = 5)) 
)
}

shinyApp(ui, server)