LeafletAssignment

My First Leaflet Map

library(leaflet)

## Warning: package 'leaflet' was built under R version 4.0.5

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

ManipalIcon <- makeIcon(
   iconUrl = "https://manipal.edu/content/dam/manipal/mu/default-thumbnail-images/200x224/manipal-building-200x224.jpg",
   iconWidth = 30*408/255, iconHeight = 30,
   iconAnchorX = 30*408/255/2, iconAnchorY = 30/2
)

ManipalPopup <- c("<a href= 'https://manipal.edu' >Manipal University<br><img src='https://manipal.edu/content/dam/manipal/mu/default-thumbnail-images/200x224/manipal-building-200x224.jpg' width='210' height='132'  alt='MAHE Building' title='MAHE Building'></a>")
map %>%
   addTiles() %>%
   addMarkers(lat=13.35315, lng=74.7848, popup = ManipalPopup)