r - 通过单击图例选择或突出显示 map 上的数据

是否可以通过单击Rshiny中的图例来选择或突出显示传单地图上的数据？
示例代码:

library(shiny)
library(leaflet)
library(RColorBrewer)
library(leafletGeocoderRshiny)

ui <- fluidPage(
  leafletOutput("map"),
  p(),
  actionButton("recalc", "New points")
)

server <- function(input, output, session) {

  df = data.frame(x = rnorm(100), y = rexp(100, 2), z = runif(100))
  pal = colorBin('PuOr', df$z, bins = c(0, .1, .4, .9, 1))

  output$map <- renderLeaflet({ leaflet(df) %>%
    addCircleMarkers(~x, ~y, color = ~pal(z)) %>%
    addLegend(pal = pal, values = ~z)
  })

}

shinyApp(ui, server)

最佳答案

mapedit软件包的最新更新(0.2)可能会有所帮助:http://r-spatial.org/r/2017/06/09/mapedit_0-2-0.html