Peer-graded Assignment: R Markdown and Leaflet

24 May 2020

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

library(leaflet)
set.seed(123)
df<-data.frame(lng=runif(20,min=103.7198,max=103.7598),lat=runif(20,min=1.2521,max=1.3521))
df%>%
  leaflet()%>%
  addTiles()%>%
  addMarkers(clusterOptions = markerClusterOptions())