R Markdown and Leaflet

February 8, 2018

library(leaflet)
my_map <- leaflet() %>% 
  addTiles()
duomoIcon<-makeIcon(
    iconUrl = "https://encrypted-tbn0.gstatic.com/images?q=tbn:ANd9GcRlxNfr7dedYZOEIaqOQFSXcvTVHsdRdbV_oNWJ_bYF-5RlAKOuDw",
    iconWidth = 31*215/230, iconHeight = 31,
    iconAnchorX = 31*215/230/2, iconAnchorY = 16
)
my_map<-my_map %>% addMarkers(lat=45.464211,lng=9.191383,popup = "Duomo di Milano",icon = duomoIcon)
my_map