leaflet-assignment

Points of Interest in Singapore

This simple map shows five places of interest in Singapore.

sgLatLong <- data.frame(
    lat = c(1.4043,1.3187,1.2540,1.2494,1.3778),
    lng = c(103.7930,103.7064,103.8238,103.8303,103.9543))

The icon of lion symbolizes Singapore.

sgIcon <- makeIcon(
    iconUrl = "https://upload.wikimedia.org/wikipedia/en/b/bb/Singapore_lion_head_symbol.png",
    iconWidth = 31*215/230, iconHeight = 31,
    iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

Click on the icons to see the websites of the POI and click on it to go to their respective websites.

sgSites <- c(
    "<a href='http://www.zoo.com.sg/'>Zoo</a>",
    "<a href='https://www.birdpark.com.sg'>Bird Park</a>",
    "<a href='http://www.rwsentosa.com'>Universal Studios</a>",
    "<a href='http://www.sentosa.com.sg/'>Sentosa</a>",
    "<a href='http://www.wildwildwet.com/'>Wild Wild Wet</a>"
)

Interactive map of Singapore

sgLatLong %>% 
    leaflet() %>%
    addTiles() %>%
    addMarkers(icon = sgIcon, popup = sgSites)