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

Commit 4085fdea authored by Virgile Baudrot's avatar Virgile Baudrot

test encodage UTF8

parent 773c8820
Pipeline #1905 passed with stages
in 3 minutes and 38 seconds
......@@ -296,7 +296,7 @@ server <- function(input, output, session){
selection=rep(TRUE,95)
selection[20] = FALSE
dataImmunity <- reactive({
mapFranceDepartement$Rt_immunity =
mapFranceDepartement[["Rt_immunity"]] =
immun_M3_k[[as.character(input$DateSelectImmunty)]][selection]
return(mapFranceDepartement) # return
})
......@@ -314,23 +314,21 @@ server <- function(input, output, session){
title = "Rate immunity",
pal = palImmunity(),
values = ~ unlist(immun_M3_k)) %>%
leaflet::addPolygons(# color = ~colorpal(Rt_immunity),
# fillOpacity = 0.5
)
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