Как я могу использовать ввод Shiny UI в цветовой палитре маркеров карты Leaflet?

Question

Мои данные взяты из pickerInput (), выпадающего списка с флажками, который определяет список внутри input$analyte

Мне нужна цветовая палитра, чтобы обновить нижнюю и верхнюю границы выбора ввода.

Я пытался использовать несколько способов обернуть reactive() и observe() вокруг моего кода, который безупречно работает за пределами Shiny. Насколько я понимаю, я должен использовать как минимум reactive() каждый раз, когда я вызываю входные данные

Код ниже возвращает Error: no applicable method for 'rescale' applied to an object of class "formula"

server <- function(input, output) {
  analytes_select <- reactive({
    gulfcoast %>% 
      filter(ParameterDescription %in% input$analyte)})

  x <- colorRampPalette(c("red", "black"))(10)
  observe({
    req(input$analytes_select)
    pal <- colorNumeric(palette = x, domain = c(min((input$analytes_select)$WellDepth):max((input$analytes_select)$WellDepth)))
  })


  #pallete=rColorBrewer list
  output$map <- leaflet::renderLeaflet({analytes_select() %>%
      leaflet() %>%
      addProviderTiles("CartoDB") %>%
      #addMarkers(lng = gulfcoast$LongitudeDD, lat = gulfcoast$LatitudeDD, popup = gulfcoast$ParameterValueStr) %>%
      #fitbounds(lng1=min(gulfcoast$LongitudeDD), lat1=max(gulfcoast$LatitudeDD), lng2=max(gulfcoast$LongitudeDD), lat2=min(gulfcoast$LatitudeDD))
      setView(lng=-95.363187, lat=29.755996, zoom=10) %>%
      clearMarkers()%>%
      addCircleMarkers(lng=~LongitudeDD, lat=~LatitudeDD, radius=~ParameterValue, color=pal(~WellDepth), stroke=FALSE, fillOpacity=0.5 , popup=~paste0(~ParameterDescription,"</br>", "Conc.: ", ~ParameterFlag, ~ParameterValue, " ug/L")) %>%
      addLegend(pal = pal, values=c(min(~WellDepth):max(~WellDepth)), opacity=1, title="Well Depth", position="topright")
  })

}```