append image to popup content if already present. #14

r-spatial · May 1, 2021 · 1c68195 · 1c68195
1 parent d478fa8
commit 1c68195
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/inst/htmlwidgets/popup.js b/inst/htmlwidgets/popup.js
@@ -41,7 +41,14 @@ LeafletWidget.methods.imagePopup = function(image, group, width, height, src, na
     wdth = width[imgid];
     hght = height[imgid];
     if (imgid <= image.length) {
-      pop = "<image src='" + img[imgid] + "'" + " height=" + hght + " width=" + wdth + ">";
+      popimg = "<image src='" + img[imgid] + "'" + " height=" + hght + " width=" + wdth + ">";
+      poporig = layer.getPopup();
+      if (poporig === undefined) {
+        pop = popimg
+      } else {
+        pop = poporig._content + popimg
+      }
+
       if (tooltip === true) {
         layer.bindTooltip(pop, dotlist); //{ maxWidth: 2000 });
       } else {