R单击actionbutton后仅显示renderDataTable

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

这就是我现在正在做的：

UI具有以下功能：

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

---

ui找到了答案，希望那些经历过同样挫折的人能在让他们发疯之前找到答案。但在应用程序的另一个选项卡中，另一位开发人员使用了submitButton（），它基本上会中断所有反应事件，直到按下按钮为止。应仅在非常简单的应用程序中使用，其中您只有一个按钮。
如果您包含一个简单的示例输入和所需的输出，可用于测试和验证可能的解决方案，则更容易为您提供帮助。如果我们能够实际运行代码，那么帮助您就容易多了。您确定
summary\u table
有值吗？很抱歉，我无法分享太多，因为这是为了工作。但所有相关要素都在上面。我有一个动作按钮。单击时，我想创建一个反应性数据帧，我想使用renderDataTable函数来渲染它。如果我在一个简单的闪亮应用程序中将
{summary_table}
替换为
iris
，它将按照您的意愿工作。按下按钮后，表格出现。我无法从给定的信息中复制您描述的问题。当我将summary_table_RCT（）切换到summary_table时，它工作正常，因此数据正在通过，但当按下按钮时，事件响应似乎没有返回数据集。您确定键入的按钮名称正确吗？除非你能在你的问题中创建一个可复制的例子，否则我不知道该如何帮助你。一定有什么事情没有包括在你的帖子里。你使用的是哪个版本的Shining？你介意分享你提到的答案的代码或链接吗？这就是答案。对不起，我没有在其他线程中找到它，我自己找到的。submitButton（）基本上会中断一切，永远不要使用它。
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)