Cách lắng nghe nhiều hơn một biểu thức sự kiện trong một sự kiện Shiny

Tôi muốn hai sự kiện khác nhau kích hoạt cập nhật dữ liệu đang được sử dụng bởi các lô / đầu ra khác nhau trong ứng dụng của tôi. Một là một nút đang được nhấp ( input$spec_button) và một là một điểm trên dấu chấm đang được nhấp ( mainplot.click$click).

Về cơ bản, tôi muốn liệt kê cho cả hai cùng một lúc, nhưng tôi không chắc chắn về cách viết mã. Đây là những gì tôi có bây giờ:

trong máy chủ.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
    }
  })

Nhưng mệnh đề if-else không hoạt động

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

-> Có loại hàm kết hợp hành động nào mà tôi có thể sử dụng cho mainplot.click$click | input$spec_buttonmệnh đề không?

Tôi biết điều này là cũ, nhưng tôi đã có cùng một câu hỏi. Cuối cùng tôi đã tìm nó ra. Bạn bao gồm một biểu thức trong dấu ngoặc nhọn và chỉ cần liệt kê các sự kiện / đối tượng phản ứng. Phỏng đoán (không có căn cứ) của tôi là sáng bóng chỉ đơn giản thực hiện cùng một phân tích con trỏ phản ứng đối với khối biểu thức này như đối với một reactivekhối tiêu chuẩn .

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

BIÊN TẬP

Đã cập nhật để xử lý trường hợp dòng cuối cùng trong biểu thức trả về NULL. Chỉ cần trả về một giá trị không đổi.

Cũng thế:

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

Tôi đã giải quyết vấn đề này bằng cách tạo một đối tượng phản ứng và sử dụng nó trong biểu thức thay đổi sự kiện. Như sau:

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

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

Đây là giải pháp mà tôi đã đưa ra: về cơ bản, tạo một reactiveValuesngười giữ dữ liệu trống , sau đó sửa đổi các giá trị của nó dựa trên hai observeEventtrường hợp riêng biệt .

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

Điều này vẫn có thể được thực hiện với eventReactive bằng cách chỉ cần đặt các hành động của bạn vào một vector.

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

Ý tưởng ở đây là tạo một hàm phản ứng sẽ thực thi điều kiện bạn muốn chuyển trong ObserEvent và sau đó bạn có thể chuyển hàm phản ứng này để kiểm tra tính hợp lệ của câu lệnh. Ví dụ:

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

Tiếp tục mã hóa!