Medical Faculties of Portugal

# Already added college as my data frame with both latitude and longitude columns
library(leaflet)
Sites <- c(
    "<a href='https://www.med.uminho.pt/pt'>ECS</a>",
    "<a href='https://sigarra.up.pt/fmup/pt/web_page.inicial'>FMUP</a>",
    "<a href='https://sigarra.up.pt/icbas/pt/web_page.inicial'>ICBAS</a>",
    "<a href='https://www.uc.pt/fmuc'>FMUC</a>",
    "<a href='http://www.medicina.ulisboa.pt'>FML</a>",
    "<a href='http://www.nms.unl.pt/main/index.php?lang=pt'>NMS</a>",
    "<a href='http://www.fcsaude.ubi.pt'>FCS-UBI</a>"
)

Icons <- iconList(
    ECS = makeIcon(iconUrl = "https://lh5.googleusercontent.com/-ZyH6N1ZSIU0/AAAAAAAAAAI/AAAAAAAAAA8/6An8-z7bzV0/s0-c-k-no-ns/photo.jpg", iconWidth = 80, iconHeight = 80),
    FMUP = makeIcon(iconUrl = "http://medicina.med.up.pt/im/trabalhos08_09/www/t5/images/logo_fmup_uporto2.jpg", iconWidth = 50, iconHeight = 80),
    ICBAS = makeIcon(iconUrl = "https://sigarra.up.pt/icbas/pt/imagens/LogotipoSI", iconWidth = 80, iconHeight = 40),
    FMUC = makeIcon(iconUrl = "http://www.uc.pt/fmuc/identidadevisual/fmucimrgb?hires",iconWidth = 80, iconHeight = 40),
    FML = makeIcon(iconUrl = "http://www.medicina.ulisboa.pt/wp-content/uploads/PVP.jpg", iconWidth = 70, iconHeight = 80),
    NMS = makeIcon(iconUrl = "https://run.unl.pt/retrieve/99186", iconWidth = 80, iconHeight = 60),
    FCSUBI = makeIcon(iconUrl = "https://ubibliorum.ubi.pt/retrieve/25559", iconWidth = 80, iconHeight = 80)
)

colleges %>% leaflet() %>% addTiles() %>% addMarkers(lat = colleges$lat, lng = colleges$lng, icon = Icons[colleges$Faculdade], popup = Sites, clusterOptions = markerClusterOptions())