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

Question

有没有办法通过单击 Rshiny 中的图例来选择或突出显示传单 map 上的数据？示例代码:

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) 

Answer 1

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