Shiny应用开发问题：将sf对象打包为带子文件夹的ZIP格式SHP文件

以下是修正后的完整代码，可实现将sf对象导出为SHP文件并打包到ZIP的mygeometry子文件夹中（目录结构：myzip/mygeometry/myshape.shp）：

library(shiny)
library(sf)
library(zip) # 需要确保安装了zip包

# 创建sf对象
data <- data.frame(
  x = c(1, 2, 3),
  y = c(4, 5, 6)
)
colnames(data) <- c("x", "y")
sf_object <- st_as_sf(data, coords = c("x", "y"))

ui <- fluidPage(
  titlePanel("Download zip"),
  mainPanel(
    downloadButton("downloadData", label = "Download")
  )
)

server <- function(input, output, session){
  output$downloadData <- downloadHandler(
    filename = function() {
      paste("myzip", "zip", sep = ".")
    },
    content = function(fname) {
      tmpdir <- tempdir()
      # 创建目标子文件夹
      subdir <- file.path(tmpdir, "mygeometry")
      dir.create(subdir, recursive = TRUE, showWarnings = FALSE)
      
      # 定义SHP文件路径（子文件夹内）
      shp_path <- file.path(subdir, "myshape.shp")
      # 写入sf对象到SHP文件
      st_write(sf_object, shp_path, delete_layer = TRUE)
      
      # 收集子文件夹内所有SHP相关文件
      shp_files <- list.files(subdir, full.names = TRUE)
      # 压缩文件，保留子文件夹结构
      zip(zipfile = fname, files = shp_files, root = tmpdir)
    },
    contentType = "application/zip"
  )
}

# 运行应用
shinyApp(ui = ui, server = server)

关键修改说明 #

• 创建子文件夹：通过dir.create在临时目录下生成mygeometry文件夹，确保导出的SHP文件有指定的存放路径
• 完整导出SHP文件：SHP格式包含多个附属文件（.shx/.dbf/.prj等），使用list.files收集子文件夹内所有相关文件，避免缺失导致文件无法读取
• 保留目录结构：使用zip函数的root参数，将临时目录设为根目录，这样压缩后的文件会保留mygeometry/的层级结构
• 避免工作目录混乱：移除不必要的setwd操作，全程使用绝对路径指定文件位置

原代码问题总结 #

1. 错误地将sf对象加入压缩文件列表，而非实际的文件路径
2. 未创建目标子文件夹，导致SHP文件直接存放在临时根目录
3. 仅指定单个.shp文件，忽略了SHP格式必需的附属文件，导出的文件无法正常使用

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