Change legend appearance
This commit is contained in:
3
server.R
3
server.R
@@ -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,
|
||||||
|
|||||||
Reference in New Issue
Block a user