使用sf库与leaflet在Shiny.io发布时的问题求助

本地运行Leaflet加载Shapefile完全正常，但发布到Shiny.io后报错，自定义多边形能正常显示，说明问题出在Shapefile的加载或部署环节，以下是针对性的解决办法：

可能的原因及解决步骤 #

1. 确认Shapefile的完整配套文件已上传 #

Shapefile不是单个.shp文件，必须包含.shx、.dbf、.prj等配套文件才能正常读取。本地运行时这些文件都在你的DATA文件夹里，但发布到Shiny.io时，要确保整个DATA文件夹的所有相关文件都一起上传，缺一不可。

2. 检查路径和文件名的大小写 #

Shiny.io服务器基于Linux系统，文件名和路径严格区分大小写，而Windows本地环境不区分。比如本地DATA/11_UCPNs_Fin.shp和data/11_ucpns_fin.shp都能识别，但Linux下必须完全匹配代码里的路径和文件名。

3. 添加文件存在性验证，快速定位问题 #

在读取Shapefile前加入验证代码，能明确提示是否是路径或文件缺失问题：

if (!file.exists("DATA/11_UCPNs_Fin.shp")) {
  stop("Shapefile文件不存在，请检查路径和上传情况")
}
UCPN = read_sf("DATA/11_UCPNs_Fin.shp")

4. 将Shapefile转为RData文件，避免多文件依赖 #

可以在本地把读取后的sf对象保存成RData格式，发布时只需要上传这个单一文件，既避免路径问题，又能加快加载速度：

# 本地运行一次，保存对象到RData
save(UCPN, file = "UCPN.RData")

# 发布时的代码改为加载RData
load("UCPN.RData")

5. 调整变量作用域，适配Shiny反应式环境 #

原代码中UCPN_transformado定义在renderLeaflet外部，虽然本地没问题，但Shiny的反应式渲染可能在部署时出现加载顺序问题。建议把坐标转换代码移到渲染函数内部：

output$map <- renderLeaflet({
  UCPN_transformado = st_transform(UCPN, crs = 4326)
  leaflet() %>% 
    addTiles() %>% 
    addPolygons(data = UCPN_transformado)
})

修改后的完整代码示例 #

---
title: "Dashboard Interactivo"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(leaflet)
library(sf)

# 先验证文件是否存在
if (!file.exists("DATA/11_UCPNs_Fin.shp")) {
  stop("Shapefile未找到，请确认路径和所有配套文件已上传")
}
UCPN = read_sf("DATA/11_UCPNs_Fin.shp")

Column {data-width=650} #

Mapa Interactivo #

leafletOutput("map", height = 600)

output$map <- renderLeaflet({
  # 坐标转换移到渲染内部
  UCPN_transformado = st_transform(UCPN, crs = 4326)
  leaflet() %>% 
    addTiles() %>% 
    addPolygons(data = UCPN_transformado)
})

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