如何在选中addRasterImage()所在分组时将视图移至其中心坐标？

要实现选中"Landsat"分组时自动将视图定位到对应图像中心，你可以借助htmlwidgets::onRender()给leaflet地图添加JavaScript事件监听，捕捉图层切换动作并触发视图调整。具体实现如下：

1. 预计算栅格图像的中心坐标与缩放级别 #

先从栅格数据中提取范围，计算中心经纬度，同时估算合适的缩放级别（也可以用自动适配范围的方式，这里以固定缩放为例）：

library(RStoolbox)
library(terra)
library(leaflet)
library(htmlwidgets)

# 加载并投影栅格数据
B4  <- project(rast(system.file("external/landsat/LT52240631988227CUB02_B4.TIF", package="RStoolbox")), "EPSG:4326")

# 计算栅格的中心经纬度
b4_ext <- ext(B4)
center_lng <- (b4_ext$xmin + b4_ext$xmax)/2
center_lat <- (b4_ext$ymin + b4_ext$ymax)/2
# 根据图像大小估算合适的缩放级别（可按需调整）
target_zoom <- 12

2. 添加图层切换事件监听 #

在原leaflet代码基础上，通过onRender()注入JS代码，监听基础图层切换事件，当选中目标分组时触发视图跳转：

leaflet() %>% 
  setView(lng = -50.5, lat=-3.4 , zoom = 9) %>%
  addTiles(group = "OSM") %>% 
  addProviderTiles(providers$Esri.WorldImagery, group = "Satview") %>%
  addRasterImage(B4, group = "Landsat") %>% 
  addLayersControl(
    baseGroups = c("Satview","Landsat", "OSM"),
    options = layersControlOptions(collapsed = FALSE, autoZIndex = TRUE)) %>%
  # 注入JS监听图层切换事件
  onRender("
    function(el, x) {
      var map = this;
      // 监听基础图层切换事件
      map.on('baselayerchange', function(e) {
        // 判断是否切换到Landsat分组
        if (e.name === 'Landsat') {
          // 跳转到预计算的中心位置与缩放级别
          map.setView([", center_lat, ",", center_lng, "], ", target_zoom, ");
          // 如果想要自动适配图像范围，可替换为下面一行：
          // map.fitBounds([", b4_ext$ymin, ",", b4_ext$xmin, "], [", b4_ext$ymax, ",", b4_ext$xmax, "]);
        }
      });
    }
  ")

关键说明 #

• baselayerchange是leaflet内置的基础图层切换事件，每次切换分组时都会触发；
• 通过e.name可以获取当前选中的分组名称，以此判断是否需要触发视图调整；
• 若不需要固定缩放级别，可将setView替换为fitBounds，让地图自动适配栅格的完整范围。

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