Shiny应用报错：无法找到Zipcodes_Poly对象的排查求助

你遇到的Cannot open "Zipcodes_Poly"错误，核心原因是read_sf("Zipcodes_Poly")的调用方式或文件路径存在问题，结合你的代码和描述，具体排查与修复方案如下：

1. 修正read_sf的文件读取逻辑 #

你提到Zipcodes_Poly在全局环境中，但Shiny的server函数是独立运行的，不会自动调用全局环境中的对象，且你这里主动用read_sf读取文件，必须保证文件路径和格式正确：

• 如果是Shapefile：确保工作目录下存在完整的shapefile文件组（.shp、.shx、.dbf等），且read_sf要指定完整的.shp文件名：

  Zipcodes_Poly <- read_sf("Zipcodes_Poly.shp")
  

• 如果是RDS/RData格式：不要用read_sf，改用对应加载方式：

  # RDS格式
  Zipcodes_Poly <- readRDS("Zipcodes_Poly.rds")
  # RData格式
  load("Zipcodes_Poly.RData") # 注意加载后对象名需与保存时一致
  

2. 验证工作目录是否正确 #

在server函数开头添加一行代码，运行Shiny后查看控制台输出的工作目录，确认你的数据文件确实在该目录下：

shinyServer(function(input, output) {
  print(getwd()) # 打印当前工作目录
  # 后续代码...
})

3. 修正leaflet地图的数据源错误 #

你的代码中用leaflet(Zipcodes_Poly)创建地图，但颜色映射~nicecolors(group)依赖的是合并后的zip_merge数据，会导致找不到group列，需修改为：

# Create the leaflet map object
map <- leaflet(zip_merge) %>% 
  fitBounds(-124, 34, -62, 40) %>%
  addProviderTiles("CartoDB.Positron") %>%
  addPolygons(stroke = TRUE, smoothFactor = 0.2, fillOpacity = .8,
              color = ~nicecolors(group), popup = zip_popup)

4. 避免依赖全局环境 #

Shiny应用每次启动新会话时，server函数都会重新执行，全局环境中的对象无法被稳定调用。建议将需要的数据集提前保存到工作目录，在server内直接加载。

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