Developing Data products - Assignment 1

ppicon <- makeIcon(
  iconUrl = "logo.png",
  iconWidth = 64, iconHeight = 64
)

leaflet(options = leafletOptions(minZoom = 0, maxZoom = 18)) %>% 
  addTiles() %>% 
  addMarkers(lat = -36.78534, lng = 144.22760, 
             popup = "<h3>Peter Prevos</h3><br>Civil Engineer<br>Social Scientist<br>Reality Disruptor<br><br><a href = 'https://peterprevos.com/'>Homepage</a>",
             icon = ppicon)