已部署Shiny应用如何导入远程CSV文件？

我尝试创建一个可上传CSV数据并处理的Shiny应用（简化示例）。本地运行时，用shinyFilesButton上传本地CSV完全正常，代码如下：

library(shiny)
library(shinyFiles)

ui <- shinyUI(pageWithSidebar(
  headerPanel(
    'Selections with shinyFiles',
    'shinyFiles example'
  ),
  sidebarPanel(
    shinyFilesButton('file', 'File select', 'Please select a file', FALSE)
  ),
  mainPanel(
    tags$h4('The output of a file selection'),
    tableOutput("contents")
  )
))

server <- shinyServer(function(input, output, session) {
  volumes = getVolumes()
  shinyFileChoose(input, 'file',  roots = volumes, filetypes=c('', 'csv'))
  output$contents <- renderTable({
    inFile <- parseFilePaths( roots = volumes, input$file)
    if( NROW(inFile)) {
      df <- read.csv(as.character(inFile$datapath))
    }
  })
})

shinyApp(ui = ui, server = server)

本地运行时能正常显示文件选择结构：

但部署到shinyapps.io后，完全无法找到任何文件：

我理解是应用服务器无法访问本地数据？或者是主目录的问题？该如何解决？怎么在已部署的Shiny应用中处理文件上传？

问题根源 #

shinyFiles的核心定位是访问服务器端的文件系统，而非实现客户端向服务器上传本地文件。本地运行时，你的电脑同时扮演客户端和服务器角色，自然能读取本地文件；但部署到远程服务器（如shinyapps.io）后，服务器无法直接访问你本地电脑的文件系统，这就是报错的核心原因。

修复方案 #

改用Shiny原生的fileInput组件，它专门为客户端上传本地文件到服务器设计，部署后可正常工作。修改后的代码如下：

library(shiny)

ui <- shinyUI(pageWithSidebar(
  headerPanel(
    'CSV文件上传示例',
    'Shiny文件上传演示'
  ),
  sidebarPanel(
    fileInput('file', '选择CSV文件',
              accept = c(
                'text/csv',
                'text/comma-separated-values',
                '.csv'
              ))
  ),
  mainPanel(
    tags$h4('上传的CSV内容'),
    tableOutput("contents")
  )
))

server <- shinyServer(function(input, output) {
  output$contents <- renderTable({
    # 确保用户选择文件后再执行读取逻辑
    req(input$file)
    # 读取服务器临时目录中的上传文件
    df <- read.csv(input$file$datapath)
    df
  })
})

shinyApp(ui = ui, server = server)

关键说明 #

• fileInput会自动将用户本地文件上传到服务器的临时存储目录，通过input$file$datapath可获取文件在服务器上的临时路径，直接读取即可。
• req(input$file)用于避免用户未选择文件时触发报错，保证代码执行的安全性。
• 如果确实需要使用shinyFiles（比如让用户浏览服务器端已有的文件），需提前将文件上传到服务器的指定目录，但这不适用于用户上传本地文件的场景。

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