Week 2 Assignment: R Markdown and Leaflet

Today’s date

25/06/2018

Code and Map

library(leaflet)
library(dplyr)

mySites <- c("<a href = 'https://www.vivocity.com.sg/'>Vivo City</a>")

my_map <- leaflet() %>%
  addTiles() %>%
  addMarkers(lat = 1.264479, lng = 103.821569,
             popup = mySites)

my_map