Map

My First Map

Create a leaflet map object. This is the firsrt map created

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

Created a marker with a picture of BITS-PILANI GOA and a link to its homepage.

bits <- makeIcon(
   iconUrl = "https://media-exp1.licdn.com/dms/image/C4E1BAQGbx02OBWLF8g/company-background_10000/0?e=1592550000&v=beta&t=sMf2oYoarMHm038EnW7Aqq3e8WHpIyEcHyUazIL7EV8",
   iconWidth = 30*408/255, iconHeight = 30,
   iconAnchorX = 30*408/255/2, iconAnchorY = 30/2
)

Add the marker to the map and display the map.

bits <- c("<a href= 'https://www.bits-pilani.ac.in/goa/' >BITS-PILANI GOA<br><img src='https://media-exp1.licdn.com/dms/image/C4E1BAQGbx02OBWLF8g/company-background_10000/0?e=1592550000&v=beta&t=sMf2oYoarMHm038EnW7Aqq3e8WHpIyEcHyUazIL7EV8' width='210' height='132'  alt='Foto Corps de Logis' title='Foto Corps de Logi'></a>")
map %>%
   addTiles() %>%
   addMarkers(lat=15.3911, lng=73.8782, popup = bits)