hide legends corresponding to hidden layers if present. Closes #450

r-spatial · Apr 17, 2024 · dacb8ea · dacb8ea
1 parent 933a020
commit dacb8ea
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/ops.R b/R/ops.R
@@ -77,6 +77,13 @@ setMethod("+",
               ind = hbcalls[zf]
               if (length(zf) > 0) m$x$calls[ind] = NULL
               m = leafem:::addZoomFullButton(m, out_obj)
+
+              hide_idx = getCallEntryFromMap(m, "hideGroup")
+              if (length(hide_idx) > 0) {
+                hide_lst = m$x$calls[hide_idx]
+                m$x$calls[hide_idx] = NULL
+                m$x$calls = append(m$x$calls, hide_lst)
+              }
             }
 
             if (mapviewGetOption("platform") == "mapdeck") {