如何实现Shiny App无活动超时自动关闭并兼容长进程？

要解决长进程场景下的无活动超时问题，核心思路是把长进程的启动和完成都标记为应用活动，让超时计时器在进程开始时重置，进程结束后再重新开始计时。以下是具体实现方案：

实现步骤与代码示例 #

1. 前端监听用户交互，触发超时重置 #

在UI中嵌入JavaScript，监听用户的点击、键盘输入、滚动、表单输入等常见交互事件，每次触发就给Shiny后端发送重置信号：

ui <- fluidPage(
  tags$script(HTML("
    // 定义重置超时的函数
    const resetTimeout = () => {
      // 用随机值确保每次信号都能触发Shiny的observeEvent
      Shiny.setInputValue('reset_timeout', Math.random());
    };

    // 绑定所有需要监听的交互事件
    document.addEventListener('click', resetTimeout);
    document.addEventListener('keydown', resetTimeout);
    document.addEventListener('scroll', resetTimeout);
    document.addEventListener('input', resetTimeout);
  ")),
  
  # 你的应用UI组件，示例：
  actionButton("run_long_task", "启动长进程"),
  verbatimTextOutput("task_result")
)

2. 后端管理超时计时器，适配长进程 #

在Server端维护一个可重置的超时计时器，同时在长进程的前后手动调用重置逻辑：

server <- function(input, output, session) {
  # 存储超时计时器的ID，用于后续清除
  timeout_id <- reactiveVal(NULL)
  
  # 统一的重置超时函数
  reset_timer <- function() {
    # 先清除之前的计时器（如果存在）
    if (!is.null(timeout_id())) {
      invalidateLater(0, session)
      timeout_id(NULL)
    }
    # 设置新的超时（示例为300秒=5分钟，可自行调整）
    timeout_id(invalidateLater(300000, session, {
      stopApp() # 超时触发时关闭应用
    }))
  }
  
  # 初始化计时器
  reset_timer()
  
  # 监听前端发来的用户交互重置信号
  observeEvent(input$reset_timeout, {
    reset_timer()
  })
  
  # 长进程处理逻辑示例
  observeEvent(input$run_long_task, {
    # 进程启动时重置计时器，标记为活动状态
    reset_timer()
    
    # 模拟长进程（替换为你的实际业务逻辑）
    Sys.sleep(15) # 比如15秒的计算任务
    task_result <- "长进程执行完成，结果已生成"
    
    # 进程结束时再次重置计时器，重新开始统计无活动时长
    reset_timer()
    
    # 输出结果
    output$task_result <- renderPrint({
      task_result
    })
  })
}

shinyApp(ui, server)

方案关键点说明 #

• 统一计时器管理：用reset_timer函数封装计时器的清除与重建，避免重复代码，确保逻辑一致性。
• 长进程主动标记活动：在长进程启动和结束时手动调用reset_timer，让系统认为进程期间属于“活跃状态”，不会触发超时；进程结束后重新开始计时。
• 前端信号可靠性：用Math.random()作为输入值，避免Shiny忽略重复信号，确保每次用户交互都能正确重置计时器。

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