Shiny应用实现墨西哥地图州单选功能的代码修改问询

你的需求是将当前支持多选的墨西哥州地图改为单选模式——每次点击新州时仅保留当前选中的州，取消之前的选中状态。我们只需要修改observeEvent(input$myMap_shape_click)中的核心逻辑即可实现，下面是具体的修改方案和完整代码：

关键修改点 #

• 不再将点击的州ID追加到列表中，而是直接替换为当前点击的ID：把click.list$ids <- c( click.list$ids, click$id )改为click.list$ids <- click$id
• 每次更新高亮层前，先清除之前的高亮内容，避免旧的选中状态残留：使用clearGroup("highlighted")来管理高亮层（需要给高亮的addPolylines指定group = "highlighted"）
• 简化逻辑判断，因为单选模式下不需要检查是否已存在于列表中

修改后的完整代码 #

# 数据集代码
library(rgdal)
library(leaflet)
tmp <- tempdir()
url <- "http://personal.tcu.edu/kylewalker/data/mexico.zip"
file <- basename(url)
download.file(url, file)
unzip(file, exdir = tmp)
mexico <- readOGR(dsn = tmp, layer = "mexico", encoding = "UTF-8")
pal <- colorQuantile("YlGn", NULL, n = 5)
state_popup <- paste0("<strong>Estado: </strong>", mexico$name, "<br><strong>PIB per c?pita, miles de pesos, 2008: </strong>", mexico$gdp08)

# Shiny应用代码
# load necessary packages
library(leaflet)
library(shiny)
library(shinydashboard)
ui <- fluidPage(
  # place the contents inside a box
  shinydashboard::box(
    width = 12
    , title = "Click on the map!"
    # separate the box by a column
    , column(
      width = 2
      , shiny::actionButton(
        inputId = "clearHighlight"
        , icon = icon( name = "eraser")
        , label = "Clear the Map"
        , style = "color: #fff; background-color: #D75453; border-color: #C73232"
      )
    )
    # separate the box by a column
    , column(
      width = 10
      , leaflet::leafletOutput(
        outputId = "myMap"
        , height = 850
      )
    )
  ) # end of the box
) # end of fluid page

# create the server
server <- function( input, output, session ){
  # create foundational map
  foundational.map <- shiny::reactive({
    leaflet() %>%
      addProviderTiles("CartoDB.Positron") %>%
      addPolygons(
        data = mexico
        , fillOpacity = 0
        , opacity = 0.2
        , color = "#000000"
        , weight = 2
        , layerId = mexico$states
        , group = "click.list"
      )
  })

  output$myMap <- renderLeaflet({
    foundational.map()
  })

  click.list <- shiny::reactiveValues( ids = NULL )

  shiny::observeEvent( input$myMap_shape_click, {
    click <- input$myMap_shape_click
    # 关键修改1：替换为当前点击的ID，而非追加
    click.list$ids <- click$id
    lines.of.interest <- mexico[ which( mexico$states == click.list$ids ) , ]

    if( is.null( click$id ) ){
      req( click$id )
    } else {
      leaflet::leafletProxy( mapId = "myMap" ) %>%
        # 关键修改2：先清除之前的高亮层
        clearGroup("highlighted") %>%
        addPolylines(
          data = lines.of.interest
          , layerId = lines.of.interest@data$id
          , color = "#6cb5bc"
          , weight = 5
          , opacity = 1
          # 给高亮层指定group，方便后续清除
          , group = "highlighted"
        )
    } # end of if else statement
  }) # end of shiny::observeEvent({})

  shiny::observeEvent( input$clearHighlight, {
    output$myMap <- leaflet::renderLeaflet({
      click.list$ids <- NULL
      foundational.map()
    }) # end of re-rendering $myMap
  }) # end of clearHighlight action button logic
} # end of server

shiny::shinyApp( ui = ui, server = server)

代码说明 #

• click.list$ids <- click$id：确保每次点击只保存当前选中的州ID，覆盖之前的内容
• clearGroup("highlighted")：在添加新的高亮层之前，清除所有属于highlighted组的内容，彻底移除之前的选中状态
• 给高亮的addPolylines添加group = "highlighted"标记，让clearGroup可以精准定位并清除旧的高亮层

这样修改后，每次点击地图上的州，都会自动取消之前选中的州，只保留当前点击的州的高亮效果，完全实现单选功能。

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