Change legend appearance

This commit is contained in:
2026-01-21 10:27:21 +01:00
parent 12502c4208
commit 6ef042d072

View File

@@ -67,7 +67,8 @@ server <- function(input, output, session) {
pal <- colorNumeric( pal <- colorNumeric(
palette = "YlOrRd", palette = "YlOrRd",
domain = heatmap_polygons$intensity, domain = heatmap_polygons$intensity,
na.color = "transparent" na.color = "transparent",
alpha = 1
) )
addPolygons(mapproxy, addPolygons(mapproxy,
data = heatmap_polygons, data = heatmap_polygons,