Shiny 如何在单张图中制作反应性色标

在传单中构建一张地图，其中颜色比例会随着输入而变化

server <- function(input, output){

      raio <- shiny::reactive({ as.data.frame(agrocorrigidoMGBA %>% 
                                                dplyr::select(lat, lon, input$cultivoTB1, ANO, MUNICIPIO, ESTADO) %>% 
                                                dplyr::filter(ANO == input$anoTB1pizza, ESTADO == "MG"))
      })

结果是：

Warning: Error in UseMethod: metod not appliable to 'metaData' aplied to a object of class "c('sfc_MULTIPOLYGON', 'sfc')"

当我不使用fillColor时，应用程序运行完美，但没有颜色缩放。 求求你，这里需要帮助

 observe({
         leaflet::leafletProxy("bbmap", data = raio) %>% 
         leaflet::clearShapes() %>%
         leaflet::addPolylines(data = poliMG$geom, weight = 0.5, color = "black") %>%
         leaflet::addPolygons(data = teste,
                              weight = 0.3,
                              opacity = 2,
                              color = "black",
                              fillColor =  ~pal()
                              )
}
)

Warning: Error in UseMethod: metod not appliable to 'metaData' aplied to a object of class "c('sfc_MULTIPOLYGON', 'sfc')"