R Leaflet:添加一个范围滑块来过滤没有光泽的标记

library(leaflet)
library(shiny)

# 创建Leaflet地图
map <- leaflet() %>%
  addTiles() %>%
  setView(lng = 0, lat = 0, zoom = 2)

# 创建范围滑块
slider <- sliderInput(inputId = "shinySlider",
                      label = "选择光泽范围：",
                      min = 0, max = 100, value = c(0, 100))

# 响应范围滑块的变化
observe({
  range <- input$shinySlider
  # 根据范围滑块的值过滤标记
  # 这里假设标记的光泽程度存储在一个叫做"glossiness"的字段中
  filtered_markers <- filter_markers_by_glossiness(range[1], range[2])
  # 清除地图上的所有标记
  map %>% clearMarkers()
  # 添加过滤后的标记到地图上
  map %>% addMarkers(data = filtered_markers)
})

# 在Shiny应用程序中显示地图和范围滑块
shinyApp(
  ui = fluidPage(
    fluidRow(
      column(width = 8, leafletOutput("map")),
      column(width = 4, slider)
    )
  ),
  server = function(input, output) {
    output$map <- renderLeaflet(map)
  }
)