My First Leaflet Map

My First Leaflet Map

Create a leaflet map object.

library(leaflet)
map <- leaflet() %>% addTiles()

Create a marker with a picture of Benrath Palace and a link to its homepage.

nusIcon <- makeIcon(
   iconUrl = "http://www.nus.edu.sg/images/default-source/base/logo.png",
   iconWidth = 30*408/255, iconHeight = 30,
   iconAnchorX = 30*408/255/2, iconAnchorY = 30/2
)

Add the marker to the map and display the map.

nus <- c("<a href= 'http://www.nus.edu.sg' >NUS<br><img src='http://www.nus.edu.sg/images/default-source/base/logo.png' width='210' height='132'  alt='NUS' title='NUS'></a>")
map %>%
   addTiles() %>%
   addMarkers(lat=1.297362, lng= 103.778042, popup = nus)