R 反应式编程多个动作按钮相同值呈现问题

我有4个动作按钮…但想要相同的返回值名称。因为它在其他元素中使用。我将被动元素初始化为

myReactiveDF <- reactiveValues(data=NULL)

myReactiveDF <- eventReactive(input$action1, {
call functions
return(dataframe)
})

myReactiveDF <- eventReactive(input$action2, {
call functions
return(dataframe)
})
.....

---

myReactiveDF根据我的理解，以下代码应该满足您的需求：

library(shiny)

ui <- fluidPage(
  fluidRow(column(2, selectInput('action1', label = "Action1:", choices =  c('a','b') )),
           column(4, selectInput('action2', label = "Action2:", choices =  c('A','B') ))),
  fluidRow( verbatimTextOutput("outputs"))
)

server = function(input, output, session){

  v <- reactiveValues(data = NULL)

  observeEvent(input$action1, {
    v$data <- input$action1
  })

  observeEvent(input$action2, {
    v$data <- input$action2
  })

  output$outputs <- renderText({ 
    if (is.null(v$data)) return()
    v$data
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
ui根据我的理解，以下代码应该满足您的需求：

library(shiny)

ui <- fluidPage(
  fluidRow(column(2, selectInput('action1', label = "Action1:", choices =  c('a','b') )),
           column(4, selectInput('action2', label = "Action2:", choices =  c('A','B') ))),
  fluidRow( verbatimTextOutput("outputs"))
)

server = function(input, output, session){

  v <- reactiveValues(data = NULL)

  observeEvent(input$action1, {
    v$data <- input$action1
  })

  observeEvent(input$action2, {
    v$data <- input$action2
  })

  output$outputs <- renderText({ 
    if (is.null(v$data)) return()
    v$data
  })
}

shinyApp(ui = ui, server = server)

库（闪亮）
用户界面