如何解决shinyapps.io因超时断开引发的数据丢失问题？

针对你遇到的shinyapps.io因窗口长时间失焦断开、丢失csv/json数据的问题，以下是几个实用的解决办法，优先推荐断开前自动本地下载的方案：

核心方案：监听断开事件，自动触发本地下载 #

利用Shiny的前端事件机制，在连接即将断开时（还能和服务器通信的最后窗口期），自动请求数据并触发浏览器本地下载，完美适配大文件需求：

步骤1：在UI中添加监听断开事件的JS代码 #

把这段代码加到你的Shiny UI里，它会监听shiny:disconnecting事件，向服务器请求需要保存的数据：

tags$script(HTML('
  // 监听即将断开连接的事件
  $(document).on("shiny:disconnecting", function(event) {
    // 向服务器发送请求，获取要保存的数据
    Shiny.setInputValue("request_save_data", true);
    
    // 等待服务器返回数据后处理
    var dataListener = Shiny.addCustomMessageHandler("send_save_data", function(message) {
      // 处理CSV数据并下载
      if (message.csv_data) {
        const csvBlob = new Blob([message.csv_data], {type: "text/csv;charset=utf-8;"});
        const csvUrl = URL.createObjectURL(csvBlob);
        const csvLink = document.createElement("a");
        csvLink.href = csvUrl;
        csvLink.download = "app_data_" + new Date().toISOString().slice(0,10) + ".csv";
        csvLink.click();
        URL.revokeObjectURL(csvUrl);
      }
      
      // 处理JSON数据并下载
      if (message.json_data) {
        const jsonBlob = new Blob([JSON.stringify(message.json_data, null, 2)], {type: "application/json"});
        const jsonUrl = URL.createObjectURL(jsonBlob);
        const jsonLink = document.createElement("a");
        jsonLink.href = jsonUrl;
        jsonLink.download = "app_data_" + new Date().toISOString().slice(0,10) + ".json";
        jsonLink.click();
        URL.revokeObjectURL(jsonUrl);
      }
      
      // 移除消息监听，避免重复触发
      Shiny.removeCustomMessageHandler("send_save_data");
    });
  });
'))

步骤2：在Server端处理数据请求并返回 #

在你的Server函数里，添加监听前端请求的代码，把需要保存的csv和json数据发送回去：

server <- function(input, output, session) {
  # 用reactiveValues存储需要保存的动态数据（替换成你自己的数据源）
  rv <- reactiveValues(
    csv_data = NULL,  # 这里存你的CSV内容（比如write.csv的输出字符串）
    json_data = NULL  # 这里存你的JSON对象
  )
  
  # 示例：假设你在某个环节生成了CSV和JSON数据
  observe({
    # 替换成你实际生成数据的逻辑
    sample_csv <- mtcars
    rv$csv_data <- write.csv(sample_csv, row.names = FALSE)
    
    sample_json <- list(settings = list(theme = "dark", version = "1.0"), data = sample_csv)
    rv$json_data <- sample_json
  })
  
  # 监听前端的数据保存请求，发送数据到前端
  observeEvent(input$request_save_data, {
    session$sendCustomMessage(
      type = "send_save_data",
      message = list(
        csv_data = rv$csv_data,
        json_data = rv$json_data
      )
    )
  })
}

辅助方案：延长闲置超时时间（付费版可用） #

如果是shinyapps.io付费用户，可以在应用的Settings > General里调整Idle Timeout，最长可以设到24小时，减少因窗口失焦触发断开的频率，但还是建议配合自动下载方案，避免极端情况丢失数据。

补充方案：浏览器本地存储（适合小体积数据） #

如果你的数据体积不大（单文件<5MB），可以在数据更新时自动保存到浏览器的localStorage里，即使断开后重新打开应用，也可以从本地存储恢复数据。但大文件不推荐，因为localStorage有容量限制：

# 在UI的JS里添加数据保存到localStorage的逻辑
tags$script(HTML('
  // 监听Shiny数据更新事件，自动保存到localStorage
  Shiny.addCustomMessageHandler("update_local_storage", function(message) {
    if (message.csv_data) localStorage.setItem("app_csv_data", message.csv_data);
    if (message.json_data) localStorage.setItem("app_json_data", JSON.stringify(message.json_data));
  });
  
  // 页面加载时从localStorage恢复数据（可选）
  $(document).ready(function() {
    const savedCsv = localStorage.getItem("app_csv_data");
    const savedJson = localStorage.getItem("app_json_data");
    if (savedCsv) Shiny.setInputValue("recovered_csv", savedCsv);
    if (savedJson) Shiny.setInputValue("recovered_json", JSON.parse(savedJson));
  });
'))

然后在Server端数据更新时发送消息到前端：

observe({
  # 数据更新时触发保存到localStorage
  session$sendCustomMessage(
    type = "update_local_storage",
    message = list(
      csv_data = rv$csv_data,
      json_data = rv$json_data
    )
  )
})

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