小编Kip*_*čys的帖子

我想要两个不同的事件来触发观察者.这里有人建议这应该有效.但它似乎只取决于第二个事件.

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

看看这个例子.

ui <- shinyUI(bootstrapPage(
    actionButton("test1", "test1"),
    actionButton("test2", "test2"))
)

server <- shinyServer(function(input, output) {
    observeEvent({
        input$test1
        input$test2
    }, {
        print('Hello World')
    })
})

shinyApp(ui, server)

一旦你点击按钮test1没有任何反应.如果单击按钮test2,它将打印到您的控制台.按下test2按钮后,单击test1打印消息.这是一种奇怪的行为.

该链接的另一个建议是使用

list(input$test1, input$test2)

即使不单击按钮,也会打印消息.