R Shiny应用：保存加载进度时fileInput与rhandsontable异常问题

我来帮你搞定这两个问题，咱们先分析问题根源，再给出修改后的完整代码：

问题原因分析 #

1. fileInput导致Load失效：你之前直接保存了整个input列表，其中包含file1这个复杂对象（它不仅有文件路径，还有其他元数据），session$sendInputMessage无法正确恢复这类控件的状态，导致加载时整个更新流程中断。
2. rhandsontable不更新：你的output$hot依赖filedata()，而filedata()只响应input$file1的变化。加载时你只是给input$hot发消息，但没有更新filedata()的数据源，所以表格不会重新渲染。

修改后的完整代码 #

library(shinydashboard)
library(shiny)
library(data.table)
library(rhandsontable)
library(markdown)

sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Data", tabName = "data", icon = icon("file")),
    menuItem("Control", tabName = "control", icon = icon("list-alt"))
  )
)

body <- dashboardBody(
  tabItems(
    tabItem(tabName = "data",
            fluidRow(
              box(title = h3("Input data manually or by importing a .csv file:"),
                  fileInput("file1", "Choose CSV File:", width = '30%',
                            multiple = TRUE,
                            accept = c("text/csv",
                                       "text/comma-separated-values,text/plain",
                                       ".csv")),
                  width = 12, height = 800,
                  rHandsontableOutput("hot"))
            )
    ),
    tabItem(tabName = "control",
            fluidRow(
              actionButton("save", "Save"),
              actionButton("load", "Load"),
              box(title = h2("1. General Information"), width = '100%',
                  radioButtons("Type", h4("Type:"), choices = list("1" = "1", "2" = "2")),
                  radioButtons("DataExtraction", h4("Extract information:"), choices = list("Yes" = "Yes", "No" = "No"), selected = "No")
              )
            )
    )
  )
)

ui <- dashboardPage(
  dashboardHeader(title = "Shiny"),
  sidebar,
  body
)

server <- function(input, output, session) {
  # 用reactiveValues存储表格数据和需要保存的状态
  rv <- reactiveValues(
    data = data.table(Number1 = numeric(20), 
                      Number2 = numeric(20), 
                      Date1 = seq(from = Sys.Date(), by = "days", length.out = 20), 
                      Date2 = seq(from = Sys.Date(), by = "days", length.out = 20))
  )
  
  # 处理文件上传：更新表格数据
  observeEvent(input$file1, {
    inFile <- input$file1
    if (!is.null(inFile)) {
      rv$data <- fread(inFile$datapath)
    }
  })
  
  # 渲染rhandsontable，依赖rv$data
  output$hot = renderRHandsontable({
    rhandsontable(rv$data) %>% 
      hot_cols(columnSorting = TRUE) %>% 
      hot_table(highlightCol = TRUE, highlightRow = TRUE)
  })
  
  # 保存功能：只保存需要的状态，排除fileInput这类无法恢复的控件
  observeEvent(input$save,{
    save_data <- list(
      Type = input$Type,
      DataExtraction = input$DataExtraction,
      hot_data = hot_to_r(input$hot)  # 将rhandsontable转为data.table
    )
    saveRDS(save_data, file = "C:/Documents/ws1.RData")
    showNotification("保存成功！", type = "message")
  })
  
  # 加载功能：分别更新表格数据和输入控件
  observeEvent(input$load,{
    saved_data <- readRDS("C:/Documents/ws1.RData")
    if (!is.null(saved_data)) {
      # 更新表格数据
      rv$data <- as.data.table(saved_data$hot_data)
      # 更新radioButtons
      updateRadioButtons(session, "Type", selected = saved_data$Type)
      updateRadioButtons(session, "DataExtraction", selected = saved_data$DataExtraction)
      showNotification("加载成功！", type = "message")
    }
  })
}

shinyApp(ui, server)

关键修改点说明 #

• 用reactiveValues管理表格数据：把表格数据存在rv$data里，无论是手动编辑、上传文件还是加载保存的数据，都直接更新这个值，确保renderRHandsontable能实时响应变化。
• 选择性保存状态：只保存Type、DataExtraction和表格数据（用hot_to_r()把rhandsontable转为可存储的data.table），避免保存fileInput这类无法正确恢复的控件。
• 用官方更新函数修改输入控件：用updateRadioButtons来更新单选框状态，比session$sendInputMessage更可靠，也避免了处理复杂输入控件的麻烦。

这样修改后，两个问题都能解决：启用fileInput后加载功能正常，rhandsontable也能正确显示加载的数据。

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