Shiny中切换rhandsontable表格时如何保留修改单元格状态？

核心解决思路就是分别存好两个数据集的修改后数据和修改过的单元格记录，切换表格时直接加载保存后的数据集，再把历史修改的单元格样式重新渲染出来。

完整修改代码 #

library(shiny)
library(rhandsontable)
library(tidyverse)

# 调整后的JS钩子：初始化时加载已有修改记录，修改时同步记录到R端
change_hook <- "function(el,x) {
  const hot = this.hot;
  let cellchngs = x.cell_changes || []; // 接收R端传递的已修改单元格记录
  
  // 初始化时给已修改单元格上色
  cellchngs.forEach(elem => {
    const td = hot.getCell(elem.rowind, elem.colind);
    if(td) td.style.background = 'cyan';
  });

  const afterChange = function(changes, source) {
    if(source === 'load') return; // 忽略表格加载时的默认触发
    const newChanges = [];
    $.each(changes, function (index, elem) {
      const [row, col, oldVal, newVal] = elem;
      if(oldVal !== newVal) {   // 仅处理值发生变化的单元格
        const cellchg = {rowind: row, colind: col};
        newChanges.push(cellchg);
        cellchngs.push(cellchg);
        // 给当前修改单元格上色
        const td = hot.getCell(row, col);
        if(td) td.style.background = 'cyan';
      }
    });
    // 将新修改记录发送到R端
    Shiny.setInputValue('cell_changes_update', {
      dataset: x.dataset_name,
      changes: newChanges
    }, {priority: 'event'});
  }
  
  hot.addHook('afterChange', afterChange);
}"

ui <- div(
  actionButton(inputId = "reset_button", label = "Reset"),
  selectInput("data", "Choose data", choices = c("mtcars" = 1, "iris" = 2), selected = 1),
  rHandsontableOutput(outputId = "table")
)

server <- function(input, output, session) {
  # 存储每个数据集的修改后数据和修改记录
  rv <- reactiveValues(
    mtcars = mtcars,
    iris = iris,
    mtcars_changes = list(),
    iris_changes = list()
  )
  
  # 接收前端传递的新修改记录，更新对应数据集的修改记录
  observeEvent(input$cell_changes_update, {
    req(input$cell_changes_update)
    dataset <- input$cell_changes_update$dataset
    new_changes <- input$cell_changes_update$changes
    rv[[paste0(dataset, "_changes")]] <- c(rv[[paste0(dataset, "_changes")]], new_changes)
  })
  
  # 接收rhandsontable的修改数据，更新对应数据集
  observeEvent(input$table, {
    req(input$table)
    current_data <- input$data
    dataset_name <- ifelse(current_data == 1, "mtcars", "iris")
    rv[[dataset_name]] <- hot_to_r(input$table)
  })
  
  # 渲染rhandsontable
  output$table <- renderRHandsontable({
    current_data <- input$data
    dataset_name <- ifelse(current_data == 1, "mtcars", "iris")
    # 加载保存后的数据集
    mydata <- rv[[dataset_name]]
    # 获取该数据集的修改记录
    cell_changes <- rv[[paste0(dataset_name, "_changes")]]
    
    rhandsontable(mydata, stretchH = "all", height = 300) %>%
      htmlwidgets::onRender(change_hook, 
                            data = list(
                              dataset_name = dataset_name,
                              cell_changes = cell_changes
                            ))
  })
  
  # 重置按钮：恢复原始数据和修改记录
  observeEvent(input$reset_button, {
    rv$mtcars <- mtcars
    rv$iris <- iris
    rv$mtcars_changes <- list()
    rv$iris_changes <- list()
  })
}

shinyApp(ui, server)

关键修改点说明 #

• 数据持久化存储：用reactiveValues分开存mtcars和iris的修改后数据，以及各自的修改单元格记录，切换表格时不会丢失修改内容。
• 双向同步修改记录：前端初始化时接收R端的历史修改记录自动上色；单元格修改时把新记录同步回R端更新存储。
• 避免无效触发：在JS钩子里忽略表格加载时的默认触发，防止误更新修改记录。
• 重置功能优化：点击重置按钮时，同时恢复原始数据集并清空修改记录。

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