in this map, i would like to share with you the faculties of my university in Bogota, Colombia, click on the shields and in the name of the facultie and it will redirect you to their web page, I know it is similar to Brianโs exercise, but i wanted to made this beacuse i am really grateful with my university for giving me the opportunity of take this course amd a lot of more
library(leaflet)
Distrital <- makeIcon(iconUrl ="https://upload.wikimedia.org/wikipedia/commons/thumb/2/2e/Escudo_UD.svg/1024px-Escudo_UD.svg.png",
iconWidth = 150, iconHeight = 150,
iconAnchorX = 150, iconAnchorY = 150)
Citieslatlong <- data.frame(lat = c(4.628145,4.579669,4.597288,4.638222,4.613312,4.605299), lng= c(-74.065447,-74.157489,-74.063503,-74.185745,-74.065605,-74.080114))
link <- c("<a href='https://ingenieria.udistrital.edu.co'>Faculty of Engineering</a>",
"<a href='http://ftecnologica.udistrital.edu.co:8080'>Technological Faculty</a>",
"<a href='http://ambiental.udistrital.edu.co:8080'>Faculty of Environment and Natural Resources</a>",
"<a href='http://planeacion.udistrital.edu.co:8080/sede-bosa-porvenir'>University Citadel - Bosa Porvenir</a>",
"<a href='http://fciencias.udistrital.edu.co:8080/es'>Faculty of Science and Education</a>",
"<a href='http://fasab.udistrital.edu.co:8080'>Faculty of Arts</a>")
Citieslatlong %>% leaflet() %>% addTiles() %>% addMarkers(icon= Distrital , popup =link)