如何在Shiny应用中实时监控文件系统或外部事件？

好问题！你提到的客户端JS轮询确实是Shiny中实现实时监控的常用方案，简单可靠，不过确实还有几种更优雅的纯服务器端（或更高效）的方法，我来给你详细拆解一下：

一、你的客户端轮询思路完全可行（附优化建议） #

先肯定你的思路——这种方式兼容性极强，几乎在所有环境下都能正常工作。如果要优化的话，可以给轮询的输入值带上时间戳（比如Date.now()），避免重复触发；同时在服务器端先判断文件系统是否真的有变化，再更新数据，减少不必要的计算：

客户端JS（放在UI中）：

tags$script(
  'setInterval(function() {
    Shiny.setInputValue("check_fs", Date.now(), {priority: "event"});
  }, 10000);' // 10秒轮询一次，可按需调整
)

服务器端逻辑：

# 存储上次的统计结果，用于判断是否需要更新
prev_stats <- reactiveVal(NULL)

observeEvent(input$check_fs, {
  new_stats <- calculate_file_stats() # 你的自定义统计函数
  if (!identical(new_stats, prev_stats())) {
    prev_stats(new_stats)
    # 更新UI用到的响应式对象
    output$file_stats_output <- renderTable({new_stats})
  }
})

二、纯服务器端实现：用reactivePoll（最推荐） #

Shiny内置了reactivePoll函数，完全不需要写JavaScript，就能在服务器端实现定期检查+自动更新的逻辑。它的核心是两个函数：一个检查函数（返回一个标识状态的值，比如文件的最后修改时间、文件数量），一个取值函数（当状态变化时获取最新数据）。

示例代码：

server <- function(input, output, session) {
  # 定义自动更新的文件统计数据
  file_stats <- reactivePoll(
    intervalMillis = 10000, # 10秒检查一次，可调整
    session = session,
    # 检查函数：返回一个值，文件系统变化时这个值会改变
    checkFunc = function() {
      # 示例：监控目标目录的最后修改时间
      dir_info <- file.info("/path/to/your/target/dir")
      dir_info$mtime
      # 也可以监控文件数量：length(list.files("/path/to/dir"))
    },
    # 取值函数：当checkFunc的结果变化时，执行此函数获取最新数据
    valueFunc = function() {
      calculate_file_stats() # 你的自定义统计逻辑
    }
  )

  # UI输出直接使用这个响应式对象即可
  output$file_stats_dashboard <- renderPlot({
    plot(file_stats())
  })
}

这个方法的优势是代码简洁、纯R实现，不需要关心客户端逻辑，适合大多数场景。

三、事件驱动的实时监控：用fs::watch() #

如果需要即时响应（不是定期轮询，而是文件一变化就更新），可以用fs包的watch()函数，它能监听文件系统的创建、修改、删除事件，然后触发Shiny的响应式更新。

示例代码：

library(fs)

server <- function(input, output, session) {
  # 初始化一个反应值存储统计数据
  file_stats <- reactiveVal(calculate_file_stats())

  # 启动文件系统监听
  observe({
    # 监听目标目录的创建/修改/删除事件
    watcher <- watch(
      path = "/path/to/your/target/dir",
      event = c("create", "modify", "delete"),
      callback = function(path, event, ...) {
        # 当事件发生时，立即更新统计数据
        file_stats(calculate_file_stats())
      }
    )

    # 会话结束时自动停止监听，避免资源泄漏
    on.exit(watcher$stop())
  })

  # UI输出绑定反应值
  output$real_time_stats <- renderTable({
    file_stats()
  })
}

这种方式是事件驱动的，比轮询更高效，实时性更强。需要注意的是fs::watch()依赖操作系统的文件系统通知机制，主流系统（Windows、macOS、Linux）都支持，但要确保应用有目标目录的读写权限。

方案对比 #

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