Developing Data Products Week2 Assignment

library(leaflet)

my_map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat = 48.858370, lng = 2.294481,
             popup = "Patrick's School")
my_map