# setup the library we need
library(leaflet)
# define some interesting links for the map
FY <- "<a href='https://en.wikipedia.org/wiki/Fort_York'>Old Fort York</a>"
CN <- "<a href='https://en.wikipedia.org/wiki/CN_Tower'>CN Tower</a>"
CH <- "<a href='https://en.wikipedia.org/wiki/Toronto_City_Hall'>Toronto City Hall</a>"
TI <- "<a href='https://en.wikipedia.org/wiki/Toronto_Islands'>Toronto Islands</a>"
UofT <- "<a href='https://www.utoronto.ca/'>University of Toronto</a>"
# leaflet code to setup map
my_map <- leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
# define the markers
addMarkers(lat=43.638492, lng=-79.404789, popup= FY) %>%
addMarkers(lat=43.642488, lng=-79.387002, popup= CN) %>%
addMarkers(lat=43.652099, lng=-79.383237, popup= CH) %>%
addMarkers(lat=43.623505, lng=-79.381735, popup= TI) %>%
addMarkers(lat=43.662305, lng=-79.395675, popup= UofT)
# display the map
my_map