En raison d'une intervention électrique, les services GitLab and co. seront arrêtés le Lundi 12 Octobre au soir pour 24H.

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){ ...@@ -314,21 +314,21 @@ server <- function(input, output, session){
title = "Rate immunity", title = "Rate immunity",
pal = palImmunity(), pal = palImmunity(),
values = ~ unlist(immun_M3_k)) %>% values = ~ unlist(immun_M3_k)) %>%
leaflet::addPolygons( ) leaflet::addPolygons()
}) })
# #
# Use a separate observer to recreate polygons as needed. # Use a separate observer to recreate polygons as needed.
observe({ # observe({
#
proxyImmunity <- leafletProxy("mapImmunity", data = dataImmunity()) # proxyImmunity <- leafletProxy("mapImmunity", data = dataImmunity())
colorpal = palImmunity() # colorpal = palImmunity()
#
proxyImmunity %>% # proxyImmunity %>%
clearShapes() %>% # clearShapes() %>%
leaflet::addPolygons( color = ~colorpal(Rt_immunity), # leaflet::addPolygons( color = ~colorpal(Rt_immunity),
fillOpacity = 0.5 # 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