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