r - R 闪亮的 leafet 串扰，在地图上按框选择或单击

Question

根据下面的代码（来源在这里https://rstudio.github.io/crosstalk/，可以使用传单上的选择框过滤 data.table。但是也可以通过单击来过滤表格标记？

---

标题：斐济地震输出：html_document

library(crosstalk)
library(leaflet)
library(DT)

# Wrap data frame in SharedData
sd <- SharedData$new(quakes[sample(nrow(quakes), 100),])

# Create a filter input
filter_slider("mag", "Magnitude", sd, column=~mag, step=0.1, width=250)

# Use SharedData like a dataframe with Crosstalk-enabled widgets
bscols(
  leaflet(sd) %>% addTiles() %>% addMarkers(),
  datatable(sd, extensions="Scroller", style="bootstrap", class="compact", width="100%",
    options=list(deferRender=TRUE, scrollY=300, scroller=TRUE))
)

谢谢