r - Shiny 的，两个 Action 按钮，它只响应第二个按钮而不响应第一个按钮

Question

告诉我在 R Shiny 中，有两个操作按钮。我想根据我按下的按钮更新数据。但出于某种原因，它只响应第二个按钮而不响应第一个按钮。解决方案是什么？

if (interactive()) {
  ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(
        actionButton("action_1", "Get 1"),
        actionButton("action_2", "Get 2"),
      ),
      mainPanel(
        textOutput("result")
      ),
    )
  )
  
  server <- function(input, output) {
    data <- eventReactive(input$action_1, 1)
    data <- eventReactive(input$action_2, 2)
    output$result <- renderText(data())
  }
  
  shinyApp(ui, server)
}

Answer 1

这段代码的第二行覆盖了第一行:

data <- eventReactive(input$action_1, 1)
data <- eventReactive(input$action_2, 2)

你可以这样做:

  ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(
        actionButton("action_1", "Get 1"),
        actionButton("action_2", "Get 2"),
      ),
      mainPanel(
        textOutput("result")
      ),
    )
  )
  
  server <- function(input, output) {
    result <- reactiveVal()
    observeEvent(input$action_1, { result(1) })
    observeEvent(input$action_2, { result(2) })
    output$result <- renderText(result())
  }
  
  shinyApp(ui, server)
}