# \donttest{
sf <- spatialwidget::widget_melbourne
sf$my_colour <- ifelse( substr(sf$SA2_NAME, 1, 1) == "A", "#00FF00FF", "#FF0000FF")
l1 <- legend_element(
variables = c("Begins with A", "Doesn't begin with A")
, colours = c("#00FF00FF", "#FF0000FF")
, colour_type = "fill"
, variable_type = "category"
)
js <- mapdeck_legend(l1)
set_token( "MAPBOX_TOKEN" )
mapdeck() %>%
add_legend(legend = js, layer_id = "my_layer")
mapdeck() %>%
add_legend(legend = js, layer_id = "my_layer") %>%
clear_legend(layer_id = "my_layer")
# }
Run the code above in your browser using DataLab