Untitled

This is my first map.

# loading libraries
library(leaflet)

## Warning: package 'leaflet' was built under R version 3.4.2

This is a map of where I am right now

# creating the variable to assign the map to 

mymap <- addTiles(leaflet())

# now adding the current location and the popup 

mymap <- mymap %>%
        addMarkers(lat = 22.5726, lng = 88.3639, popup = "This is where I stay now")
mymap

This is a map of where I would be going on 4th Dec’17

# the new map 
mymap1 <- addTiles(leaflet())

# now adding the current location and the popup 

mymap1 <- mymap1 %>%
        addMarkers(lat = 8.7139, lng = 77.7567, popup = "This is where I would be going")
mymap1