---

Title: “Leaflet Map - Week 2 Project”

Author: “Rui Hu”

Date: “October 6th, 2017”

Click on the building icons to see their websites.

library(leaflet)
GTicon<-makeIcon(
  iconUrl = "https://cdn0.iconfinder.com/data/icons/isometric-city-basic-buildings/136/building-02-128.png",
  iconWidth = 50
)
departmentLatLong<-data.frame(
  lat=c(33.7724217,33.7733404,33.7817018),
  lng=c(-84.3969802,-84.4048105,-84.405948)
)
departmentSites<-c(
  "<a href='http://www.bursar.gatech.edu/'>Georgia Tech Bursar's Office</a>",
  "<a href='http://ohr.gatech.edu/'>Georgia Tech Human Resources</a>",
  "<a href='http://www.grants.gatech.edu/'>Georgia Tech Grants & Contracts</a>"
)

departmentLatLong<-
  departmentLatLong%>%
  leaflet() %>%
  addTiles()%>%
  addMarkers(icon=GTicon,popup=departmentSites)

departmentLatLong