如何提取Shiny的leaflet地图模块server生成的经纬度input值供外部调用

核心问题是Shiny模块默认存在命名空间隔离，模块内部的input对象无法直接在模块外部访问，需要将经纬度封装为响应式返回值从模块导出即可解决，同时可以优化地图更新逻辑提升性能。

核心修改点 #

• 使用leafletProxy更新地图标记，避免每次点击全量重绘地图
• 模块服务端新增响应式返回值，存储当前点击的经纬度坐标
• 主服务端调用模块时接收返回的响应式对象，即可在任意render*函数或其他模块中复用坐标值

完整可运行代码 #

# clickable leaflet module ----------------------------------------------------------
library(leaflet)
library(shiny)

## ui function
clicMapOutput <- function(id) {
  ns <- NS(id)
  tagList(
    leafletOutput(ns("mymap")),
    textOutput(ns("text"))
  )
}

## server function
clicMapServer <- function(id) {
  moduleServer(id, function(input, output, session) {
    # 存储点击坐标的响应式变量
    coords <- reactiveValues(lat = NULL, lng = NULL)
    
    # 初始化地图
    output$mymap <- renderLeaflet({
      leaflet() %>% 
        addTiles() %>% 
        setView(lat = 0, lng = 0, zoom = 2)
    })
    
    # 监听地图点击事件
    observeEvent(input$mymap_click, {
      coords$lat <- input$mymap_click$lat[1]
      coords$lng <- input$mymap_click$lng[1]
      # 局部更新地图，仅调整标记
      leafletProxy("mymap", session) %>%
        clearMarkers() %>%
        addMarkers(lat = coords$lat, lng = coords$lng)
    })
    
    # 返回响应式坐标，供外部调用
    return(reactive(list(
      lat = coords$lat,
      lng = coords$lng
    )))
  })
}

# 调用模块 ---------------------------------------------------------
ui <- fluidPage(
  clicMapOutput("map"),
  textOutput("lng")
)

server <- function(input, output, session) {
  # 接收模块返回的坐标
  map_coords <- clicMapServer("map")
  
  output$lng <- renderText({
    # 调用响应式值需要加()
    map_coords()$lng
  })
}

shinyApp(ui = ui, server = server)

使用说明 #

如果需要在其他模块中复用坐标，只需要将map_coords作为参数传入对应自定义模块即可，坐标会随地图点击实时更新。

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