Отображение карты Leaflet из Shiny pickerInput?

Question

Я думаю, что я неправильно понимаю реактивные / наблюдающие функции .... панель инструментов отображает, но просто пустое место для карты. Не удалось найти много помощи по этой конкретной задаче. Параметр pickerInput определяет analyte, и я хочу использовать это для фильтрации моего набора данных для ввода в analyte_select.

. Любой совет будет принят с благодарностью. Спасибо за чтение моей просьбы!

  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") %>%
      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")
  })

}```