Developing Data Products: Leaflet Assignment

#Load Leaflet
suppressPackageStartupMessages(require(leaflet))

#Today's date
date()

## [1] "Wed Jan  9 23:42:54 2019"

#Create map using Leaflet
map<-leaflet() %>% addTiles()

#Show map
map