A map of some Scottish Islay whisky distilleries.

Sean R, 21/01/2018

Demonstrating HTML Leaflet map integration from R with KnitR and customised markers

bot<-makeIcon(iconUrl= 'http://d30y9cdsu7xlg0.cloudfront.net/png/17502-200.png', iconWidth=35*215/230, iconHeight = 35, iconAnchorX = 31*215/230/2,iconAnchorY=16 )


my_map <- leaflet() %>% addTiles() 
my_map <- my_map %>% addMarkers(lat=55.6300569, lng= -6.152204, popup="Laphroaig", icon=bot)
my_map <- my_map %>% addMarkers(lat=55.635515, lng= -6.126205, popup="Lagavulin",icon=bot)
my_map <- my_map %>% addMarkers(lat=55.641931, lng= -6.113325, popup="Argbeg",icon=bot)
my_map <- my_map %>% addMarkers(lat=55.68213333, lng= -6.03170872, popup="Ardmore",icon=bot)
my_map <- my_map %>% addMarkers(lat=55.8540991, lng= -6.1093387, popup="Caol Ila",icon=bot)
my_map <- my_map %>% addMarkers(lat=55.7561259, lng= -6.2873101, popup="Bowmore",icon=bot)
my_map <- my_map %>% addMarkers(lat=55.7656877, lng= -6.3619999, popup="Bruichladdich",icon=bot)
my_map <- my_map %>% addMarkers(lat=55.7656877, lng= -6.3619999, popup="Bruichladdich",icon=bot)
my_map <- my_map %>% addMarkers(lat=55.883335, lng= -6.130126, popup="Bruichladdich",icon=bot)


my_map