Shiny中leafpm交互编辑因R会话差异无法识别数据框

问题根源 #

报错cbind: inherits(y, "data.frame") is not TRUE的核心原因是leaflet包版本更新后，绘制的多边形坐标嵌套结构发生了变化。正常运行机器使用leaflet_2.1.1，报错机器使用leaflet_2.2.0——新版本中input$MAP_draw_new_feature$geometry$coordinates的嵌套层级更深，原代码依赖旧版本的两层嵌套结构，直接用do.call(cbind)解析时会传入非预期的对象，触发错误。

修复方案 #

方案1：直接用sf解析GeoJSON（推荐） #

无需手动解析坐标，sf可以直接将leaflet返回的绘制特征转换为简单要素对象，彻底避免版本差异问题：

替换原代码中手动解析坐标并创建sf对象的段落：

# 原问题代码（存在版本兼容问题）
coords$dtf<-data.frame(do.call(rbind, do.call(cbind,input$MAP_draw_new_feature$geometry$coordinates)))
colnames(coords$dtf)<-c("long", "lat")
sfp <- coords$dtf %>%
  st_as_sf(coords = c("long", "lat"), crs = 4326) %>%
  summarise(geometry = st_combine(geometry)) %>%
  st_cast("POLYGON") %>% st_transform(crs=6557)

# 替换为：
sfp <- st_as_sf(input$MAP_draw_new_feature) %>% 
  st_transform(crs = 6557)

方案2：兼容坐标嵌套结构 #

如果需要保留手动解析逻辑，使用purrr::flatten展平嵌套列表，适配不同版本的坐标结构：

# 先加载purrr包（未安装则先运行install.packages("purrr")）
library(purrr)

coords_list <- input$MAP_draw_new_feature$geometry$coordinates
# 展平嵌套列表，提取顶点向量集合
coords_flat <- flatten(coords_list)
# 转换为数据框
coords$dtf <- data.frame(do.call(rbind, coords_flat))
colnames(coords$dtf)<-c("long", "lat")

# 后续创建sf对象的代码保持不变
sfp <- coords$dtf %>%
  st_as_sf(coords = c("long", "lat"), crs = 4326) %>%
  summarise(geometry = st_combine(geometry)) %>%
  st_cast("POLYGON") %>% st_transform(crs=6557)

额外优化建议 #

1. 移除冗余的reactive嵌套：原代码在observeEvent内部定义reactive是不必要的，直接执行逻辑并赋值即可：

observeEvent(input$MAP_draw_new_feature, {
  req(input$BIO)
  
  # 直接执行逻辑，无需reactive包裹
  sfp <- st_as_sf(input$MAP_draw_new_feature) %>% 
    st_transform(crs = 6557)
  
  if(input$BIO=="All Biometrics"){
    tmp<-lapply(rastdf$paths, rast)
    bio_ras$biom<-rast(tmp)
  } else{ 
    bio_ras$biom<-rast(rastdf$paths[rastdf$Bio==input$BIO])
  }  
  fnx<-function(x){
    themean<-mean(x, na.rm=TRUE)
    thesd<-sqrt(var(x, na.rm=TRUE))
    out<-list(mean=round(themean,2), sd=round(thesd,2))
    return(out)
  }
  shapevect<-sfp
  poly$out <- st_as_sf(extract(bio_ras$biom, shapevect, fnx, bind=TRUE))
})

2. 统一包版本：如果需要多机器同步运行，建议用renv管理包版本，确保所有机器的包版本与正常运行机器一致。

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