条件反应性

Question

Shiny 中的反应式表达式将更改传播到需要去的地方。我们可以使用isolate 抑制这种行为，但是我们可以抑制基于我们自己的逻辑表达式传播的更改吗？

我给出的例子是一个简单的散点图，我们用abline在用户点击的地方画了一个十字准线。不幸的是，Shiny 认为结果是一个新的情节，我们的点击值被重置为NULL... 这又被视为对要像往常一样传播的值的更新。情节被重绘，NULL 被传递给abline 的两个参数。

我的技巧（在下面注释掉）是在renderPlot 调用中放置一个条件，该条件仅在点击值不是NULL 时更新绘图坐标的一些非反应变量。这适用于琐碎的情节，但实际上会导致情节被绘制两次。

有什么更好的方法来做到这一点？有没有正确的方式？

服务器文件：

library(shiny)

shinyServer(function (input, output)
{
  xclick <- yclick <- NULL
  output$plot <- renderPlot({
    #if (!is.null(input$click$x)){
      xclick <<- input$click$x
      yclick <<- input$click$y
    #}
    plot(1, 1)
    abline(v = xclick, h = yclick)
  })
})

用户界面文件：

library(shiny)

shinyUI(
  basicPage(
    plotOutput("plot", click = "click", height = "400px", width = "400px")
  )
)

Answer 1

Winston 将此问题称为“状态”累积 - 您不仅希望显示当前数据，还希望显示之前绘图生成的内容（了解此问题的最佳地点是 https://www.rstudio.com/resources/videos/coordinated-multiple-views-linked-brushing/）

基本思想是创建您自己的一组反应值，并在用户单击绘图时更新它们。它们在下次点击之前不会失效，因此您不会得到循环行为。

library(shiny)

shinyApp(
  shinyUI(basicPage(plotOutput("plot", click = "click"))),
  function(input, output) {
    click <- reactiveValues(x = NULL, y = NULL)
    observeEvent(input$click, {
      click$x <- input$click$x
      click$y <- input$click$y
    })

    output$plot <- renderPlot({
      plot(1, 1)
      abline(v = click$x, h = click$y)
    })
  }
)