Commit 8762a519 authored by vbaudrot's avatar vbaudrot

fix bug immunity

parent 66ce374d
Pipeline #1887 passed with stages
in 3 minutes and 7 seconds
......@@ -120,6 +120,8 @@ COPY ui.R /srv/shiny-server/${APP_NAME}
COPY server.R /srv/shiny-server/${APP_NAME}
COPY R/* /srv/shiny-server/${APP_NAME}/R/
COPY www /srv/shiny-server/${APP_NAME}/www
COPY www/immun_M3_k.rds /srv/shiny-server/${APP_NAME}/www/immun_M3_k.rds
COPY www/mapFranceDepartement.rds /srv/shiny-server/${APP_NAME}/www/mapFranceDepartement.rds
RUN chown -R shiny.root /srv/shiny-server
......
......@@ -303,16 +303,16 @@ server <- function(input, output, session){
})
pal <- colorNumeric(palette = "YlOrRd",
domain = unlist(immun_M3_k))
domain = unlist(immun_M3_k)*100)
output$mapImmunity <- renderLeaflet({
leaflet(data = dataImmunity()) %>%
addTiles() %>%
fitBounds(~-5.142238, ~42.332755, ~8.231781, ~51.089842) %>%
addLegend(position = "bottomright",
title = "R(t)",
title = "% Immunity",
pal = pal,
values = ~unlist(immun_M3_k))
values = ~unlist(immun_M3_k)*100)
})
......
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