在R Shiny中创建一个按钮来执行操作

Question

我有一个很好用我的脚本运行的Shiny App。该脚本生成了一个表格表。我想添加一个函数来将该数据表保存到某个位置。 我看了一下，看到了actionButton和observeEvent来做这个动作。但按钮没有响应。你知道我做错了吗？

这是我在UI.R上的操作按钮：

actionButton("action", "Download CSV Files")

这是我在Server.R上的observeEvent：

 observeEvent(input$action, {
        write.table(total_runCompletionStatus, file = "C:/total_runCompletionStatus.csv", sep = ",", col.names=TRUE)
        write.table(total_runParameters, file = "C:/total_runParameters.csv", sep = ",", col.names=TRUE)
        write.table(SEQ_QC_total, file = "C:/SEQ_QC.extracted.csv", sep = ",", col.names=TRUE)
      }

)