Color Scale in leaflet

[brunnovieira]

Hey guys, trying to scale in color my leaflet map. See what I tried:

raio is the filter that I used to obtain the data I want

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

then I tried to build a reactive pal, since input$cultivoTB1 will change accordingly to the user choice:

      pal <- reactive({
        leaflet::colorBin("YlOrRd", domain = raio()[, 3])
      })

then:

 observe({
         leaflet::leafletProxy("bbmap", data = raio) %>% 
         leaflet::clearShapes() %>%           
         leaflet::addPolygons(data = teste,
                            weight = 0.3,
                            opacity = 1,
                            color = "black",
                            **fillColor = ~pal(raio()[, 3])**,
                            popup = stringr::str_c("Município: ",
                            raio()[, 5],
                            br(),
                            "Valor Produzido: R$ ",
                            signif(raio()[, 3]*1000, digits = 5),
                            ",00",
                            br(),
                            "Cultivo: ",
                            input$cultivoTB1,
                            br(),
                            "Ano: ",
                            raio()[, 4]))
})

It seems that fillColor funcion does not work that way... I need some help here. Thanks!