Map Webpage made with Leaflet

knitr::opts_chunk$set(echo = TRUE)

library(leaflet)

map <- leaflet() %>% addTiles()



mapHtml <- map %>% addMarkers(lat=39.951537, lng = -75.167004, popup = "Best Cheesesteak Place in Philly: Steves", clusterOptions = markerClusterOptions())
mapHtml <- mapHtml %>% addMarkers(lat=39.941596, lng = -75.149398, popup = "2nd Best Cheesesteak Place in Philly: Jims", clusterOptions = markerClusterOptions())
mapHtml <- mapHtml %>% addMarkers(lat=39.951365, lng = -75.170516, popup = "3rd Best Cheesesteak Place in Philly: Cleavers", clusterOptions = markerClusterOptions())


mapHtml

The three best cheesesteak places (in my opinion) in Philly are shown below, make sure to order a “Whiz Wit”!