Peer-graded Assignment: R Markdown and Leaflet

By Sandy Sng
4 June 2018

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!

Below is an interactive map of some popular tourist destinations in Singapore!

library(leaflet) 

SingaporeSightsLatLong <- data.frame(lat = c(1.250111, 1.3644, 1.2834, 1.3040), 
                                     lng = c(103.830933, 103.9915, 103.8607, 103.8320))

SightNames <- c("Sentosa Island, Singapore", "Changi Airport, Singapore", "Marina Bay Sands, Singapore", "ION Orchard, Singapore")

my_map <- SingaporeSightsLatLong %>%
        leaflet() %>% 
        addTiles() %>% 
        addMarkers(popup = SightNames)

my_map