Developing Data Products Week 2 Assignment

My Interactive Map

## Loading leaflet package.
library (leaflet)

## Creating map of Singapore.
my_map <- leaflet() %>%
addTiles()

## Creating a marker and link to website of Marina Bay Sands, Singapore.
Marinabaysands <- c("<a href= 'http://www.marinabaysands.com' >Marina Bay Sands</a>")
leaflet() %>%
addTiles() %>%
addMarkers(lat=1.2835627, lng=103.8584985, popup = Marinabaysands)