Як прослуховувати більше одного виразу події в обробнику Shiny eventReactive

Я хочу, щоб дві різні події викликали оновлення даних, які використовуються різними графіками / виходами в моєму додатку. Один - це кнопка, по якій натискається ( input$spec_button), а інша - точка на крапці, яку натискають ( mainplot.click$click).

В основному, я хочу перерахувати для обох одночасно, але я не впевнений, як написати код. Ось що я маю зараз:

на сервері.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), 
{ ... } )

Ідея тут полягає в тому, щоб створити реактивну функцію, яка буде виконувати умову, яку ви хочете передати в obserEvent, а потім ви можете передати цю реактивну функцію, щоб перевірити правильність твердження. Наприклад:

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

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