fix for leaflegend

r-spatial · Sep 10, 2024 · ce56b82 · ce56b82
1 parent de9deb2
commit ce56b82
Show file tree

Hide file tree

Showing 3 changed files with 44 additions and 8 deletions.
diff --git a/inst/htmlwidgets/lib/layerviewcontrol/layerviewcontrol.css b/inst/htmlwidgets/lib/layerviewcontrol/layerviewcontrol.css
@@ -4,4 +4,5 @@
   box-shadow: unset !important;
   margin: 0;
   left: 13px;
-}
+}
+
diff --git a/inst/htmlwidgets/lib/layerviewcontrol/layerviewcontrol.js b/inst/htmlwidgets/lib/layerviewcontrol/layerviewcontrol.js
@@ -95,6 +95,20 @@ LeafletWidget.methods.extendLayerControl = function(viewSettings, homeSettings,
           appendToLabel(controlId, legendContainer)
         }
       });
+
+      // Fix for leaflegend package
+      let elements = document.querySelectorAll('[class*="leaflegend-group"]');
+      elements.forEach(function(element) {
+        // Find the class that starts with 'leaflegend-group-'
+        let groupClass = Array.from(element.classList).find(cls => cls.startsWith('leaflegend-group-'));
+
+        if (groupClass) {
+          // Extract everything after 'leaflegend-group-'
+          let groupName = groupClass.split('leaflegend-group-')[1];
+          appendToLabel(groupName, element)
+        }
+      });
+
     }
     setTimeout(moveLegends, 40);
     map.on('overlayadd baselayerchange', () => setTimeout(moveLegends, 20));

diff --git a/inst/test_layerviewcontrol.R b/inst/test_layerviewcontrol.R
@@ -2,13 +2,16 @@ library(sf)
 library(shiny)
 library(leaflet)
 library(leaflet.extras)
+library(leaflegend)
 library(leafem)
 options("shiny.autoreload" = TRUE)
 
 # Example data ##########
 breweries91 <- st_as_sf(breweries91)
 lines <- st_as_sf(atlStorms2005)
-polys <- st_as_sf(leaflet::gadmCHE)
+data("gadmCHE")
+gadmCHE@data$x <- sample(c('A', 'B', 'C'), nrow(gadmCHE@data), replace = TRUE)
+polys <- st_as_sf(gadmCHE)
 overlay1 <- "Overlay with Legend (orange)"
 overlay2 <- "Overlay with Legend (blue)"
 
@@ -96,21 +99,39 @@ ui <- fluidPage(
   leafletOutput("map", height = 800)
 )
 
+## Server ##################
 server <- function(input, output, session) {
   output$map <- renderLeaflet({
+
+    factorPal <- colorFactor(c('#1f77b4', '#ff7f0e' , '#2ca02c'), gadmCHE@data$x)
+    binPal <- colorBin('Set1', lines$MaxWind, bins = 4)
+    quantPal <- colorQuantile('Reds', lines$MaxWind, n = 3)
+
     m <- leaflet() %>%
       ## Baselayer ##########
       addTiles(group = "Base_tiles1") %>%
       addProviderTiles("CartoDB", group = "Base_tiles2") %>%
 
       ## Overlays ##########
       addCircleMarkers(data = breweries91, group = "breweries91") %>%
-      addCircleMarkers(data = pts, group = "random_points", color = "red", weight = 1) %>%
-      addPolylines(data = lines, group = "atlStorms2005") %>%
-      addPolygons(data = polys, group = "gadmCHE") %>%
-      addCircleMarkers(data = dfnew, ~x, ~y, color = ~palnew(z), group = overlay1) %>%
-      addCircleMarkers(data = dfnew, ~x, ~y, color = ~palnew2(z), group = overlay2) %>%
-      addLegend(data = dfnew, pal = palnew, layerId = overlay1, values = ~z,  group = overlay1, position = "bottomleft") %>%
+      addCircleMarkers(data = pts, opacity = 1, fillOpacity = .4,
+                       group = "random_points", color = "red", weight = 1) %>%
+      # addLegendSize(values = 1, color = 'red', shape  = 'circle', breaks = 1, group = "random_points", layerId="random_points") %>%
+      addLegendImage(images = makeSymbol(shape="circle", color = "red", opacity = 1, fillOpacity = .4, width = 10),
+                     labels = "", group = "random_points", layerId="random_points",
+                     orientation = 'horizontal') %>%
+      addPolylines(data = lines, color = ~quantPal(MaxWind), label=~MaxWind, group = "atlStorms2005") %>%
+      addLegendQuantile(data = lines, pal = quantPal, values = ~MaxWind, numberFormat = NULL,
+                        group = "atlStorms2005", position = 'topright') %>%
+      addPolygons(data = polys, color = ~factorPal(x), label=~x, group = "gadmCHE") %>%
+      addLegendFactor(pal = factorPal, shape = 'polygon', fillOpacity = .5,
+                      opacity = 0, values = ~x,
+                      position = 'topright', data = gadmCHE, group = 'gadmCHE') %>%
+      addCircleMarkers(data = dfnew, ~x, ~y, color = ~palnew(z), label=~z, group = overlay1) %>%
+      addCircleMarkers(data = dfnew, ~x, ~y, color = ~palnew2(z), label=~z, group = overlay2) %>%
+      addLegendNumeric(orientation = "horizontal", width = 180, height = 20,
+                       data = dfnew, pal = palnew, layerId = overlay1,
+                       values = ~z,  group = overlay1, position = "bottomleft") %>%
       addLegend(data = dfnew, pal = palnew2, layerId = overlay2, values = ~z, group = overlay2, position = "bottomleft") %>%
 
       ## extendLayerControl ##########