リーフレットにWMSを追加

Question

私は、このマップ（下記）をナショナルマップのWMSを介してRのリーフレットに入れようとしましたが、何の成功もありませんでした。ここで

https://raster.nationalmap.gov/arcgis/services/LandCover/USGS_EROS_LandCover_NLCD/MapServer/WMSServer?request=GetMap&service=WMS&Version=1.3.0&BBOX=-14497453.9,248608.9,-7087933.9,6960328.9&Styles=&Format=image/png&layers=33&crs=EPSG:3857&width=600&height=400&Transparent=true

私のコードです：

map <- leaflet() %>% addTiles() %>% 
addWMSTiles(baseUrl="https://raster.nationalmap.gov/ArcGIS/services/LandCover/USGS_EROS_LandCover_NLCD/MapServer/WMSServer?", 
layers = "33", 
group = "NLCD", 
options = WMSTileOptions(
format = "image/png", 
version = "1.3.0", 
transparent = TRUE)) %>% 
addLayersControl(
overlayGroups = c("NLCD"), 
position = 'bottomleft') 

map 

Answer 1

私は問題を発見しました。 RStudioビューアコンソールを見ると、各ラスタイメージに対して「リソースを読み込めませんでした：SSLコンテキストを初期化できません」というメッセージが表示されます。他の誰かがこの問題にぶつかると、それはRStudioビューアの問題であり、現在修正プログラムを作成中です。ブラウザでhtmlとして実行すると正しく表示されます。シャイニーの場合も同様です。