My Project

This is my report

This is my report

This is my report

library(leaflet)

m <- leaflet()
m <- addTiles(m)
m <- setView(m, lng=101.436537, lat=3.418457, zoom = 16 ) 
m <- addMarkers(m, lng=101.436537, lat=3.418457, popup="The place that I like")
m