我想在R中的传单Map上叠加一张图片，在Overlay image on R leaflet map中找到了一个很好的例子，下面是Andrew Reid的示例代码：

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=-74.22655, lat=40.712216, popup="Bottom Right Corner") %>%
  htmlwidgets::onRender("
      function(el, x) {
        console.log(this);
        var myMap = this;
        var imageUrl = 'http://www.lib.utexas.edu/maps/historical/newark_nj_1922.jpg';
        var imageBounds = [[40.712216, -74.22655], [40.773941, -74.12544]];

        L.imageOverlay(imageUrl, imageBounds).addTo(myMap);
      }
      ")
m  # Print the map

我的问题是如何添加这个图像层的组名，以便我可以显示/隐藏像1（https://rstudio.github.io/leaflet/showhide.html）传单Map层。