如何在Shiny应用中同步两个rHandsontable的列顺序？

问题核心在于afterColumnMove的JavaScript回调参数错误，导致列顺序变更信号未正确传递到Shiny服务器。以下是修正后的完整代码及关键调整说明：

library(shiny)
library(data.table)
library(htmlwidgets)
library(rhandsontable)

ui <- fluidPage(
  fluidRow(column(width = 6, rHandsontableOutput('control_table')),
           column(width = 6, rHandsontableOutput('preview_table')))
)

server <- function(input, output) {
  # 响应式存储预览表数据
  rv_data <- reactiveVal(data.table(A = 1:3, B = 4:6, C = 7:9))
  
  # 渲染控制表
  output$control_table <- renderRHandsontable({
    req(rv_data())
    
    DT <- rv_data()
    # 创建单行控制表，列名与预览表同步
    DTC <- data.table(t(names(DT)))
    setnames(DTC, names(DT))
    
    rhandsontable(
      data = DTC,
      readOnly = FALSE,
      contextMenu = FALSE,
      selectionMode = 'none',
      manualColumnMove = TRUE,
      # 修正afterColumnMove的回调参数，仅响应用户手动拖拽
      afterColumnMove = JS(
        'function(index, dropIndex, source) { 
          if(source !== "load") {
            Shiny.setInputValue("column_order", this.getColHeader(), {priority: "event"}); 
          }
        }'
      )
    )
  })
  
  # 渲染预览表
  output$preview_table <- renderRHandsontable({
    req(rv_data())
    
    rhandsontable(
      data = rv_data(),
      readOnly = TRUE,
      contextMenu = FALSE,
      selectionMode = 'none'
    )
  })
  
  # 同步列名修改
  observeEvent(input$control_table$changes$changes, {
    DT <- rv_data()
    DT_hot <- hot_to_r(input$control_table)
    new_names <- unlist(DT_hot[1, ])
    # 校验列名有效性，避免空值或重复
    if(all(nzchar(new_names)) && length(unique(new_names)) == length(new_names)) {
      setnames(DT, new_names)
      rv_data(DT)
    }
  })
  
  # 同步列顺序修改
  observeEvent(input$column_order, {
    DT <- rv_data()
    new_col_order <- input$column_order
    # 校验列名存在性，避免无效操作
    if(all(new_col_order %in% names(DT))) {
      DT <- DT[, ..new_col_order]
      rv_data(DT)
    }
  })
}

shinyApp(ui, server)

关键调整说明： #

• 修正回调参数：afterColumnMove的正确参数为index, dropIndex, source，原代码错误使用changes, source导致回调触发异常。
• 过滤无效触发：通过source !== "load"排除表格初始化加载时的自动触发，仅响应用户手动拖拽操作。
• 提升信号优先级：在Shiny.setInputValue中添加{priority: "event"}，确保列顺序变更信号及时传递到服务器。
• 添加安全校验：在列名修改和顺序同步时增加有效性校验，避免空列名、重复列名或无效列名导致的应用崩溃。

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