是的,可以通过使用htmlwidgets
包中的onRender
函数来实现这一功能。onRender
函数允许您在R中的静态HTML输出中添加自定义JavaScript代码。以下是一个示例:
library(leaflet)
library(htmlwidgets)
# 创建一个leaflet小部件
m <- leaflet() %>%
addTiles() %>%
setView(lng = -95.7129, lat = 37.0902, zoom = 4)
# 创建一个自定义的onRender函数
onRender(m, "
function(el, x) {
// 获取leaflet地图对象
var map = this;
// 获取leaflet地图的容器元素
var container = map.getContainer();
// 添加点击事件监听器
container.addEventListener('click', function(e) {
// 获取点击的经纬度
var latlng = map.mouseEventToLatLng(e);
// 将经纬度传递给R中的回调函数
Shiny.onInputChange('clicked_latlng', [latlng.lat, latlng.lng]);
});
}
")
# 在R中的静态HTML输出中显示leaflet小部件
saveWidget(m, "leaflet_widget.html", selfcontained = TRUE)
在上面的示例中,我们首先创建了一个leaflet小部件,并设置了初始视图。然后,我们使用onRender
函数添加了自定义的JavaScript代码。在这个代码中,我们获取了leaflet地图的容器元素,并为其添加了一个点击事件监听器。当用户点击地图时,我们将点击的经纬度传递给R中的回调函数。
最后,我们使用saveWidget
函数将leaflet小部件保存为静态HTML文件。您可以将此文件嵌入到您的网页中,以便用户可以与地图交互并将点击的经纬度传递给R进行进一步处理。
没有搜到相关的沙龙
领取专属 10元无门槛券
手把手带您无忧上云