Introduction

Create a web page using R Markdown that features a map created with Leaflet.

Host your webpage on either GitHub Pages, RPubs, or NeoCities.

Your webpage must contain the date that you created the document, and it must contain a map created with Leaflet. We would love to see you show off your creativity!

UEW Map

library(leaflet)
uew <- leaflet() %>% 
  addTiles()
uew

Custom Markers

uewIcon <- makeIcon(
  iconUrl = "D:/DS/R/Coursera/Data Science Specialization/courses-master/09_DevelopingDataProducts/Projects/P1/Leaflet Project/UEW/uew_logo_web.png",
  iconWidth = 31*251/230, iconHeight = 31,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

UEW data

uewLatLong <- data.frame(
  lat = c(5.3621, 5.3616, 5.3611, 5.3610, 5.360, 5.3612, 5.368, 5.3693, 5.3689, 5.3704, 5.3699, 5.3712, 5.3703),
  lng = c(-0.63318, -0.63376, -0.63358, -0.63268, -0.63322, -0.63134, -0.62927, -0.62985, -0.62882, -0.62819,                   -0.63084, -0.63102, -0.63129))

UEW sites

uewSites <- c(
  "Main Administration", "Pecku BUilding", "Pecku Annex", "Home Economics", "IDEL", " Art Education", "Holy Spirit Catholic CHurch", "UEW Clinic", "Credit Union", "Jophus Anamoah Auditorium", "Food Court", "Faculty Building 1", "Faculty Building 2"
)

Map

uewLatLong %>% 
  leaflet() %>% 
  addTiles() %>% 
  addMarkers(icon = uewIcon, popup = uewSites)