So warten Sie auf mehr als einen Ereignisausdruck in einem Shiny eventReactive-Handler

Ich möchte, dass zwei verschiedene Ereignisse eine Aktualisierung der Daten auslösen, die von verschiedenen Plots / Ausgaben in meiner App verwendet werden. Eine ist eine Schaltfläche, auf die geklickt wird ( input$spec_button), und die andere ist ein Punkt auf einem Punkt, auf den geklickt wird ( mainplot.click$click).

Grundsätzlich möchte ich für beide gleichzeitig aufgelistet sein, bin mir aber nicht sicher, wie ich den Code schreiben soll. Folgendes habe ich jetzt:

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

Die if-else-Klausel funktioniert jedoch nicht

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

-> Gibt es eine Art Action-Combiner-Funktion, die ich für die mainplot.click$click | input$spec_buttonKlausel verwenden kann?

Ich weiß, dass das alt ist, aber ich hatte die gleiche Frage. Ich habe es endlich herausgefunden. Sie fügen einen Ausdruck in geschweifte Klammern ein und listen einfach die Ereignisse / reaktiven Objekte auf. Meine (unbegründete) Vermutung ist, dass Shiny einfach die gleiche reaktive Zeigeranalyse für diesen Ausdrucksblock durchführt wie für einen Standardblock reactive.

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

BEARBEITEN

Aktualisiert, um den Fall zu behandeln, in dem die letzte Zeile im Ausdruck NULL zurückgibt. Geben Sie einfach einen konstanten Wert zurück.

Ebenfalls:

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

Ich habe dieses Problem gelöst, indem ich ein reaktives Objekt erstellt und es im Ereignisänderungsausdruck verwendet habe. Wie nachstehend:

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

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

Hier ist die Lösung, die ich gefunden habe: Erstellen Sie im Grunde genommen einen leeren reactiveValuesDatenhalter und ändern Sie seine Werte basierend auf zwei separaten observeEventInstanzen.

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

Dies kann mit eventReactive weiterhin durchgeführt werden, indem Sie Ihre Aktionen einfach in einen Vektor einfügen.

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

Hier geht es darum, eine reaktive Funktion zu erstellen, die die Bedingung ausführt, die Sie in watchEvent übergeben möchten. Anschließend können Sie diese reaktive Funktion übergeben, um die Gültigkeit der Anweisung zu überprüfen. Zum Beispiel:

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

Codieren Sie weiter!