Leaflet Map

Random location on Earth

library(leaflet)
my_map <- leaflet() %>%
    addTiles()

# Generating random latitude and longitude
randno <- runif(2)
rand_lat <- randno[1]*180 - 90
rand_long <- randno[2]*360 - 180

rand_lat

## [1] 49.69635

rand_long

## [1] 77.61232

my_map <- my_map %>%
    addMarkers(lat=rand_lat, lng=rand_long,
               popup="Random location on Earth")

my_map