如何在R Leaflet中正确投影Albers投影的Mapbox切片？

我有一个已设置为Albers投影的Mapbox切片集，但使用R Leaflet时无法让它正确显示为圆锥投影（即美国大陆顶部呈弧形的效果）。我尝试过从基础leaflet地图对象添加切片，也尝试将leaflet的crs选项设置为ESRI 102003，但仍无法得到Albers投影的地图（其他多种尝试此处省略）。

请问如何在我的leaflet地图中保留Mapbox切片的Albers投影？

未设置CRS的代码 #

library(tidyverse)
library(leaflet)
library(mapboxapi)

leaflet() %>% 
  mapboxapi::addMapboxTiles(style_id = "cl9rbsx37000114o3okjal1ej",
                            username = my_mapbox_user, # 需要Mapbox账号和访问令牌才能运行，该样式为公开样式
                            access_token = my_mapbox_token
  ) %>% 
  setView(lat = 39.383333, lng = -101.683333, zoom = 5)

设置ESRI 102003 CRS的代码 #

esri102003 <- leafletCRS(
  code = "ESRI:102003",
  proj4def = "+proj=aea +lat_0=37.5 +lon_0=-96 +lat_1=29.5 +lat_2=45.5 +x_0=0 +y_0=0 +datum=NAD83 +units=m +no_defs +type=crs"
)
leaflet(options = leafletOptions(crs = esri102003)) %>% 
  mapboxapi::addMapboxTiles(style_id = "cl5gziyik000114mvx4palaee",
                            username = "jzadra",
                            access_token = "pk.eyJ1IjoianphZHJhIiwiYSI6ImNrMWwwb29jYzAwaTMzZHBvNzQ2NDE2NGIifQ.26_gaV_TD6T8I0Hz8oM94g"
  ) %>% 
  setView(lat = 39.383333, lng = -101.683333, zoom = 5)

效果对比 #

• R Leaflet生成的地图效果：
  

• Mapbox Studio中正确显示的Albers投影效果：
  

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