R Shiny : How to temporarily disable reactivity?

Question

我正在构建一个包含 DT 的 UI表格和 slider (均作为输入)，以及绘图输出。这些表格用于从多个表格中进行选择。用户只能选择一个单元格进行选择。

我希望用户能够存储表格和 slider 的设置，因为它们非常复杂。这个想法是，用户可以然后在两个存储的设置之间来回切换，例如，看看结果图是如何变化的。当用户恢复设置时，表格和 slider 会更新，从而更新绘图。

问题是情节不是更新一次，而是通常两次。似乎逻辑中的某处存在延迟，导致 Shiny 首先对 slider 的更新使用react，然后对表格的更新使用react，从而分两步重新绘制绘图。这很烦人，原因有两个:(1)它导致计算重新运行两次，使应用程序 react 慢两倍；(2)不可能直接在图中看到变化，因为原始图首先被替换为一个对用户没有意义的中间图。

为了说明这个问题，我创建了这个最小的工作示例，我将复杂性降低到只有一个表和一个 slider 。我添加了 3 秒 Sys.sleep模拟一个长时间的计算，因为显然人们不会看到问题，否则:

library(shiny)
library(DT)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("button", "Preset"),
      # No problem with selectInput:
      # selectInput("select", "x", choices = names(iris)[1:4], selected = "Sepal.Length"),
      DT::dataTableOutput("table"),
      sliderInput("slider", "bins", min = 1, max = 50, value = 30)
    ),
    mainPanel(
      plotOutput("distPlot")
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$button, {
    # updateSelectInput(session, "select", selected =  "Petal.Width")
    selectRows(DT::dataTableProxy("table"), 4)
    updateSliderInput(session, "slider", value = 15)
  })

  output$table <- DT::renderDataTable(
    DT::datatable(
      data.frame(x = names(iris)[1:4]),
      rownames = FALSE,
      selection = "single",
      options = list(searching = FALSE, paging = FALSE, info = FALSE, ordering = FALSE)
    )
  )

  output$distPlot <- renderPlot({
    req(input$table_rows_selected)
    # x <- iris[[input$select]]
    x <- iris[[input$table_rows_selected]]
    bins <- seq(min(x), max(x), length.out = input$slider + 1)
    # Simulate long calculation:
    Sys.sleep(3)
    hist(x, breaks = bins, col = 'darkgray', border = 'white')
  })
}

shinyApp(ui = ui, server = server)

首先单击表格中的单元格“Sepal.Length”，然后单击“Preset”按钮将加载预设并演示问题。

似乎这是一个时间问题/ race condition ，因为有时，它可以正常工作并且情节仅更新一次(仅在最小示例中，而不是实际应用程序中)。通常是在启动应用程序后的第一次。但在这种情况下，只需再次单击“Sepal.Length”并更改 slider 位置，然后单击“Preset”按钮，通常绘图会更新两次。

我注意到当我用 selectInput 替换表格时，问题没有出现。 .但是表格有一定的含义:它们代表形态领域(见包 morphr )，所以我宁愿坚持使用表格来获得正确的外观。

我显然也可以使用 isolate() 禁用 react 性。在这里建议: R Shiny: how to prevent duplicate plot update with nested selectors?然后例如引入一个按钮“更新情节”。但我更愿意让应用程序对 slider 和表格的变化保持 react ，因为这是一种非常有用的用户体验，也是我使用 Shiny 而不是 PHP/python/etc 的原因之一。

我解决这个问题的第一个想法是引入一个 react 值:

server <- function(input, output, session) {
  updating <- reactiveVal(FALSE)
  # ...
}

然后在更新输入之前和之后更改值:

observeEvent(input$button, {
  updating(TRUE)
  selectRows(DT::dataTableProxy("table"), 4)
  updateSliderInput(session, "slider", value = 15)
  updating(FALSE)
})

并添加 if renderPlot() 中的声明代码，例如与 validate :

output$distPlot <- renderPlot({
  validate(need(!updating(), ""))
  # ...
})    

但这没有任何效果，因为 observeEvent(input$button) 中的整个代码首先运行，设置 updating至 TRUE并立即返回 FALSE .但是 renderPlot()里面的代码稍后执行(发生失效后)和 updating总是 FALSE当它运行时。

所以，目前我对如何解决这个问题几乎没有什么想法。如果可以以某种方式禁用绘图的 react 性，然后更新输入，再次启用 react 性并以编程方式触发绘图更新，那将是最好的。但这可能吗？

还有其他解决方法的想法吗？

Answer 1

我不确定是否理解这个问题。这是否解决了问题:

library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  ......

  observeEvent(input$button, {
    runjs("Shiny.setInputValue('slider', 15); Shiny.setInputValue('table_rows_selected', 4);")
    selectRows(DT::dataTableProxy("table"), 4)
    updateSliderInput(session, "slider", value = 15)
  })