ShinyeventReactiveハンドラー内で複数のイベント式をリッスンする方法

アプリのさまざまなプロット/出力で使用されているデータの更新をトリガーする2つの異なるイベントが必要です。1つはクリックされているボタン（input$spec_button）で、もう1つはクリックされているドット上の点（mainplot.click$click）です。

基本的には両方を同時にリストしたいのですが、コードの書き方がわかりません。これが私が今持っているものです：

server.Rで：

data <- eventReactive({mainplot.click$click | input$spec_button}, {
    if(input$spec_button){
      # get data relevant to the button
    } else {
      # get data relevant to the point clicked
    }
  })

しかし、if-else句は機能しません

Error in mainplot.click$click | input$spec_button : operations are possible only for numeric, logical or complex types

->mainplot.click$click | input$spec_button句に使用できるアクションコンバイナー関数のようなものはありますか？

これは古いことは知っていますが、同じ質問がありました。私はついにそれを理解しました。中かっこで式を含め、イベント/リアクティブオブジェクトをリストするだけです。私の（根拠のない）推測では、shinyは、この式ブロックに対して、標準reactiveブロックと同じリアクティブポインター分析を実行するだけです。

observeEvent({ 
  input$spec_button
  mainplot.click$click
  1
}, { ... } )

編集

式の最後の行がNULLを返す場合を処理するように更新されました。定数値を返すだけです。

また：

observeEvent(c( 
  input$spec_button,
  mainplot.click$click
), { ... } )

リアクティブオブジェクトを作成し、それをイベント変更式で使用することで、この問題を解決しました。以下のように：

xxchange <- reactive({
paste(input$filter , input$term)
})

output$mypotput <- eventReactive( xxchange(), {
...
...
...
} )

私が思いついた解決策は次のとおりです。基本的に、空のreactiveValuesデータホルダーを作成し、2つの別々のobserveEventインスタンスに基づいてその値を変更します。

  data <- reactiveValues()
  observeEvent(input$spec_button, {
    data$data <- get.focus.spec(input=input, premise=premise, 
                                itemname=input$dropdown.itemname, spec.info=spec.info)
  })
  observeEvent(mainplot.click$click, {
    data$data <- get.focus.spec(input=input, premise=premise, mainplot=mainplot(),
                                mainplot.click_focus=mainplot.click_focus(),
                                spec.info=spec.info)  
  })

これは、アクションをベクターに入れるだけで、eventReactiveを使用して実行できます。

eventReactive(
  c(input$spec_button, mainplot.click$click), 
{ ... } )

ここでの考え方は、observeEventで渡したい条件を実行するリアクティブ関数を作成し、このリアクティブ関数を渡してステートメントの有効性を確認することです。例えば：

validate_event <- reactive({
    # I have used OR condition here, you can use AND also
    req(input$spec_button) || req(mainplot.click$click)
})

observeEvent(validate_event(), 
    { ... } 
)

コーディングを続けてください！