Come ascoltare più di un'espressione di evento all'interno di un gestore di Shiny eventReactive

Desidero che due eventi diversi attivino un aggiornamento dei dati utilizzati da vari grafici / output nella mia app. Uno è un pulsante su cui si fa clic ( input$spec_button) e l'altro è un punto su un punto su cui si fa clic ( mainplot.click$click).

Fondamentalmente, voglio elencare entrambi allo stesso tempo, ma non sono sicuro di come scrivere il codice. Ecco cosa ho adesso:

nel 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
    }
  })

Ma la clausola if-else non funziona

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

-> C'è una sorta di funzione combinatore di azioni che posso usare per la mainplot.click$click | input$spec_buttonclausola?

So che questo è vecchio, ma avevo la stessa domanda. Finalmente l'ho capito. Includete un'espressione tra parentesi graffe e semplicemente elencate gli eventi / oggetti reattivi. La mia ipotesi (infondata) è che shiny esegua semplicemente la stessa analisi del puntatore reattivo a questo blocco di espressioni come a un reactiveblocco standard .

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

MODIFICARE

Aggiornato per gestire il caso in cui l'ultima riga dell'espressione restituisce NULL. Restituisci semplicemente un valore costante.

Anche:

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

Ho risolto questo problema creando un oggetto reattivo e usandolo nell'espressione di modifica degli eventi. Come sotto:

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

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

Ecco la soluzione che ho trovato: fondamentalmente, crea un reactiveValuescontenitore di dati vuoto e quindi modifica i suoi valori in base a due observeEventistanze separate .

  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)  
  })

Questo può ancora essere fatto con eventReactive semplicemente inserendo le tue azioni in un vettore.

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

L'idea qui è di creare una funzione reattiva che eseguirà la condizione che si desidera passare in ObservEvent e quindi è possibile passare questa funzione reattiva per verificare la validità dell'istruzione. Per esempio:

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(), 
    { ... } 
)

Continua a codificare!