Как прослушивать более одного выражения события в обработчике Shiny eventReactive

Я хочу, чтобы два разных события запускали обновление данных, используемых различными графиками / выходами в моем приложении. Один - это нажатая кнопка ( input$spec_button), а другой - точка на нажатой точке ( 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держатель данных, а затем изменить его значения на основе двух отдельных 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), 
{ ... } )

Идея здесь состоит в том, чтобы создать реактивную функцию, которая будет выполнять условие, которое вы хотите передать в ObservationEvent, а затем вы можете передать эту реактивную функцию, чтобы проверить действительность оператора. Например:

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

Продолжайте кодировать!