RStudio Shiny：动作按钮和提交按钮之间的冲突

Question

在我的R Shiny应用程序中，我有一个动作和一个提交按钮。

server <- function(input, output) {
  X = reactive(data.frame(x=rnorm(10),y=rpois(10,10),z=runif(10)))
  Y = eventReactive(input$flush, {
    X()[,sample(1:3)]
  },ignoreNULL=FALSE)

  output$distPlot <- renderTable({
    Y()    
  })
}

ui <- fluidPage(
  actionButton("flush","flush order"),
  submitButton("update"),
  tableOutput("distPlot") 
)


shinyApp(ui = ui, server = server)

我想要的： 单击操作按钮时，变量的顺序随机变化。

会发生什么： 我必须先单击操作按钮，然后单击提交按钮以执行此操作。

问题： 如何在保持提交按钮的同时获得所需的行为。

我的应用中有许多标签包含更多提交按钮。因此，我们最需要添加一个动作按钮，而不会影响其余的内容。