This map displays Fatal Aviation Accidents as published in the NTSB dataset on kaggle: https://www.kaggle.com/khsamaha/aviation-accident-database-synopses
The pop-up shows the accident date.
library(data.table)
library(leaflet)
accidents <- fread(file="E:/Coursera/DataProducts/AviationDataEnd2016UP.csv")
accidents <- accidents[complete.cases(accidents$Latitude),]
accidents <- accidents[complete.cases(accidents$Longitude),]
accidents[!is.na(accidents$Total.Serious.Injuries),] %>%
leaflet() %>%
addTiles() %>%
addMarkers(clusterOptions = markerClusterOptions(), popup = ~Event.Date)## Assuming 'Longitude' and 'Latitude' are longitude and latitude, respectively