This is a map of covered brides in Venice. It currently has only two covered bridges.

Make a list of covered brigdes in Venice. ## List of covered bridges in Venice

realtoIcon = makeIcon(
  iconUrl = "https://upload.wikimedia.org/wikipedia/commons/1/18/Ponte_di_Rialto%2C_Canal_Grande.jpg",    
  iconWidth = 30*408/255, iconHeight = 30,
  iconAnchorX = 30*408/255/2, iconAnchorY = 30/2)

sospiriIcon = makeIcon(
  iconUrl = "https://upload.wikimedia.org/wikipedia/commons/c/ca/Antonio_Contin_-_Ponte_dei_sospiri_%28Venice%29.jpg", 
  iconWidth = 30*408/255, iconHeight = 30,
  iconAnchorX = 30*408/255/2, iconAnchorY = 30/2)

realtoPopup <- c("<a href='https://en.wikipedia.org/wiki/Rialto_Bridge'>Realto Bridge</a>")
sospiriPopup <- c("<a href='https://en.wikipedia.org/wiki/Bridge_of_Sighs'>Bridge of Sighs</a>")

Add Markers and Display

#Create a leaflet map object
cBmap <- leaflet() %>%
  addTiles() %>%
  # Add Markers along with icons and popup
  addMarkers(lat = 45.4384, lng = 12.3356, icon = realtoIcon, popup = realtoPopup) %>%
  addMarkers(lat = 45.4340, lng = 12.3408, icon = sospiriIcon, popup = sospiriPopup)
  
# Display Map
cBmap