Assignment: R Markdown and Leaflet

Map using leaflet

5 Random places at Bangalore

library(leaflet)
set.seed(5000)
df <- data.frame(lat=runif(5,min=12.9716,max=12.9799),lng=runif(5,min=77.5946,max=77.5999),popup="asdasd")

my_map <- df %>% leaflet() %>% addTiles() %>% addMarkers(popup=c("Random place 1","Place 2","Place 3","Place 4","Place 5"))
my_map