Commit 4085fdea authored by vbaudrot's avatar vbaudrot

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