Developing Data Products -Module 3 - Assignment

Plotting Map

The map below shows The Eiffel Tower

library(leaflet)

# 1. Create the map widget
my_map <- leaflet() %>% 

  # 2. Add default OpenStreetMap map tiles
  addTiles() %>%

  # 3. Add a marker with a popup
  addMarkers(lng = 2.2945, 
             lat = 48.8584, 
             popup = "<b>Hello!</b><br>I am the Eiffel Tower.")


my_map