I am trying to create a leaflet map in shiny that displays the navionics overlays, but I have zero experience in javascript. How do I add the below javascript to my leaflet map in R?

Please heeeeelp!

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);

Basic leaflet map

library(leaflet)

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