在同一个eventReactive()中组合两个actionbuttons输出

library(shiny)

ui <- fluidPage(
  actionButton("button1", "Button 1"),
  actionButton("button2", "Button 2"),
  textOutput("output")
)

server <- function(input, output) {
  # 逻辑处理部分
}

shinyApp(ui, server)

server <- function(input, output) {
  # 监听按钮1的点击事件
  button1_reactive <- eventReactive(input$button1, {
    # 处理按钮1的逻辑
    # 返回需要输出的结果
  })
  
  # 监听按钮2的点击事件
  button2_reactive <- eventReactive(input$button2, {
    # 处理按钮2的逻辑
    # 返回需要输出的结果
  })
  
  # 将两个按钮的输出结果进行组合
  combined_output <- reactive({
    output1 <- button1_reactive()
    output2 <- button2_reactive()
    
    # 组合输出结果的逻辑处理
    # 返回组合后的结果
  })
  
  # 将组合后的结果输出到UI部分
  output$output <- renderText({
    combined_output()
  })
}