R Markdown and Leaflet

Date

print(format(Sys.Date(), format="%B %d %Y"))

## [1] "March 30 2022"

Map of Place of Interest in Singapore

library(leaflet)

placeofinterest <- c("Gardens by the Bay", "Singapore Botanic Gardens", "Jurong Lake Gardens", "Mandai Wildlife Reserve", "Resorts World Sentosa" )
placeofinterest_links <- c("<a href= 'https://www.gardensbythebay.com.sg/'>Gardens by the Bay</a>", "<a href= 'https://www.nparks.gov.sg/sbg'>Singapore Botanic Gardens</a>", "<a href= 'https://www.nparks.gov.sg/juronglakegardens'>Jurong Lake Gardens</a>", "<a href= 'https://www.mandai.com/'>Mandai Wildlife Reserve</a>", "<a href= 'https://www.rwsentosa.com/'>Resorts World Sentosa</a>")

lat <- c(1.2824, 1.3151, 1.3418, 1.4026, 1.2540)

lng <- c(103.8643, 103.8162, 103.7282, 103.7880, 103.8238)

df <- data.frame(placeofinterest, placeofinterest_links, lat, lng)

df %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(lat=lat, lng=lng, popup=placeofinterest_links,clusterOptions=markerClusterOptions)