如何避免rhandsontable连续快速输入时触发无限循环？

问题场景 #

当在Shiny应用中通过rhandsontable手动更新用于ggplot2展示的dataframe时，连续快速修改表格值会触发频繁的渲染循环，导致应用卡顿甚至瘫痪。复现代码如下：

library(shiny)
library(rhandsontable)
library(ggplot2)

ui <- fluidPage(
  rHandsontableOutput("hot"),
  plotOutput("plot")
)

server <- function(input, output, session) {
  
  reactive.table <- reactiveValues(values = data.frame(x = c(1,2), y = c(1,2)))
  
  observe({
    if (!is.null(input$hot)) {
      reactive.table$values <<- hot_to_r(input$hot)
    }
  })
  
  output$hot <- renderRHandsontable({
    rhandsontable(reactive.table$values)
  })
  
  output$plot <- renderPlot({
    Sys.sleep(2) # 模拟耗时渲染
    ggplot(reactive.table$values, aes(x = x, y = y)) +
      geom_point()
  })
  
}

shinyApp(ui = ui, server = server)

解决方案 #

1. 使用debounce延迟响应输入变化 #

通过debounce让表格输入的响应延迟一段时间（比如500ms），只有当用户停止输入超过设定时间后，才更新数据并触发绘图，避免频繁触发渲染循环。

修改后的server代码：

server <- function(input, output, session) {
  
  reactive.table <- reactiveValues(values = data.frame(x = c(1,2), y = c(1,2)))
  
  # 对输入的hot添加debounce
  debounced_hot <- reactive(input$hot) %>% debounce(500)
  
  observe({
    if (!is.null(debounced_hot())) {
      reactive.table$values <- hot_to_r(debounced_hot())
    }
  })
  
  output$hot <- renderRHandsontable({
    rhandsontable(reactive.table$values)
  })
  
  output$plot <- renderPlot({
    Sys.sleep(2)
    ggplot(reactive.table$values, aes(x = x, y = y)) +
      geom_point()
  })
  
}

2. 绘图时禁用rhandsontable输入 #

借助shinyjs包，在绘图开始渲染时禁用表格，完成后重新启用，从根源上阻止用户在渲染过程中继续输入。

修改后的完整代码：

library(shiny)
library(rhandsontable)
library(ggplot2)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(), # 初始化shinyjs
  rHandsontableOutput("hot"),
  plotOutput("plot")
)

server <- function(input, output, session) {
  
  reactive.table <- reactiveValues(values = data.frame(x = c(1,2), y = c(1,2)))
  
  observe({
    if (!is.null(input$hot)) {
      reactive.table$values <- hot_to_r(input$hot)
    }
  })
  
  output$hot <- renderRHandsontable({
    rhandsontable(reactive.table$values)
  })
  
  output$plot <- renderPlot({
    shinyjs::disable("hot") # 渲染开始时禁用表格
    on.exit(shinyjs::enable("hot")) # 渲染结束时启用表格
    Sys.sleep(2)
    ggplot(reactive.table$values, aes(x = x, y = y)) +
      geom_point()
  })
  
}

shinyApp(ui = ui, server = server)

3. 优化绘图渲染逻辑 #

如果实际场景中Sys.sleep是模拟耗时操作，可尝试优化绘图代码减少渲染时间，比如避免重复计算、使用更高效的绘图方式。也可以用bindCache缓存绘图结果，当数据未变化时直接复用之前的绘图：

output$plot <- renderPlot({
  ggplot(reactive.table$values, aes(x = x, y = y)) +
    geom_point()
}) %>% bindCache(reactive.table$values)

内容的提问来源于stack exchange，提问作者marcg