闪亮的反应性解释（使用ObserveEvent）

Question

我希望使用下面的简化代码作为示例来清楚Shiny的反应行为。

当y在应用程序中更新时，图表会更新。
当x在应用程序中更新时，图表不会更新。

我已经阅读了Shiny的教程，我的理解是，鉴于我在observeEvent中包含了test（）和plot（）函数，这两个参数都不应该导致图形在更改时更新。

有人可以帮助解释这背后的逻辑吗？

library(shiny)

test <- function(x){x*2}

shinyServer(function(input, output, session) {

  observeEvent(input$run, {
    x = test(input$x)
    output$distPlot <- renderPlot({
      if(input$y){
        x = x+2
      }
      plot(x)
    })
  })

})

shinyUI(fluidPage(

  sidebarLayout(
      sidebarPanel(
      numericInput("x", "x:", 10),
      checkboxInput("y", label = "y", value = FALSE),
      actionButton("run", "run")
    ),

    mainPanel(
      plotOutput("distPlot")
    )
  )
))

Answer 1

如果将行x = test(input$x)放在renderPlot ，它将在x或y更改时作出反应。 实际上，观察者在第一次单击操作按钮时会创建一个反应输出，然后您只需要一个响应元素来响应其内部输入的更改。 希望有所帮助。

为了使图形仅在单击按钮时更新，您可能需要将正在绘制的数据放在eventReactive中并将其用作图形的输入。

像这样的东西：

data <- eventReactive(input$run, {
    x = test(input$x)
    if(input$y){
      x = x+2
    }
    x
  })
output$distPlot <- renderPlot({
  plot(data())
})