Shiny应用中leafpm多边形编辑异常问题排查

核心问题出在你依赖行名进行匹配替换的逻辑——行名在sf对象的rbind等操作中极易丢失或重置，导致未修改多边形被错误覆盖。改用唯一标识字段+精准替换的方式可以彻底解决这个问题：

关键修复步骤 #

1. 给多边形添加稳定的唯一标识：将每个多边形的layerId（leafpm生成的唯一ID）存储为sf对象的一个字段（比如layer_id），不要依赖行名作为匹配依据。
2. 编辑时精准替换修改的特征：使用dplyr::rows_update按layer_id匹配，只替换被编辑的多边形，未修改的特征完全保留。

具体代码示例 #

初始化存储对象 #

polys <- reactiveValues(
  out = sf::st_sf(
    layer_id = character(),
    geometry = sf::st_sfc(crs = 4326), # 匹配你的地图坐标系
    area = numeric(), # 示例：森林生物特征字段
    # 其他计算字段...
  )
)

处理新多边形绘制 #

observeEvent(input$MAP_draw_created, {
  new_poly <- input$MAP_draw_created$geometry %>%
    sf::st_sfc(crs = 4326) %>%
    sf::st_sf(
      layer_id = input$MAP_draw_created$layerId,
      geometry = .,
      area = sf::st_area(.) # 计算面积示例
      # 其他生物特征计算...
    )
  
  polys$out <- dplyr::bind_rows(polys$out, new_poly)
})

处理多边形编辑（核心修复） #

observeEvent(input$MAP_draw_edited_features, {
  # 提取编辑后的多边形，统一字段名
  edited_polys <- input$MAP_draw_edited_features %>%
    sf::st_as_sf() %>%
    dplyr::rename(layer_id = layerId) %>%
    # 重新计算编辑后的生物特征
    dplyr::mutate(
      area = sf::st_area(geometry)
      # 其他生物特征重计算...
    )
  
  # 精准替换原数据中对应layer_id的记录，未修改的完全保留
  polys$out <- polys$out %>%
    dplyr::rows_update(
      edited_polys,
      by = "layer_id",
      unmatched = "ignore"
    )
})

为什么原来的逻辑会出错？ #

你之前删除旧特征再rbind的方式，会因为sf对象rbind后自动重置行名，导致后续编辑时行名匹配完全混乱，未修改的多边形被错误覆盖。而用layer_id作为稳定标识，结合rows_update精准替换，从根本上避免了行名依赖带来的问题，也不需要中断observeEvent。

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