BowpiEjemplo

I Choose to show the Map of “Universidad Rafael Landivar”, the college where I studied, adding a marker that contains a link to the college web page.

library(leaflet)

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

BOWPIicon <- makeIcon(
  iconUrl = "https://tec.gt/wp-content/uploads/2020/03/40597087_320844058650708_74876870700564480_n.jpg",
  iconWidth = 31*215/230,
  iconHeight = 31,
  iconAnchorX = 31*215/230/2,
  iconAnchorY = 16
)

df <- data.frame(lat = 14.622310, lng = -90.514439)

df %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(
    icon = BOWPIicon,
    popup= '<a href = "https://bowpi.com/es/inicio/"> BOWPI </a>'
          )