Touristic attractions in Rio de Janeiro

These are the main touristic attraction in Rio de de Janeiro city. The description was copied from their respective entries in Wikipedia.

Click on the flags below to see a link to their Wikipedia definitions.

library("leaflet")
df<- data.frame(lat=c(-22.951944,-22.948611,-22.966944),
                lng=c(-43.210556,-43.157222,-43.180556))
icon<-makeIcon(
    iconUrl="http://icons.iconarchive.com/icons/custom-icon-design/round-world-flags/96/Brazil-icon.png",
    iconWidth=31*215/230,
    iconHeight = 31,
    iconAnchorX = 31*215/230/2,
    iconAnchorY = 16 )
sites<-c("<a href='https://en.wikipedia.org/wiki/Christ_the_Redeemer_(statue)'>Christ Redeemer</a>",
         "<a href='https://en.wikipedia.org/wiki/Sugarloaf_Mountain'>Sugarloaf Mountain</a>",
         "<a href='https://en.wikipedia.org/wiki/Copacabana,_Rio_de_Janeiro#Copacabana_Beach'>Copacabana Beach</a>")
leaflet(df) %>%
    addTiles() %>%
    addMarkers(popup=sites,icon=icon)