R Shiny应用文件夹选择组件优化：替代shinyDir提升速度

我刚好碰到过类似的需求，来给你说说可行的方案和你的核心疑问：

首先直接回答你的问题：Windows资源管理器里并没有能让fileInput直接识别的文件夹MIME类型。因为fileInput本质是为选择文件设计的，文件夹不属于文件范畴，没法通过指定MIME类型让它切换到文件夹选择模式。

那想要fileInput级别的速度，同时实现文件夹选择，最靠谱的方式是用原生HTML5的文件夹选择属性，调用系统原生的资源管理器对话框，速度和fileInput一样快，完全避开shinyDirChoose那种慢腾腾的目录树遍历。

具体实现步骤很简单：

1. 在UI中添加自定义文件夹选择器 #

不用Shiny自带的组件，直接写原生HTML输入框，加上webkitdirectory和directory属性（兼容不同浏览器）：

ui <- fluidPage(
  tags$h3("选择输出文件夹"),
  # 自定义文件夹选择输入
  tags$input(
    type = "file",
    id = "output_folder",
    webkitdirectory = "",
    directory = "",
    style = "padding: 8px;"
  ),
  verbatimTextOutput("selected_folder")
)

2. 在Server中提取选中的文件夹路径 #

因为这个原生选择器返回的是文件夹下所有文件的路径列表，我们只需要取第一个文件的父目录就是选中的文件夹：

server <- function(input, output) {
  output$selected_folder <- renderPrint({
    if (!is.null(input$output_folder)) {
      # 提取文件夹路径
      selected_dir <- dirname(input$output_folder$datapath[1])
      cat("选中的文件夹路径：", selected_dir)
      # 这里就可以用selected_dir来保存你的输出文件了
    } else {
      cat("请选择一个文件夹")
    }
  })
}

shinyApp(ui, server)

为什么这个方案速度快？ #

shinyDirChoose慢是因为它是Shiny自己构建的目录树组件，需要实时遍历文件系统的目录结构，遇到大文件夹时加载就会卡顿。而原生HTML的文件夹选择器直接调用Windows资源管理器的原生对话框，和你平时手动打开文件夹的速度完全一致，体验和fileInput几乎没区别。

兼容性说明 #

这个方案在Windows下的Chrome、Edge、Firefox最新版都能正常工作，如果你需要兼容老浏览器可能要做些适配，但大部分现代场景下完全够用。

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