R闪亮的传单更改标签，无需重绘

Question

我一直试图根据用户输入来更改/更新弹出标签。但是，每次进行更改时都会重新绘制地图。我尝试添加延迟但没有成功。这可能是一个琐碎的问题，但我一直无法解决。

我正在使用SpaitalPolygonsDataFrame作为基础数据。

如果我不清除shapes（），则fillColor会覆盖自身，从而使每个连续的输入都会使fillColor变暗。任何帮助，将不胜感激。

  output$map <- renderLeaflet({
    leaflet(world_spdf) %>%
      addTiles()  %>%
      setView( lat=12.97, lng=77.59 , zoom=3) %>%
      addPolygons( fillColor = Data1$Color_Code, stroke=F, fillOpacity = 0.25)
  })

  observe({
    leafletProxy("map",data = world_spdf) %>%
      clearShapes() %>%
      addPolygons(fillColor = Data1$Color_Code, stroke=F, fillOpacity = 0.25, popup = filteredData1(), smoothFactor = 0.2)
  })