library(leaflet)

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

uvicICON<-makeIcon(iconUrl ="https://i0.wp.com/www.pbsc.uviclss.ca/wp-content/uploads/2018/05/UVic-Logo.png?fit=835%2C308",
                   iconWidth=31*300/230,iconHeight=31)


vicWeb<-c("<a href='https://www.uvic.ca/'>University of Victoria </a>")


my_map<-leaflet() %>%
  addTiles() %>%
  addMarkers(lat=48.4329,lng=-123.3693,popup="Victoria, British Columbia") %>%
  addMarkers(lat=48.4634,-123.3117,popup=vicWeb,icon=uvicICON)
my_map