if (FALSE) {
# In a Shiny server function:
# Clear all legends
observeEvent(input$clear_all, {
mapboxgl_proxy("map") %>%
clear_legend()
})
# Clear specific legends by ID
observeEvent(input$clear_specific, {
mapboxgl_proxy("map") %>%
clear_legend(legend_ids = c("legend-1", "legend-2"))
})
# Clear legend after removing a layer
observeEvent(input$remove_layer, {
mapboxgl_proxy("map") %>%
remove_layer("my_layer") %>%
clear_legend(legend_ids = "my_layer_legend")
})
}
Run the code above in your browser using DataLab