如何在R Shiny中设置用户上传文件的自定义保存路径

R Shiny自定义上传文件存储路径解决方案 #

你只需修改file.copy的to参数为指定目标路径即可，建议提前判断存储目录是否存在，避免写入报错，完整修改后的代码如下：

library(shiny) 

# 自定义存储路径，可替换为你需要的实际路径，Windows示例："C:/Users/xxx/Documents/shiny_upload"，Linux/macOS示例："/home/xxx/shiny_upload"
custom_save_dir <- "shiny_upload_files"

# 路径不存在则自动创建
if (!dir.exists(custom_save_dir)) {
  dir.create(custom_save_dir, recursive = TRUE)
}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      fileInput('file1', '选择要上传的文件' )  
    ),
    mainPanel(
      h4('已上传文件列表：'),
      verbatimTextOutput('fileList')
    )
  ))
)

server <- shinyServer(function(input, output) {
  observe({  
    if (is.null(input$file1)) {
      return(NULL)
    }
    # 拼接自定义路径和重命名后的文件名
    target_path <- file.path(custom_save_dir, paste0('userFile_', input$file1$name))
    file.copy(from = input$file1$datapath, to = target_path) 
  }) 

  output$fileList <- renderText({  
    input$file1
    # 从自定义目录读取文件列表
    dir(custom_save_dir, pattern = 'userFile_') 
  })
})

shinyApp(ui, server)

关键说明 #

• 路径支持两种格式：可以填相对路径（相对于当前Shiny应用的运行目录），也可以填绝对路径，按需调整即可
• 新增的目录自动创建逻辑可以规避目标路径不存在导致的写入失败问题
• 用file.path()拼接路径会自动适配不同操作系统的路径分隔符，兼容性比手动拼接/或\更好

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