project 1

Today Date is 2018-12-16

my_map <-leaflet()%>%addTiles()
micky<-makeIcon(
  iconUrl = "D:/mik.png",
  iconWidth = 42, iconHeight = 42,
  iconAnchorX = 0, iconAnchorY= 0
)
my_map<-addMarkers(my_map, lat = 28.417668, lng =  -81.581247, popup = "Fun is HERE!!", icon=micky)
my_map<-addCircles(my_map,lat = 28.418734, lng =  -81.581173, weight = 1, radius = 100, color = "Red")

my_map<-addLegend(my_map, labels = "Magic Kingdom", colors = "red")
my_map