如何在一个闪亮事件中监听多个事件表达式

我想要两个不同的事件来触发我的应用程序中各种绘图/输出所使用的数据的更新。一个是被单击的按钮（input$spec_button），另一个是被单击的点上的点（mainplot.click$click）。

基本上，我想同时列出两者，但是我不确定如何编写代码。这是我现在拥有的：

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

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

这里的想法是创建一个反应函数，该函数将执行您要在observeEvent中传递的条件，然后可以传递此反应函数来检查语句的有效性。例如：

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

继续编码！