如何在Shinyio中添加文件夹批量上传文件？本地部署异常求助

这个问题的核心原因很直白：当你把应用部署到Shiny.io后，shinyDirChoose是在Shiny.io云端服务器的文件系统里查找目录，而不是你自己电脑的本地文件夹。毕竟你的代码现在运行在远程服务器上，它根本没有权限访问用户本地的文件系统，所以看不到本地文件夹是正常的权限限制导致的。

既然你的需求是批量上传近30个本地文件，我推荐以下几种靠谱的方案：

方案1：用Shiny原生fileInput实现批量上传 #

这是最稳定、兼容性最好的方式，只需要给fileInput加上multiple = TRUE参数，用户就能一次性选中多个本地文件上传。示例代码如下：

UI 代码 #

ui <- fluidPage(
  fileInput("batch_upload", "选择要上传的文件",
            multiple = TRUE,
            accept = c("text/csv", "text/comma-separated-values", ".csv") # 这里可以根据你的文件类型调整，比如改成".xlsx"等
            ),
  # 可选：显示已上传的文件列表，方便用户确认
  tableOutput("uploaded_file_list")
)

服务器端代码 #

server <- function(input, output) {
  # 处理上传的文件
  uploaded_data <- reactive({
    req(input$batch_upload) # 确保用户已经选择了文件
    # 循环读取每个上传的文件，这里以CSV为例，你可以换成read_excel等对应函数
    lapply(input$batch_upload$datapath, function(file_path) {
      read.csv(file_path)
    })
  })
  
  # 显示上传的文件名列表
  output$uploaded_file_list <- renderTable({
    req(input$batch_upload)
    data.frame(已上传文件名 = input$batch_upload$name)
  })
}

shinyApp(ui, server)

方案2：继续用shinyFiles但改用客户端文件选择 #

如果你习惯用shinyFiles包，可以替换成shinyFileChoose（客户端文件选择），它能让用户在本地选择多个文件，而不是访问服务器目录。示例代码如下：

UI 代码 #

library(shiny)
library(shinyFiles)

ui <- fluidPage(
  shinyFilesButton("batch_files", "选择本地文件", "请选择要上传的文件", multiple = TRUE),
  tableOutput("selected_file_list")
)

服务器端代码 #

server <- function(input, output, session) {
  # 设置用户本地的根目录作为选择起点
  roots <- c(个人文件夹 = fs::path_home(), "我的电脑" = "/")
  shinyFileChoose(input, "batch_files", roots = roots, session = session)
  
  # 解析用户选中的文件信息
  selected_files <- reactive({
    req(input$batch_files)
    parseFilePaths(roots, input$batch_files)
  })
  
  # 显示选中的文件列表
  output$selected_file_list <- renderTable({
    selected_files()
  })
  
  # 处理文件内容（这里可以根据你的需求修改逻辑）
  observe({
    files <- selected_files()
    if(nrow(files) > 0) {
      for(i in 1:nrow(files)) {
        local_file_path <- files$datapath[i]
        file_name <- files$name[i]
        # 读取文件内容，比如CSV格式
        file_content <- read.csv(local_file_path)
        # 后续可以做数据处理、保存到服务器等操作
      }
    }
  })
}

shinyApp(ui, server)

额外小技巧：上传整个文件夹（浏览器依赖） #

如果你的需求是上传整个文件夹里的所有文件，部分现代浏览器支持fileInput的webkitdirectory = TRUE参数，用户可以直接选择文件夹，应用会自动获取文件夹下的所有文件：

fileInput("folder_upload", "选择要上传的文件夹", webkitdirectory = TRUE)

这种方式下，input$folder_upload会包含该文件夹下所有文件的信息，处理逻辑和批量文件上传一致。

部署到Shiny.io的应用永远无法直接访问用户本地的文件夹路径，只能通过文件上传组件让用户主动选择文件，把文件内容传输到服务器端处理。这是出于安全性和环境隔离的考虑，所有云端Shiny应用都遵循这个规则。

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