Interactive map test

library(leaflet)

Let’s make some maps!!!

UFRNIcon <- makeIcon(
  iconUrl = "https://www.ufrn.br/resources/documentos/identidadevisual/logotipo/logotipo_flat.png",
  iconWidth = 31*215/230, iconHeight = 31,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

leaflet() %>% addTiles()%>%
  addMarkers(lat=-5.8397873, lng=-35.2017443, 
             popup="<a href='https://www.ufrn.br/'>UFRN</a>", icon = UFRNIcon)