使用DataTableProxy与慢函数时Shiny App数据表格陷入循环

你的核心问题是Shiny反应式循环+慢函数阻塞导致的DT表格选中状态不同步：当slow_function执行时间超过两次点击间隔时，input$tbl_rows_selected的变更未及时被Shiny注册，而dataTableProxy的selectRows操作又会反向修改input$tbl_rows_selected，最终形成"选中-取消-选中"的循环触发。

以下是针对你提出的思路的具体实现方案：

方案1：处理期间禁用行选择（最直接） #

通过shinyjs包在慢函数执行期间禁用表格的选择功能，从根源上避免快速点击触发冲突。

修改后代码：

library(shiny)
library(DT)
library(dplyr)
library(shinyjs)

ui <- function () {
  fluidPage(
    useShinyjs(), # 启用shinyjs功能
    DTOutput("tbl"),
    DTOutput("tbl2")
  )
}

server <- function (input, output, session) {
  
  df = data.frame(a = 1:5)
  slct <- reactiveVal(NULL)

  output$tbl <- renderDT(df)
  proxy <- dataTableProxy("tbl")
  
  observe({
    rows <- input$tbl_rows_selected
    
    max_selected = 3
    if (length(rows) > max_selected) {
        rows <- rows[c(1:(max_selected - 1), length(rows))]
    }
 
    slct(rows)
    DT::selectRows(proxy, rows)
  })
  
  output$tbl2 <- renderDT({
    # 处理前禁用表格选择交互
    shinyjs::disable("tbl")
    # 无论成功/失败，处理完成后恢复交互
    on.exit(shinyjs::enable("tbl"))
    
    df_selected <- slow_function(df, slct)
    datatable(df_selected)
  })
}

slow_function <- function (df, slct) {
  Sys.sleep(0.5)
  slice(df, slct())
}

runApp(list(ui = ui, server = server))

如果需要更精细控制（仅禁用选择而非整个表格），可以通过动态修改DT的selection参数实现：用一个reactiveVal控制selection为"multiple"或"none"，处理期间切换为"none"即可。

方案2：打破反应式循环（从根源修复） #

通过记录已处理的选中状态，避免selectRows操作反向触发observe形成循环。

修改server中的observe部分：

server <- function (input, output, session) {
  
  df = data.frame(a = 1:5)
  slct <- reactiveVal(NULL)
  # 记录已经处理过的选中行，避免重复触发
  processed_slct <- reactiveVal(NULL)

  output$tbl <- renderDT(df)
  proxy <- dataTableProxy("tbl")
  
  observe({
    rows <- input$tbl_rows_selected
    
    # 如果当前选中状态是我们刚设置的，直接跳过，打破循环
    if (identical(rows, processed_slct())) return()
    
    max_selected = 3
    if (length(rows) > max_selected) {
        rows <- rows[c(1:(max_selected - 1), length(rows))]
    }
 
    # 更新已处理状态
    processed_slct(rows)
    slct(rows)
    # 用isolate包裹，避免selectRows操作再次触发当前observe
    isolate(DT::selectRows(proxy, rows))
  })
  
  # 可选：对slct添加防抖，减少慢函数执行频率
  slct_debounced <- slct %>% debounce(300)
  
  output$tbl2 <- renderDT({
    df_selected <- slow_function(df, slct_debounced)
    datatable(df_selected)
  })
}

debounce可以让短时间内的多次点击只触发一次慢函数，进一步降低冲突概率。

方案3：优化完整应用的特殊场景（适配RowReorder/模块/server=T） #

针对你提到的完整应用特性，补充两个优化点：

1. RowReorder扩展兼容：确保RowReorder的JS回调不会修改rows_selected输入，若必须修改，在回调中添加状态判断，避免和Shiny的选中逻辑冲突。
2. Server端DT缓存：开启server=T时，给renderDT添加缓存，避免重复执行慢函数：

output$tbl2 <- renderDT({
  df_selected <- slow_function(df, slct)
  datatable(df_selected)
}, server = TRUE, cache = TRUE)

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