From 6ef042d072fb6b90bac358d9286c162c1caccf36 Mon Sep 17 00:00:00 2001
From: Millicool <milena.j.schneeberger@gmail.com>
Date: Wed, 21 Jan 2026 10:27:21 +0100
Subject: [PATCH] Change legend appearance

---
 server.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/server.R b/server.R
index b9e80e1..ef7ef56 100644
--- a/server.R
+++ b/server.R
@@ -67,7 +67,8 @@ server <- function(input, output, session) {
       pal <- colorNumeric(
         palette = "YlOrRd",
         domain = heatmap_polygons$intensity,
-        na.color = "transparent"
+        na.color = "transparent",
+        alpha = 1
       )
       addPolygons(mapproxy,
         data = heatmap_polygons,