# Add mortality markers to map
observe({
xy <- allData()
if (nrow(xy) > 0) {
is.muerto <- input$muerto
if (is.null(is.muerto)) { NULL }
if (isTRUE(is.muerto)) {
xy <- mortality()
xy <- addParentageData(xy, parents = inputFileParentage())
muerto <- makeIcon(iconUrl = "icons/death.png", iconWidth = 20, iconHeight = 20)
leafletProxy(mapId = "map", data = xy) %>%
addMarkers(lat = ~lat, lng = ~lng,
icon = muerto,
popup = populatePopup(xy),
group = "muerto")
}
if (!isTRUE(is.muerto)) {
leafletProxy(mapId = "map") %>%
clearGroup(group = "muerto")
}
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.