Shiny中Leaflet标记点击事件仅首次生效问题求助

你遇到的标记点击事件失效问题，根源在于通过renderUI动态移除并重建leafletOutput组件时，Shiny的输入事件绑定机制会出现异常。第一次渲染地图时，input$leafletmap_marker_click的观察者能正常监听点击事件；但当地图被移除后，对应的输入对象会被销毁，重新添加地图后，即便组件ID相同，新地图的点击事件也无法被已初始化的观察者正确捕获。

推荐使用conditionalPanel控制地图的显示/隐藏，而非动态创建/销毁组件。这种方式下，地图元素始终存在于DOM中，仅在不需要时隐藏，彻底避免了输入绑定失效的问题。

修改后的完整代码 #

library(shiny)
library(leaflet)
library(datasets)

ui <- fluidPage(
  fluidRow(
    column(width = 4, 
           actionButton("reorganize_button", "Reorganize")
    ),
    column(width = 8,
           # 根据按钮点击次数判断是否显示地图：偶数次显示，奇数次隐藏
           conditionalPanel(
             condition = "input.reorganize_button % 2 == 0",
             leafletOutput("leafletmap")
           )
    )
  )
)

server <- function(input, output, session) {
  
  output$leafletmap <- renderLeaflet({
    quakes$region <- factor(quakes$long >= 175, labels = c("Ouest", "Est"))
    quake_couleur <- colorFactor(c("blue", "red"), domain = c("Est", "Ouest"))
    
    leaflet() %>%
      addTiles() %>%
      addCircleMarkers(
        lng = quakes$long,
        lat = quakes$lat,
        color = quake_couleur(quakes$region),
        popup = paste("Latitude:", quakes$lat, ", longitude:", quakes$long),
        label = paste("Magnitude", quakes$mag),
        radius = quakes$depth/100 
      ) %>%
      addProviderTiles(providers$Stamen.Watercolor)
  })
  
  observeEvent(input$leafletmap_marker_click, {
    click <- input$leafletmap_marker_click
    print(click)
  })
}

shinyApp(ui, server)

备选方案（保留renderUI的场景） #

如果必须使用renderUI动态生成组件，可以通过动态绑定观察者的方式解决。每次地图重新渲染时，重新创建监听点击事件的观察者：

library(shiny)
library(leaflet)
library(datasets)

ui <- fluidPage(
  uiOutput("map")
)

server <- function(input, output, session) {
  
  values <- reactiveValues(reorganize = FALSE)
  
  output$map <- renderUI(
    if (values$reorganize) {
      fluidRow(
        column(width = 4, actionButton("reorganize_button", "Reorganize"))
      )
    } else {
      fluidRow(
        column(width = 4, actionButton("reorganize_button", "Reorganize")),
        column(width = 8, leafletOutput("leafletmap"))
      )
    }
  )
  
  observeEvent(input$reorganize_button, {
    values$reorganize <- !values$reorganize
  })
  
  output$leafletmap <- renderLeaflet({
    quakes$region <- factor(quakes$long >= 175, labels = c("Ouest", "Est"))
    quake_couleur <- colorFactor(c("blue", "red"), domain = c("Est", "Ouest"))
    
    leaflet() %>%
      addTiles() %>%
      addCircleMarkers(
        lng = quakes$long,
        lat = quakes$lat,
        color = quake_couleur(quakes$region),
        popup = paste("Latitude:", quakes$lat, ", longitude:", quakes$long),
        label = paste("Magnitude", quakes$mag),
        radius = quakes$depth/100 
      ) %>%
      addProviderTiles(providers$Stamen.Watercolor)
  })
  
  # 动态创建观察者，仅当地图显示时生效
  observe({
    if (!values$reorganize) {
      # 使用ignoreInit避免初始化时触发
      observeEvent(input$leafletmap_marker_click, {
        click <- input$leafletmap_marker_click
        print(click)
      }, ignoreInit = TRUE, once = FALSE)
    }
  })
}

shinyApp(ui, server)

注：备选方案需注意观察者的重复创建问题，实际使用中优先推荐conditionalPanel方案，代码更简洁稳定。

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