add easybutton with both tm_facets and tmap_leaflet

[arnaudmilet]

Hi, Thank you so much for this great package which is very usefull and easy to use.
I try to toggle the legend on an interactive facets map. It works with simple map but not with facets map. Can you help me please?
Thanks in advance:)

The error is "Error in dispatch(map, method, leaflet = { : Invalid map parameter"

Here is the code that we can use:

#1- Works
data(World, metro)
metro$growth <- (metro$pop2020 - metro$pop2010) / (metro$pop2010 * 10) * 100

map1 <- tm_shape(metro) +
  tm_bubbles("pop2010", col = "growth", 
             border.col = "black", 
             border.alpha = .5, 
             style="fixed", breaks=c(-Inf, seq(0, 6, by=2), Inf),
             palette="-RdYlBu", contrast=1, 
             title.size="Metro population", 
             title.col="Growth rate (%)", id="name") + 
  tm_layout(legend.bg.color = "grey90", legend.bg.alpha=.5, legend.frame=TRUE)


lf1 <- tmap_leaflet(map1)

lf1 %>% 
  addEasyButton(easyButton(
    icon = htmltools::span("L"),
    onClick = JS("function(btn, map){$('.legend').toggle();}")))

#2- doesn't work

map2 <- tm_shape(World) +
  tm_polygons(c("well_being", "life_exp"),
              style=c("pretty", "fixed"), breaks=list(NULL, seq(45, 85, by = 5)),
              palette=list("Oranges", "Purples"),
              border.col = "black",
              title=c("Well-Being Index", "Life Expectancy")) +
  tm_format("World")

lf2 <- tmap_leaflet(map2)

lf2 %>% 
  addEasyButton(easyButton(
    icon = htmltools::span("L"),
    onClick = JS("function(btn, map){$('.legend').toggle();}")))

[mtennekes]

Somehow missed this one @arnaudmilet. That's a handy button!

For facets tmap uses leafsync. The returned output is no longer a leaflet object, but a container.

Apparently, lf2[[1]][[1]]$children[[1]] is a leaflet object. This kind of works:

lf2[[1]][[1]]$children[[1]] = lf2[[1]][[1]]$children[[1]] %>% 
	addEasyButton(easyButton(
		icon = htmltools::span("L"),
		onClick = JS("function(btn, map){$('.legend').toggle();}")))
print(lf2)

Anything to add @tim-salabim?

[tim-salabim]

Nope