leaflet

##September 3, 2020

library(leaflet)

UFSClogo <- makeIcon(iconUrl = "http://identidade.paginas.ufsc.br/files/2017/10/vertical_sigla_fundo_claro.png", iconWidth = 50*215/230, iconHeight = 50, iconAnchorX = 31*215/230/2, iconAnchorY = 16)

UFSCloc <- data.frame(lat = -27.60, lng = -48.52)

UFSCloc %>% leaflet() %>% addTiles() %>% addMarkers(icon = UFSClogo)