Data Products Mid term project - Map Script

library(leaflet)

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addMarkers(lng=-87.8317807, lat=42.126944, popup="Northbrook Home")
m  # Print the map