Cómo escuchar más de una expresión de evento dentro de un controlador de evento Shiny

Quiero que dos eventos diferentes activen una actualización de los datos que utilizan varios gráficos / salidas en mi aplicación. Uno es un botón en el que se hace clic ( input$spec_button) y el otro es un punto en un punto en el que se hace clic ( mainplot.click$click).

Básicamente, quiero enumerar ambos al mismo tiempo, pero no estoy seguro de cómo escribir el código. Esto es lo que tengo ahora:

en servidor.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
    }
  })

Pero la cláusula if-else no funciona

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

-> ¿Hay algún tipo de función de combinación de acciones que pueda usar para la mainplot.click$click | input$spec_buttoncláusula?

Sé que esto es antiguo, pero tenía la misma pregunta. Finalmente lo resolví. Incluye una expresión entre llaves y simplemente enumera los eventos / objetos reactivos. Mi suposición (sin fundamento) es que shiny simplemente realiza el mismo análisis de puntero reactivo para este bloque de expresión que para un reactivebloque estándar .

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

EDITAR

Actualizado para manejar el caso donde la última línea de la expresión devuelve NULL. Simplemente devuelva un valor constante.

También:

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

Resolví este problema al crear un objeto reactivo y usarlo en la expresión de cambio de evento. Como a continuación:

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

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

Esta es la solución que se me ocurrió: básicamente, cree un contenedor de reactiveValuesdatos vacío y luego modifique sus valores en función de dos observeEventinstancias separadas .

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

Esto todavía se puede hacer con eventReactive simplemente poniendo sus acciones en un vector.

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

La idea aquí es crear una función reactiva que ejecutará la condición que desea pasar en observeEvent y luego puede pasar esta función reactiva para verificar la validez de la declaración. Por ejemplo:

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

¡Sigue codificando!