Shiny Leaflet - 高亮多边形

Question

我有一个简单的闪亮应用程序，只有一个列出阿富汗地区的下拉列表和一个相同的传单地图。

可以通过link 访问形状文件 - 使用来自http://www.gadm.org/download 的 AFG_adm2.shp

这是应用程序代码：

library(shiny)
library(leaflet)
library(rgdal)
library(sp)

afg <- readOGR(dsn = "data", layer ="AFG_adm2", verbose = FALSE, stringsAsFactors = FALSE)

ui <- fluidPage(
    titlePanel("Test App"),
    selectInput("yours", choices = c("",afg$NAME_2), label = "Select Country:"),
    leafletOutput("mymap")

)

server <- function(input, output){
  output$mymap <- renderLeaflet({
    leaflet(afg) %>% #addTiles() %>%
       addPolylines(stroke=TRUE, color = "#00000", weight = 1) 
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

我想要这样的功能：当我从下拉列表中选择一个地区时，该地区的边框填充会发生变化，并且 setView 函数会将该地区置于焦点。有人可以帮我写代码吗？我看过this 的帖子，但不太明白。

Answer 1

当用户选择一个地区时，您可以使用leafletProxy 更改地图。您可以在之前绘制的多边形之上添加一个稍厚的红色多边形以突出显示它，并使用setView 移动视图。

这是我要补充的：

proxy <- leafletProxy("mymap")

  observe({
    if(input$yours!=""){
      #get the selected polygon and extract the label point 
      selected_polygon <- subset(afg,afg$NAME_2==input$yours)
      polygon_labelPt <- selected_polygon@polygons[[1]]@labpt

      #remove any previously highlighted polygon
      proxy %>% removeShape("highlighted_polygon")

      #center the view on the polygon 
      proxy %>% setView(lng=polygon_labelPt[1],lat=polygon_labelPt[2],zoom=7)

      #add a slightly thicker red polygon on top of the selected one
      proxy %>% addPolylines(stroke=TRUE, weight = 2,color="red",data=selected_polygon,group="highlighted_polygon")
    }
  })
}