Change legend appearance

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,