วิธีรับฟังนิพจน์เหตุการณ์มากกว่าหนึ่งรายการภายใน Shiny eventReactive handler

ฉันต้องการให้สองเหตุการณ์ที่แตกต่างกันเพื่อกระตุ้นการอัปเดตข้อมูลที่ใช้โดยพล็อต / เอาต์พุตต่างๆในแอปของฉัน ปุ่มหนึ่งคือปุ่มที่คลิก ( 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ประโยคนี้ได้หรือไม่?

ฉันรู้ว่านี่เก่า แต่ฉันก็มีคำถามเหมือนกัน ในที่สุดฉันก็คิดออก คุณรวมนิพจน์ไว้ในวงเล็บปีกกาและแสดงรายการเหตุการณ์ / วัตถุปฏิกิริยา ของฉัน (พร้อมเพรียง) เดาว่าเป็นเงาเพียงแค่ดำเนินการวิเคราะห์ตัวชี้เดียวกันปฏิกิริยาที่แสดงออกบล็อกนี้เป็นไปมาตรฐาน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), 
{ ... } )

แนวคิดในที่นี้คือการสร้างฟังก์ชันรีแอคทีฟซึ่งจะดำเนินการตามเงื่อนไขที่คุณต้องการส่งผ่านในการสังเกตเหตุการณ์จากนั้นคุณสามารถส่งผ่านฟังก์ชันปฏิกิริยานี้เพื่อตรวจสอบความถูกต้องของคำสั่ง ตัวอย่างเช่น:

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

ให้เข้ารหัส!