Today’s date is: 16/07/2020
library(leaflet)
## Warning: package 'leaflet' was built under R version 4.0.2
# download here: https://data.humdata.org/dataset/ourairports-aus
airports <- read.csv("au-airports.csv")
my_map <- leaflet() %>%
addTiles() %>%
addMarkers(lat=airports$latitude_deg, lng=airports$longitude_deg,
popup=airports$name,
clusterOptions = markerClusterOptions())
my_map