Instructions

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

Created map for singapore iconic place - Esplanade and Marina Bay Sands

library(knitr)
library(leaflet)

## This version of Shiny is designed to work with 'htmlwidgets' >= 1.5.
##     Please upgrade via install.packages('htmlwidgets').

library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

EsplanadeMarker <- c("<a href= 'https://www.esplanade.com/' >Esplanade<br><img src='https://en.wikipedia.org/wiki/File:Esplanade_Theatres_on_the_Bay_Singapore_at_blue_hour.jpg' width='210' height='132'  alt='Esplanade' title='Esplanade'></a>")

MBSMarker <- c("<a href= 'https://www.marinabaysands.com/' >Marina Bay Sands<br><img src='https://commons.wikimedia.org/wiki/File:2016_Singapur,_Downtown_Core,_Marina_Bay_Sands_i_ArtScience_Museum_(10).jpg' width='210' height='132'  alt='Marina Bay Sands' title='Marina Bay Sands'></a>")

map <- leaflet() %>% 
   addTiles() %>%
   addMarkers(lat=1.2898, lng=103.8558, popup = EsplanadeMarker)
map %>%
   addTiles() %>%
   addMarkers(lat=1.2834, lng=103.8608, popup = MBSMarker)