如何让Shiny Leaflet地图随滑块选中日期更新弹窗显示数据

• 你预先定义的test_map中已经通过addCircles添加了全量数据的静态点位，自带固定写死的全量数据集弹窗。后续动态添加的筛选后点位会被覆盖在下层，点击时实际触发的是初始静态点位的弹窗，自然和滑块选择的日期无关。
• 后续renderLeaflet里动态添加点位时，没有传入popup参数，就算移除了静态点位也不会展示筛选后的对应弹窗。
• 滑块参数匹配错误：你当前sliderInput的初始值为单个日期，但筛选逻辑却用了input$range[1]、input$range[2]的范围取值逻辑，会导致筛选结果不符合预期。

library(tidyverse)
library(leaflet)
library(lubridate)
library(shiny)

# 先定义你代码里缺失的颜色映射函数，可根据需求调整调色板
pal <- colorNumeric(palette = "viridis", domain = AQ_df$severity)

# 预定义地图只保留不变的底图、图例，删掉静态addCircles
test_map <- leaflet(width = "100%") %>%
    setView(lng = -123.2504, lat = 49.2652, zoom = 15) %>%
    addProviderTiles("Esri.WorldStreetMap")  %>%
    addLegend(
        position = "topright",
        pal=pal,
        values=AQ_df$severity,
        title="<strong>PM2.5 (ug/m3)</strong>")

data <- AQ_df
# 提前定义起止日期变量，避免运行报错
startdatetime <- min(AQ_df$date)
enddatetime <- max(AQ_df$date)

ui <- shinyUI(pageWithSidebar(
    headerPanel("Hello Shiny Leaflet with Date range!"),
    sidebarPanel(
        # 调整滑块：如果需要选单日，保留单value；如果需要选日期范围，value设为c(startdatetime, enddatetime)
        sliderInput(
            "range",
            "选择日期",
            min  = as_date(startdatetime),
            max  = as_date(enddatetime),
            value = as.Date(startdatetime),
            timeFormat = "%Y-%m-%d"
        )
    ),
    mainPanel(
        leafletOutput("map")
    )
))

server <- shinyServer(function(input, output) {
    filtered_data <- reactive({
        # 对应单日期选择的筛选逻辑，如果是范围选择请换回date >= input$range[1] & date <= input$range[2]
        data %>% filter(date == input$range)
    })
    
    output$map <- renderLeaflet({
        test_map
    })
    
    # 用leafletProxy动态更新点位，不需要每次重绘整个地图，性能更好
    observeEvent(filtered_data(), {
        leafletProxy("map", data = filtered_data()) %>%
            # 先清除旧的点位，避免新旧叠加
            clearShapes() %>%
            addCircles(
                lng = ~Longitude,
                lat = ~Latitude,
                radius = 30,
                color = 'black',
                fillColor = ~pal(severity),
                fillOpacity = 1,
                weight = 1,
                # 新增弹窗，直接用筛选后的数据集字段
                popup = ~paste0("<strong>ID: </strong>", RAMP_label, "</br>",
                               "<strong>Location: </strong>", RAMP_desc, "</br>",
                               "<strong>PM2.5 (ug/m3): </strong>", PM_RAMP, "</br>",
                               "<strong>Date: </strong>", date)
            )
    })
})

shinyApp(ui, server)

内容的提问来源于stack exchange，提问作者James