Is it possible to have more than one pop-up in the same map?

[bmaparicio]

Hi, I have a map with several layers. I want to display a pop-up with the data of the layer that is on, but I can't do it. The only pop-up that shows is from the last layer created (it overwrites the other). In the figure below, obj_1 does not show any pop-up when clicking, but obj_3 does (the last layer created).

Is there a way to have one pop-up per layer? Thanks!

[tim-salabim]

Can we get a reproducible example showing the issue?

[bmaparicio]

Yes. Here is an open dataset:

library(leaflet) library(leafgl) library(sf) library(spData)

data("hawaii")

my_data<-sf::st_cast(hawaii,"POLYGON")%>% st_transform(crs = 4326)

set.seed(42)

create data

my_data$obj_1 <- sample(1:500,nrow(my_data),replace=TRUE) my_data$obj_3 <- sample(1000:10000,nrow(my_data),replace=TRUE)

create palette

cols_obj1=colourvalues::colour_values_rgb(my_data$obj_1, palette = "cividis",include_alpha = FALSE) cols_obj2=colourvalues::colour_values_rgb(my_data$obj_3, palette = "cividis",include_alpha = FALSE)

palFunc_objective_1 <- leaflet::colorNumeric(viridis::cividis(nrow(my_data)), my_data$obj_1)

palFunc_objective_2 <- leaflet::colorNumeric(viridis::cividis(nrow(my_data)), my_data$obj_3)

all_groups_leaflet<-c("obj_1","obj_3")

leaflet::leaflet() %>% leaflet::addProviderTiles('Esri.NatGeoWorldMap', group = "Esri.NatGeoWorldMap") %>% leafgl::addGlPolygons(data = my_data, fillOpacity = 0.75, color = cols_obj1, opacity = 1, popup = "obj_1", weight = 0.1, group = "obj_1") %>% leaflet::addLegend(data=my_data, "topright", pal = palFunc_objective_1, values = ~my_data$obj_1 , title = "obj_1", group = "obj_1", opacity = 1)%>%

leafgl::addGlPolygons(data = my_data, fillOpacity = 0.75, color = cols_obj2, opacity = 1, popup = "obj_3", weight = 0.1, group = "obj_3") %>% leaflet::addLegend(data=my_data, "topleft", pal = palFunc_objective_2, values = ~my_data$obj_3 , title = "obj_3", group = "obj_3", opacity = 1)%>% leaflet::addLayersControl(overlayGroups = all_groups_leaflet, options = leaflet::layersControlOptions(collapsed = F)) %>%

leaflet::hideGroup(all_groups_leaflet)%>% leaflet.extras::addFullscreenControl(position = "topleft", pseudoFullscreen = FALSE)