单击多边形并将更新()-(使用leaflet R)

library(leaflet)
map <- leaflet() %>%
  addTiles() %>%
  setView(lng = 0, lat = 0, zoom = 2)

polygon <- data.frame(
  lng = c(0, 10, 10, 0),
  lat = c(0, 0, 10, 10)
)
map <- map %>%
  addPolygons(data = polygon)

update_polygon <- function(map, layerId) {
  map$proxy %>% 
    on("click", layerId, function(e) {
      # 处理点击事件
      # 更新多边形或执行其他操作
      # 例如，更新多边形的颜色
      e$target %>% 
        setStyle(fillColor = "red")
    })
}

# 调用函数并传入地图对象和多边形的图层ID
map <- update_polygon(map, layerId = 1)