How do I change the color of the map while changing the range of range slider in shiny dashboard?

Question

Here is my code

library(shiny)
library(leaflet)
#Label
bins <- c(0,3,60,1000)
pal <- colorBin(c("green", "orange", "red"),