Jak nasłuchiwać więcej niż jednego wyrażenia zdarzenia w module obsługi Shiny eventReactive

Chcę, aby dwa różne zdarzenia wyzwalały aktualizację danych używanych przez różne wykresy / wyjścia w mojej aplikacji. Jeden to klikany przycisk ( input$spec_button), a drugi to punkt klikniętej kropki ( mainplot.click$click).

Zasadniczo chcę wymienić oba te elementy jednocześnie, ale nie jestem pewien, jak napisać kod. Oto, co mam teraz:

na serwerze.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
    }
  })

Ale klauzula if-else nie działa

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

-> Czy jest jakaś funkcja łącząca akcje, której mogę użyć dla mainplot.click$click | input$spec_buttonklauzuli?

Wiem, że to jest stare, ale miałem to samo pytanie. W końcu to rozgryzłem. Umieszczasz wyrażenie w nawiasach klamrowych i po prostu podajesz zdarzenia / reaktywne obiekty. Moje (bezpodstawne) przypuszczenie jest takie, że błyszcząca po prostu wykonuje taką samą reaktywną analizę wskaźnika do tego bloku wyrażenia, jak do reactivebloku standardowego .

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

EDYTOWAĆ

Zaktualizowano, aby obsłużyć przypadek, w którym ostatnia linia w wyrażeniu zwraca NULL. Po prostu zwróć stałą wartość.

Również:

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

Rozwiązałem ten problem, tworząc obiekt reaktywny i używając go w wyrażeniu zmiany zdarzenia. Jak poniżej:

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

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

Oto rozwiązanie, które wymyśliłem: w zasadzie utwórz pusty reactiveValuesuchwyt danych, a następnie zmodyfikuj jego wartości w oparciu o dwa oddzielne observeEventinstancje.

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

Nadal można to zrobić za pomocą eventReactive, po prostu umieszczając swoje akcje w wektorze.

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

Pomysł polega na utworzeniu funkcji reaktywnej, która wykona warunek, który chcesz przekazać w observEvent, a następnie możesz przekazać tę funkcję reaktywną, aby sprawdzić poprawność instrukcji. Na przykład:

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

Koduj dalej!