Week2_project

library(leaflet)
df <- data.frame(lat = 33.93519,
                 lng = -83.37520)


df %>%
  leaflet() %>%
  addTiles() %>%
  addCircleMarkers(popup = "My Apartment")