如何在R Shiny的rhandsontable中添加列时保留手动编辑内容？

你的问题核心是没有实时保存用户的编辑内容，每次点击添加列时，代码都是基于初始的mydata生成新列，自然会覆盖之前的修改。下面是修复后的完整代码，附带关键改动说明：

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

# 初始数据
mydata <- data.frame('Col 1' = c(1,24,0,1), check.names = FALSE)
rownames(mydata) <- c('Term A','Term B','Term C','Term D') 

ui <- fluidPage(
  useShinyjs(), 
  br(),
  rHandsontableOutput("hottable"),br(),
  actionButton("addCol", "Add",width = '70px')
)

server <- function(input,output,session){
  
  # 用reactiveVal存储当前表格的最新状态，代替全局变量
  current_data <- reactiveVal(mydata)
  
  # 监听表格编辑事件，实时更新current_data
  observeEvent(input$hottable, {
    edited_data <- hot_to_r(input$hottable)
    # 保留行名
    rownames(edited_data) <- rownames(current_data())
    current_data(edited_data)
    # 可选：打印当前数据，验证编辑是否保存
    print(current_data())
  })
  
  # 渲染表格，基于current_data的最新状态
  output$hottable = renderRHandsontable({
    rhandsontable(current_data(), rowHeaderWidth = 100, useTypes = TRUE)
  })
  
  # 处理添加列事件
  observeEvent(input$addCol, {
    # 取当前最新的数据
    temp_data <- current_data()
    # 生成新列（这里默认复制第一列的内容，你可以根据需求修改）
    new_col <- data.frame(temp_data[,1])
    col_name <- paste("Col", ncol(temp_data)+1)
    names(new_col) <- col_name
    # 合并新列并更新current_data
    updated_data <- cbind(temp_data, new_col)
    current_data(updated_data)
  })

}

shinyApp(ui,server)

关键改动说明： #

• 用reactiveVal(current_data)替代全局变量mydata，专门存储表格的实时状态，不管是编辑还是添加列，都基于这个变量操作。
• 添加observeEvent(input$hottable)监听用户的编辑操作，每次编辑后立刻把修改后的内容同步到current_data里。
• 添加列时，不再使用初始的mydata，而是从current_data取最新数据，添加新列后再存回current_data。
• 渲染表格时，直接基于current_data()的最新值生成rhandsontable，确保展示的是最新状态。

内容的提问来源于stack exchange，提问作者Village.Idyot