R Shiny技术问题：如何捕获指定目录的变更？

要实现捕获用户选择目录的子目录变更（创建、删除），需要调整代码逻辑，核心是实时监听目标目录的内容变化，以下是修正后的完整代码：

library(shiny)
library(shinyFiles)

ui = fluidPage(sidebarLayout(
  sidebarPanel(
    class = "sidebar_upload",
    id = "form",
    
    tags$h1("1- 选择文件夹"),
    shinyDirButton(
      id = 'choose_directory',
      label = '选择文件夹',
      title = '选择文件夹',
      multiple = FALSE
    ),
    br(), br(), br(),
    actionButton("button", "手动更新目录")
    
  ),
  
  mainPanel(
    h3("当前目录下的子目录"),
    verbatimTextOutput(outputId = "dir_content")
  )
))

server <- function(input, output, session) {
  r_global <- reactiveValues(
    selected_dir = NULL,
    dir_contents = character(0)
  )
  
  # 配置文件系统根目录
  volumes <- c(home = 'C:/')
  
  # 处理用户选择目录的事件
  shinyDirChoose(
    input = input,
    id = 'choose_directory',
    roots = volumes,
    session = session
  )
  
  observeEvent(input$choose_directory, {
    # 解析用户选择的目录路径
    r_global$selected_dir <- parseDirPath(volumes, input$choose_directory)
  })
  
  # 定时检查目录内容变化（每2秒检查一次，可调整间隔）
  observe({
    invalidateLater(2000, session)
    if (!is.null(r_global$selected_dir)) {
      # 获取当前目录下的一级子目录
      current_contents <- list.dirs(r_global$selected_dir, recursive = FALSE, full.names = FALSE)
      # 对比是否有变化，有变化则更新
      if (!identical(current_contents, r_global$dir_contents)) {
        r_global$dir_contents <- current_contents
        cat("目录发生变更：\n", paste(current_contents, collapse = "\n"), "\n")
      }
    }
  })
  
  # 手动更新按钮事件
  observeEvent(input$button, {
    if (!is.null(r_global$selected_dir)) {
      r_global$dir_contents <- list.dirs(r_global$selected_dir, recursive = FALSE, full.names = FALSE)
      cat("手动更新目录内容：\n", paste(r_global$dir_contents, collapse = "\n"), "\n")
    }
  })
  
  # 输出目录内容到界面
  output$dir_content <- renderPrint({
    if (is.null(r_global$selected_dir)) {
      cat("请先选择一个文件夹")
    } else if (length(r_global$dir_contents) == 0) {
      cat("该目录下暂无子目录")
    } else {
      r_global$dir_contents
    }
  })
}

shinyApp(ui, server)

关键调整说明 #

• 正确获取选择的目录：用parseDirPath解析shinyDirChoose返回的路径编码，得到真实的目录路径。
• 实时监听目录变化：使用invalidateLater定时触发检查，对比当前目录内容与缓存内容，有差异则更新reactiveValues中的数据，实现自动捕获变更。
• 区分自动与手动更新：保留手动更新按钮，同时实现自动监听，满足不同场景需求。
• 界面实时反馈：通过verbatimTextOutput实时展示目录内容，让用户直观看到变更结果。

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