有没有一种方法可以让leaflet小部件形状可以通过编织点击到R中的静态HTML输出？

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)