library(leaflet)
## Warning: package 'leaflet' was built under R version 3.6.3
new_icon <- awesomeIcons(
icon = 'ios-close',
iconColor = 'black',
library = 'ion',
markerColor = "yellow"
)
content <- paste(sep = "<br/>",
"<b>IIM Shillong</b>",
"Nongthymmai",
"Shillong, 793014"
)
my_map <- leaflet() %>%
addTiles() %>%
addAwesomeMarkers(lat = 25.559108, lng = 91.904229,
icon = new_icon,
popup = "One of the premier B-Schools in India") %>%
addPopups(lat = 25.559108, lng = 91.904229, content,
options = popupOptions(closeButton = FALSE)
)
my_map