Developing Data Products Project #1:

library("leaflet")
## This version of Shiny is designed to work with 'htmlwidgets' >= 1.5.
##     Please upgrade via install.packages('htmlwidgets').
David_map = leaflet() %>%
      addTiles() %>%
      addMarkers(lat=38.29954172360533 , lng=-76.63821894733236 , popup = "Action Lounge and Billiards")

David_map