Commit cc54bc9f authored by vbaudrot's avatar vbaudrot

test 4 immunity

parent 718d29a1
Pipeline #1892 passed with stages
in 3 minutes and 14 seconds
......@@ -315,12 +315,10 @@ server <- function(input, output, session){
#
# Use a separate observer to recreate polygons as needed.
observe({
proxy <- leafletProxy("mapImmunity", data = dataImmunity())
proxy <- leafletProxy("mapImmunity")
# leafletProxy("mapImmunity", data = dataImmunity()) %>%
proxy %>%
addPolygons(#data = dataImmunity(),
# title = ~input$DateSelectImmunty,
addPolygons(data = dataImmunity(),
color = ~palImmunity(Rt_immunity),
fillOpacity = 0.7)
})
......
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