使用shinyFileChoose时无文件夹显示的技术求助

我来帮你搞定这个问题！你遇到的弹出窗口为空的情况，主要有两个核心原因：忘记加载shinyFiles包，以及对parseFilePaths的返回值处理有点小问题。之前用shinyDirButton成功是因为可能你当时加载了相关包，但这次漏掉了。

下面是修正后的完整代码，我会一步步解释修改点：

library(shiny)
library(shinyFiles)  # 关键！必须加载这个包，shinyFilesButton等函数都在这里

ui <- fixedRow(
  shinyFilesButton(
    "blue", 
    "Blue Band File", 
    title = "Please select a file:",  # 改成选文件的提示，更准确
    buttonType = "default", 
    class = NULL, 
    multiple = FALSE
  )
)

server <- function(input, output){
  observe({
    # 配置文件选择的根目录，这里用用户主目录
    shinyFileChoose(
      input, 
      "blue", 
      roots = c(Home = '~'),  # 根目录的名称可以自定义，方便用户识别
      filetypes = c('', 'txt', 'csv', 'rds')  # 可选：限制可选的文件类型
    )
    
    if(!is.null(input$blue)){
      # parseFilePaths返回的是一个data.frame，需要提取datapath列获取完整路径
      file_info <- parseFilePaths(c(Home = '~'), input$blue)
      myblue <- as.character(file_info$datapath)  # 转换为字符型路径
      
      # 可以打印路径验证是否正确获取
      print(paste("Selected file path:", myblue))
      
      # 这里就可以把myblue作为你的函数输入了
    }
  })
}

shinyApp(ui = ui, server = server)

关键修改点说明： #

• 加载shinyFiles包：这是最容易忽略的点，shiny核心包不包含shinyFilesButton和shinyFileChoose这些函数，必须单独加载shinyFiles包才能正常使用。
• 处理parseFilePaths的返回值：它返回的是一个包含文件信息的data.frame，其中datapath列就是文件的完整路径，需要用$datapath提取并转换为字符型。
• 优化提示文本：把title改成“请选择文件”更符合按钮的功能，避免混淆。
• 可选：限制文件类型：通过filetypes参数可以指定用户只能选择特定类型的文件，比如txt、csv等，让交互更精准。

这样修改后，点击按钮就能正常弹出文件选择窗口，并且可以正确获取到选中文件的完整路径啦！

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