R中Leaflet无Shiny添加滑块不显示，是否需knitr或存为HTML？

问题描述 #

我参考Stack Overflow上的《R Leaflet: Add a Range Slider to Filter Markers without Shiny》帖子，复制运行以下代码：

library( crosstalk )
library( leaflet )
library( dplyr )

data <- data.frame(id = c(1,2,3,4,5),
                   lat= c(50.9, 50.8, 50.5, 50.5, 51),
                   lon = c(-0.7, -0.92, -1, -0.8, -0.9),
                   date = c("2020-06-01", "2020-05-07", "2020-03-24", "2020-04-01", "2020-05-26"))

data <- data %>% dplyr::mutate( date2 = as.numeric( as.Date( date ) ),
                                date3 = as.Date( date )
                                )

shared_data <- SharedData$new( data )

filter_slider("date", "Date", shared_data, ~date3, width = "100%")
leaflet(shared_data, width = "100%", height = 800) %>%
  leaflet::addTiles() %>%
  leaflet::addMarkers() 

运行后生成的地图缺失滑块，想请教原因：是否需要安装knitr包？或是必须将地图保存为HTML文件滑块才会显示？

原因分析与解决办法 #

• 核心原因：crosstalk的交互组件（如filter_slider）和leaflet地图需要处于同一HTML渲染环境才能实现联动。在RStudio普通控制台直接逐行运行代码时，滑块和地图会被分别输出，二者无法建立关联，因此地图页面看不到滑块。
• 关于knitr：不需要额外安装knitr。但如果是在R Markdown文档中运行代码，knitr会自动处理crosstalk组件的渲染逻辑，此时滑块和地图会正常显示在同一页面中。
• 是否必须保存为HTML：是的。如果在普通R脚本中运行，必须将滑块和地图打包后保存为HTML文件，才能看到完整的交互效果。可以借助htmltools包的tagList()将两者绑定，再用save_html()导出：

修改后的可运行代码 #

library(crosstalk)
library(leaflet)
library(dplyr)
library(htmltools)

data <- data.frame(id = c(1,2,3,4,5),
                   lat= c(50.9, 50.8, 50.5, 50.5, 51),
                   lon = c(-0.7, -0.92, -1, -0.8, -0.9),
                   date = c("2020-06-01", "2020-05-07", "2020-03-24", "2020-04-01", "2020-05-26"))

data <- data %>% mutate(date2 = as.numeric(as.Date(date)),
                        date3 = as.Date(date))

shared_data <- SharedData$new(data)

# 用tagList打包滑块与地图，确保二者处于同一渲染环境
output <- tagList(
  filter_slider("date", "Date", shared_data, ~date3, width = "100%"),
  leaflet(shared_data, width = "100%", height = 800) %>%
    addTiles() %>%
    addMarkers()
)

# 保存为HTML文件
save_html(output, "leaflet_slider_map.html")

运行完成后，打开生成的leaflet_slider_map.html文件，即可看到滑块和可交互的地图，拖动滑块就能实时过滤标记点。

内容的提问来源于stack exchange，提问作者stats_noob