小编Arm*_*íaz的帖子

我想使用 R 中的串扰制作包含点的地图和响应式热图。如下所示：

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

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

bscols(
  # Create a filter input
  filter_slider("mag", "Magnitude", sd, column=~mag, step=0.1, width=250),
  leaflet(sd) %>% addTiles() %>% addMarkers() %>% addHeatmap())
)

但是，运行代码后可以观察到，这种方式在过滤时并没有得到热图的响应效果

怎样才能达到效果呢？