RMarkdown and Leaflet Assignment

My map

library(leaflet)

The date right now is the First of July, 2021.

df <- data.frame(lat = runif(500, min = 51.4, max = 51.5),
                 lng = runif(500, min = -0.2, max = -0.1))
df %>% 
        leaflet() %>%
        addTiles() %>%
        addMarkers(clusterOptions = markerClusterOptions())