eventReactive两个动作按钮Shiny

Question

我尝试使用两个操作按钮在同一输出上触发不同的功能。 interests_data和interests_data_refresh是eventReactive，具体取决于两种不同的输出。

隔离可能不会超过一个操作按钮。我试图跟踪第一个输入，但我担心刷新页面可能会导致跟踪问题。我还没有看到任何关于如何解决这个问题的例子，即根据按下的按钮在同一输出上有不同的行为。这是我的尝试：

output$mytable2 <- DT::renderDataTable({
input$insert
input$delete
isolate({
  if (input$insert == 0) {
    start_interests <- dbReadTable(db, "Interests")
    DT::datatable(start_interests[],
                  options = list(
                    lengthMenu = c(10, 25, 50, 100, 150, 200),
                    order = list(list(7, 'desc')),
                    pageLength = 25
                  ))
  }
  else if (input$insert == x+1) {
    #updated_interests()
    DT::datatable(interests_data(),
                  options = list(
                    lengthMenu = c(10, 25, 50, 100, 150, 200),
                    order = list(list(7, 'desc')),
                    pageLength = 25
                  ))
  }
    else {
      DT::datatable(interests_data_refresh(),
                    options = list(
                      lengthMenu = c(10, 25, 50, 100, 150, 200),
                      order = list(list(7, 'desc')),
                      pageLength = 25
                    ))
    }
    x <<- as.numeric(input$insert)
})

}）