如何让Shiny中自定义的Leaflet地图函数实现响应式？

你的问题核心是自定义函数未建立响应式依赖：调用create_leaflet_map(df = place_data())时，place_data()会立即计算出当前选中地点的静态数据，而renderLeaflet内部并未监听place_data这个响应式对象的变化，因此后续输入修改时，地图不会重新渲染。

下面是两种可行的修正方案：

方案一：让函数接收响应式对象并建立依赖 #

修改自定义函数，使其接受响应式对象本身，在renderLeaflet内部调用响应式取值，以此建立依赖关系：

library(shiny)
library(leaflet)

# 修改后的地图生成函数：接收响应式对象
create_leaflet_map <- function(reactive_df) {
  renderLeaflet({
    # 在这里调用响应式，触发依赖监听
    df <- reactive_df()
    leaflet() %>%
      addMarkers(df$lon, df$lat) %>%
      addTiles()
  })
}

# 测试数据
places_data <- data.frame(name = c('Paris','London'),
                         lat = c(48.9,51.5),
                         lon = c(2.34,-0.12))

# UI部分不变
ui <- fluidPage(
  fluidRow(
    column(12,
           selectizeInput(inputId = 'place', label = "Pick place:", choices = c('Paris', 'London'))
           )
  ),
  fluidRow(
    column(12, 
           textOutput(outputId = 'place_name'),
           tags$div(
             leafletOutput("mymap", width = 345, height = 345)
           ),
    )
  )
)

server <- function(input, output) {
  place_data <- reactive({subset(places_data, name == input$place)})  

  output$place_name <- renderText(input$place)
  # 传递响应式对象本身，而非它的取值
  output$mymap <- create_leaflet_map(reactive_df = place_data)
}

shinyApp(ui = ui, server = server)

方案二：函数仅生成地图对象，响应式逻辑留在server层 #

这种方式更适合后续复杂逻辑扩展：让自定义函数专注于生成Leaflet地图对象，把响应式监听放在server的renderLeaflet中：

library(shiny)
library(leaflet)

# 修改后的函数：接收普通数据，返回Leaflet对象
create_leaflet_map <- function(df) {
  leaflet() %>%
    addMarkers(df$lon, df$lat) %>%
    addTiles()
}

# 测试数据
places_data <- data.frame(name = c('Paris','London'),
                         lat = c(48.9,51.5),
                         lon = c(2.34,-0.12))

# UI部分不变
ui <- fluidPage(
  fluidRow(
    column(12,
           selectizeInput(inputId = 'place', label = "Pick place:", choices = c('Paris', 'London'))
           )
  ),
  fluidRow(
    column(12, 
           textOutput(outputId = 'place_name'),
           tags$div(
             leafletOutput("mymap", width = 345, height = 345)
           ),
    )
  )
)

server <- function(input, output) {
  place_data <- reactive({subset(places_data, name == input$place)})  

  output$place_name <- renderText(input$place)
  # 在renderLeaflet里调用函数，传递响应式的取值
  output$mymap <- renderLeaflet({
    create_leaflet_map(place_data())
  })
}

shinyApp(ui = ui, server = server)

关键原理 #

Shiny的响应式系统需要明确的依赖触发：只有当render*函数内部直接调用响应式对象（比如reactive()返回的对象）时，才会监听其变化并重新执行。你的原始写法中，响应式的取值在函数外部完成，导致renderLeaflet内部没有依赖，自然不会更新。

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