使用R Shiny与ShinyFiles选择本地目录失败：路径未保存

你的代码核心问题是错误地在eventReactive中调用了shinyDirChoose函数——shinyDirChoose本身是用于绑定目录选择按钮与逻辑的函数，不需要在响应式表达式里重复调用。正确的做法是监听目录选择事件，并用parseDirPath解析出实际路径。

修正后的代码如下：

library(shiny)
library(shinyFiles)

ui <- fluidPage(
  shinyDirButton("directory", "Select Directory", "Please select a directory"),
  verbatimTextOutput("selected_directory")
)

server <- function(input, output, session) {
  
  rv <- reactiveValues(directory_path = NULL)
  
  # 设置目录选择的根路径
  shinyDirChoose(input, "directory", roots = c(home = '~'), filetypes = NULL)
  
  # 监听目录选择事件，解析路径并更新变量
  observeEvent(input$directory, {
    if (!is.null(input$directory)) {
      # 解析选中的目录路径
      chosen_dir <- parseDirPath(c(home = '~'), input$directory)
      rv$directory_path <- chosen_dir
    }
  })
  
  output$selected_directory <- renderText({
    paste0("You selected the following path: ", rv$directory_path)
  })
}

shinyApp(ui = ui, server = server)

关键修改点： #

• 把shinyDirChoose放在server函数顶层，一次性完成按钮与选择逻辑的绑定
• 使用observeEvent监听input$directory的变化，替代原有的eventReactive
• 通过parseDirPath将ShinyFiles返回的路径结构转换为可直接使用的字符串路径
• 直接在事件监听中更新reactiveValues的directory_path，无需额外的observe中转

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