如何在R的Shiny应用中从Dropbox URL读取shapefile？

核心问题原因 #

1. Dropbox URL 不是直接下载链接：你使用的共享URL是Dropbox网页预览链接，而非直接文件下载链接。download.file实际保存的是HTML页面而非zip文件，导致后续解压失败。
2. 服务器文件权限与路径问题：部署到Shiny Server后，应用可能没有默认工作目录的写入权限，直接解压到当前目录会触发权限错误。
3. st_read 参数使用错误：你同时指定dsn="myshapefile.shp"和layer="df"不符合规范——当dsn指向具体.shp文件时，无需额外指定layer；若dsn是文件夹路径，layer应为.shp文件的基础名称（不含后缀）。

解决方案步骤 #

1. 修改Dropbox URL为直接下载链接：将共享URL末尾改为?dl=1（原链接通常以?dl=0结尾），强制触发直接下载。
2. 使用临时目录处理文件：利用R的tempdir()获取服务器可写的临时目录，避免权限冲突。
3. 修正st_read调用：根据解压后的文件路径正确读取shapefile。
4. 确认服务器依赖包：确保Shiny Server已安装sf、leaflet、shiny及其底层依赖（如GDAL库）。

修正后的代码 #

# 加载依赖包
library(sf)
library(leaflet)
library(shiny)

# 定义UI
ui <- fluidPage(
  mainPanel(leafletOutput("map"))
)

# 定义服务器逻辑
server <- function(input, output) {
  # 加载数据（放在server内确保在服务器环境下执行）
  df <- reactive({
    # 创建临时文件路径
    temp_zip <- tempfile(fileext = ".zip")
    temp_dir <- tempdir()
    
    # 下载Dropbox文件（替换为你的直接下载URL）
    download.file(url = "https://www.dropbox.com/myshapefiletodownload/key=1?dl=1", 
                  destfile = temp_zip, mode = "wb")
    
    # 解压到临时目录
    unzip(temp_zip, exdir = temp_dir)
    
    # 读取shapefile（替换为你实际的.shp文件名）
    shp_path <- file.path(temp_dir, "myshapefile.shp")
    st_read(shp_path)
  })
  
  output$map <- renderLeaflet({
    leaflet(df()) %>%
      addTiles() %>%
      addPolygons()
  })
}

# 运行应用
shinyApp(ui, server)

关键说明 #

• 能否绕开下载解压？ 不行。st_read无法直接读取Dropbox的网页预览链接，必须先将文件下载到服务器临时目录再读取。
• 权限问题：tempdir()是服务器环境下处理临时文件的标准方式，无需担心写入权限限制。
• rdrop2替代：无需依赖已停止维护的rdrop2，修改URL为直接下载链接即可满足需求。

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