df <- data.frame(lng = c(-79.3957, -79.3788), lat = c(43.6629, 43.6577), institutions = c('University of Toronto', 'Ryerson University'))
websites <- c("<a href = 'https://www.utoronto.ca/'>University of Toronto</a>","<a href = 'https://www.ryerson.ca/'>Ryerson University</a>")
df %>% leaflet() %>% addTiles() %>% addMarkers(popup = websites)## Assuming "lng" and "lat" are longitude and latitude, respectively