Como ouvir mais de uma expressão de evento em um manipulador Shiny eventReactive

Quero dois eventos diferentes para acionar uma atualização dos dados que estão sendo usados ​​por vários gráficos / saídas em meu aplicativo. Um é um botão sendo clicado ( input$spec_button) e o outro é um ponto em um ponto sendo clicado ( mainplot.click$click).

Basicamente, quero listar os dois ao mesmo tempo, mas não tenho certeza de como escrever o código. Aqui está o que tenho agora:

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

Mas a cláusula if-else não funciona

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

-> Existe algum tipo de função combinadora de ação que eu possa usar para a mainplot.click$click | input$spec_buttoncláusula?

Eu sei que isso é antigo, mas eu tinha a mesma pergunta. Eu finalmente descobri. Você inclui uma expressão entre colchetes e simplesmente lista os eventos / objetos reativos. Minha suposição (não comprovada) é que brilhante simplesmente executa a mesma análise de ponteiro reativo para este bloco de expressão como para um reactivebloco padrão .

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

EDITAR

Atualizado para lidar com o caso em que a última linha da expressão retorna NULL. Simplesmente retorne um valor constante.

Além disso:

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

Resolvi esse problema com a criação de um objeto reativo e uso-o na expressão de mudança de evento. Como abaixo:

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

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

Aqui está a solução que encontrei: basicamente, crie um reactiveValuessuporte de dados vazio e, em seguida, modifique seus valores com base em duas observeEventinstâncias 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)  
  })

Isso ainda pode ser feito com eventReactive simplesmente colocando suas ações em um vetor.

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

A ideia aqui é criar uma função reativa que irá executar a condição que você deseja passar em observeEvent e então você pode passar essa função reativa para verificar a validade da instrução. Por exemplo:

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

Continue codificando!