Commit 2d16bc16 authored by vbaudrot's avatar vbaudrot

test Observe

parent fcab3741
Pipeline #1898 passed with stages
in 13 minutes and 13 seconds
......@@ -318,18 +318,17 @@ server <- function(input, output, session){
})
#
# Use a separate observer to recreate polygons as needed.
# observe({
#
# proxyImmunity <- leafletProxy("map", data = dataImmunity())
#
# colorpal = palImmunity()
observe({
proxyImmunity <- leafletProxy("mapImmunity", data = dataImmunity())
colorpal = palImmunity()
# proxyImmunity %>%
# clearMarkers() %>%
# clearShapes() %>%
# addPolygons(data = dataImmunity(),
# color = ~colorpal(dataImmunity()$Rt_immunity),
# 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