Commit cc63461b authored by Virgile Baudrot's avatar Virgile Baudrot

c'est pas l'encodage !!!

parent 4085fdea
Pipeline #1909 passed with stages
in 4 minutes and 22 seconds
......@@ -314,21 +314,21 @@ server <- function(input, output, session){
title = "Rate immunity",
pal = palImmunity(),
values = ~ unlist(immun_M3_k)) %>%
leaflet::addPolygons( )
leaflet::addPolygons()
})
#
# 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