Commit 773c8820 authored by vbaudrot's avatar vbaudrot

test add blue polygon

parent 50453f9d
Pipeline #1904 passed with stages
in 3 minutes and 12 seconds
......@@ -301,7 +301,6 @@ server <- function(input, output, session){
return(mapFranceDepartement) # return
})
palImmunity <- reactive({
colorNumeric(palette = "YlOrRd", domain = unlist(immun_M3_k))
})
......@@ -314,21 +313,24 @@ server <- function(input, output, session){
addLegend(position = "bottomright",
title = "Rate immunity",
pal = palImmunity(),
values = ~ unlist(immun_M3_k))
values = ~ unlist(immun_M3_k)) %>%
leaflet::addPolygons(# color = ~colorpal(Rt_immunity),
# fillOpacity = 0.5
)
})
#
# Use a separate observer to recreate polygons as needed.
observe({
proxyImmunity <- leafletProxy("mapImmunity", data = dataImmunity())
colorpal = palImmunity()
# proxyImmunity %>%
# clearShapes() %>%
# leaflet::addPolygons(# color = ~colorpal(Rt_immunity),
# # fillOpacity = 0.5
# )
})
# observe({
#
# proxyImmunity <- leafletProxy("mapImmunity", data = dataImmunity())
# colorpal = palImmunity()
#
# proxyImmunity %>%
# clearShapes() %>%
# leaflet::addPolygons( color = ~colorpal(Rt_immunity),
# fillOpacity = 0.5
# )
# })
}
\ No newline at end of file
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment