Shiny新手求助：实现目录文件列表动态更新及UI数据调用

你好！作为Shiny新手，你已经找对了方向——reactivePoll确实是实现文件列表自动更新的合适工具，不过在UI和Server的配合上需要调整一下，我来帮你一步步修正：

问题核心分析 #

1. renderText使用错误：renderText是用来把文本内容输出到UI的textOutput组件的，但你需要的是给selectInput提供动态选项，所以应该用renderUI或者updateSelectInput来实现。
2. UI静态调用list.files()：你当前在UI里直接写list.files()，这只会在App启动时执行一次，无法响应后续文件的增删，必须让UI从Server端的响应式对象获取数据。

完整解决方案 #

下面给你两种可行的实现方式，选一种你觉得顺手的就行：

方式一：用updateSelectInput动态更新选择框

这种方式先在UI里创建一个空的选择框，然后在Server里监听响应式的文件列表变化，实时更新选项：

library(shiny)

ui <- fluidPage(
  # 先创建一个空的选择框，初始没有选项
  selectInput("file", "Choose file", choices = character(0))
)

server <- function(input, output, session) {
  # 1. 用reactivePoll创建响应式文件列表
  file_list <- reactivePoll(
    intervalMillis = 1000,  # 建议把检查间隔设为1秒（1000毫秒），10毫秒太频繁会占用资源
    session = session,
    # 优化检查函数：不仅检查文件数量，还检查文件修改时间，能检测到文件替换的情况
    checkFunc = function() {
      files <- list.files()
      if(length(files) == 0) return(0)
      # 计算所有文件修改时间的总和，只要文件增删改，这个值就会变
      sum(file.info(files)$mtime)
    },
    # 获取最新文件列表的函数
    valueFunc = function() {
      list.files()
    }
  )
  
  # 2. 监听文件列表变化，更新selectInput的选项
  observe({
    # 确保文件列表存在（避免空值报错）
    req(file_list())
    updateSelectInput(
      session = session,
      inputId = "file",
      choices = file_list()
    )
  })
}

shinyApp(ui, server)

方式二：用renderUI直接生成响应式选择框

这种方式更直接，在UI里留一个占位的uiOutput，然后在Server里动态生成selectInput：

library(shiny)

ui <- fluidPage(
  # 留一个UI占位符，由Server端动态生成选择框
  uiOutput("file_selector")
)

server <- function(input, output, session) {
  # 1. 同样用reactivePoll创建响应式文件列表
  file_list <- reactivePoll(
    intervalMillis = 1000,
    session = session,
    checkFunc = function() {
      files <- list.files()
      if(length(files) == 0) return(0)
      sum(file.info(files)$mtime)
    },
    valueFunc = function() {
      list.files()
    }
  )
  
  # 2. 动态生成selectInput组件
  output$file_selector <- renderUI({
    selectInput("file", "Choose file", choices = file_list())
  })
}

shinyApp(ui, server)

关键细节说明 #

• 检查函数的优化：我把原来的length(list.files())改成了计算文件修改时间的总和，这样不仅能检测文件数量的变化，还能检测到文件被替换（数量不变但文件内容/修改时间变了）的情况，更鲁棒。
• 间隔时间设置：10毫秒的检查间隔太密集了，会导致App资源占用过高，建议设为1000毫秒（1秒）或者更久，根据你的需求调整。
• req()的使用：req(file_list())用来确保文件列表存在时才执行后续代码，避免空值导致的报错。

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