scatterplot manual legend

[dcooley]

The colours don't show up in the legend

set_token( secret::get_secret("mapbox") )

df <- capitals
df$my_colour <- ifelse( substr(df$country, 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)


mapdeck() %>%
	add_scatterplot(
		data = capitals
		, fill_colour = "country"
		, legend = js
	)