Как добавить leafletjs в r leaflet map для оверлеев Navionics?

#javascript #r #shiny #leaflet

#javascript #r #блестящий #листовка

Вопрос:

Я пытаюсь создать карту-листовку в shiny, которая отображает наложения navionics, но у меня нулевой опыт работы с javascript. Как мне добавить приведенный ниже javascript в мою карту листовок в R?

Пожалуйста, помогите!

Javascript:

 var map = L.map('nautical-non-transparent-map-container');
var overlay=new JNC.Leaflet.NavionicsOverlay({
    navKey: 'navionics_key',
    chartType: JNC.NAVIONICS_CHARTS.NAUTICAL,
    isTransparent: false,
    // Enable Navionics logo without payoff (default behaviour)
    logoPayoff: false
    zIndex: 1
});
map.setView([36.140751,-5.353585], 14);
overlay.addTo(map);
 

Базовая карта листовок

 library(leaflet)

leaflet(options = leafletOptions( zoomControl = TRUE, dragging = TRUE))%>%
  addTiles(group = "Open Street Map")%>%
  fitBounds(121.8, -33.9, 122.3, -33.96)