从R传单中的Javascript传单地图重建坐标变换的问题

底部是Javascript代码，它设法在荷兰坐标系（Rijksdriehoekstelsel）中添加地图。我试图在R的传单中重拍，但由于某种原因，我只得到了一个灰色的屏幕

这些选项中的大多数都适用于我拥有的不同Tilelayer，但在某些分辨率的lvl中，这一个是不可靠的，所以我真的需要让这一个工作

resolutions <- c(3440.640, 1720.320, 860.160, 430.080, 215.040, 107.520,     53.760, 26.880, 13.440, 6.720, 3.360, 1.680, 0.840, 0.420)


epsg28992 <- leafletCRS(crsClass = 'L.CRS.Simple', code = 'EPSG:28992',
                   proj4def = '+proj=sterea +lat_0=52.15616055555555 +lon_0=5.38763888888889 +k=0.9999079 +x_0=155000 +y_0=463000 +ellps=bessel +towgs84=565.4171,50.3319,465.5524,1.9342,-1.6677,9.1019,4.0725 +units=m +no_defs ',
                   resolutions = resolutions,
                 projectedBounds = c(-285401.92, 22598.08, 595401.9199999999, 903401.9199999999))

leaflet(options = leafletOptions( infinite=FALSE,
                              crs = epsg28992, 
                              maxZoom =14)) %>%
setView(5.389,52, zoom = 5) %>%
addTiles('http://geodata.nationaalgeoregister.nl/wmts/?SERVICE=WMTS&REQUEST=GetTile&VERSION=1.0.0&LAYER=opentopoachtergrondkaart&TILEMATRIXSET=EPSG:28992&TILEMATRIX=EPSG:28992:{z}&TILEROW={y}&TILECOL={x}&FORMAT=image/png',
tileOptions(minZoom=0,maxZoom=14))

分辨率%
添加瓷砖（'http://geodata.nationaalgeoregister.nl/wmts/?SERVICE=WMTS&REQUEST=GetTile&VERSION=1.0.0&LAYER=opentopoachtergrondkaart&TILEMATRIXSET=EPSG:28992&TILEMATRIX=EPSG:28992:{z} &TILEROW={y}&TILECOL={x}&FORMAT=image/png',，
tileOptions（最小缩放=0，最大缩放=14））

proj4def、分辨率、平铺、平铺选项、投影边界、CRS类和代码都是相同的。。。唯一不同的是项目的非项目部分，但我不知道R中的等价物是什么，我也不认为这很重要

var kaart=L.map（“kaart”{
crs:L.crs.RD，
});
变量def='+proj=sterea+lat_0=52.1561605555555+lon_0=5.387638888889+k=0.999079+x_0=155000+y_0=463000+ellps=bessel+towgs84=565.4171,50.3319465.5524,1.9342，-1.6677,9.1019,4.0725+单位=m+no_def'；
变量proj4RD=proj4（'WGS84'，def）；
var maxZoom=16；//阿莱恩·德沙伦t/m 14 zijn officieel vastgesteld
var标度=3440.640；
变量比例=[]
对于（var i=0；i