本地服务器Shiny应用工作区的保存与加载问题咨询

我来帮你搞定这两个头疼的问题：一是如何精准保存应用自身的编辑数据，二是让服务器重启后应用能自动恢复运行。

一、正确保存Shiny应用的工作区数据 #

你现在遇到的问题是save.image()会把启动脚本run.R里的临时变量（比如x、z、ip）也保存进去，这是因为Shiny应用是在run.R的进程中运行的，默认的工作区就是run.R的全局环境。要解决这个问题，我们可以只保存应用需要的核心数据，而非整个工作区：

1. 分离应用数据与启动脚本数据 #

• 首先，把你应用需要的变量（比如数据框、配置变量）单独保存到一个专属文件，比如app_data.RData，而不是用默认的.RData。
• 在app.R开头，加载这个专属数据文件：

  # 加载应用核心数据，而非整个工作区
  load("C://Users//Administrator//Documents//App//app_data.RData")
  

2. 在编辑事件中只保存应用变量 #

当用户触发数据编辑（比如点击按钮）时，不要用save.image()，而是用save()函数指定要保存的应用变量。比如你有一个数据框user_data和配置变量app_config，就这么写：

observeEvent(input$save_edit_btn, {
  # 这里是你的数据编辑逻辑，比如更新user_data
  user_data <- edited_user_data
  
  # 只保存应用需要的变量到专属文件
  save(user_data, app_config, file = "C://Users//Administrator//Documents//App//app_data.RData")
})

进阶：用ReactiveValues管理状态（更推荐） #

如果你用Shiny的reactiveValues来管理可编辑数据，会更符合Shiny的设计逻辑，也能避免全局变量的问题：

# 在app.R顶部初始化反应式数据
load("app_data.RData")
rv <- reactiveValues(
  user_data = user_data,
  app_config = app_config
)

# 在server里编辑数据
observeEvent(input$edit_btn, {
  # 更新反应式数据
  rv$user_data <- edited_data
  
  # 保存反应式数据到文件
  save(rv$user_data, rv$app_config, file = "app_data.RData")
})

这样就完全不会把run.R里的临时变量混进来了，只保存你真正需要的应用数据。

二、让应用在服务器重启后自动恢复运行 #

你的临时方案需要手动重启太麻烦，我们可以通过任务计划程序配置+脚本循环实现自动重启：

1. 配置任务计划程序的自动重启规则 #

• 打开任务计划程序，找到你的定时任务，右键选择「属性」：
  • 在「常规」选项卡，勾选「不管用户是否登录都要运行」，并勾选「使用最高权限运行」（确保有足够权限启动应用）。
  • 在「设置」选项卡，勾选「如果任务失败，每隔X分钟重新启动」，比如设置每隔5分钟重启，尝试次数设为999（无限尝试）。

2. 修改run.R脚本实现循环重启 #

把run.R改成循环运行的模式，这样即使应用意外退出，脚本会自动重启应用：

require(shiny)
folder_address <- "C://Users//Administrator//Documents//App//app.R"

# 循环运行应用，崩溃后自动重启
while(TRUE) {
  tryCatch({
    # 获取IP并启动应用
    x <- system("ipconfig", intern = TRUE)
    z <- x[grep("IPv4", x)]
    ip <- gsub(".*? ([[:digit:]])", "\\1", z)
    cat(paste0("应用启动时间：", Sys.time(), "，IP：", ip, "\n"), file = "app_log.log", append = TRUE)
    
    runApp(folder_address, launch.browser = FALSE, port = 1234, host = ip)
  }, error = function(e) {
    # 记录错误日志，方便排查问题
    cat(paste0("应用崩溃时间：", Sys.time(), "，错误信息：", e$message, "\n"), file = "app_error.log", append = TRUE)
  })
  
  # 重启前等待10秒，避免无限快速重启
  Sys.sleep(10)
}

这样，不管是服务器重启导致应用退出，还是应用意外崩溃，脚本都会自动重新启动应用，完全不需要手动干预。

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