リアクティブプログラミング複数のアクションボタン同じ値のレンダリングの問題

Question

4つのアクションボタンがありますが、同じ戻り値の名前が必要です。他の要素でも使用されているためです。反応性元素を初期化する

myReactiveDF <- reactiveValues(data=NULL) 

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

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

ただし、最後のボタン4だけが機能します。最初の3つはそうではありません。 他のすべての要素は同じリアクティブ要素（dataframe）を使用してデータを取得します。 observeEventを試しましたが、値を返しません。

Answer 1

次のコードは、私がそれらを理解して、あなたの要件に対処する必要があります

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) 

はあなたが異なっている必要なものならば、私は答えを修正することができますのでお知らせください。