Developing Data Products Assignment

library(leaflet)
setwd("/Users/mspadmin/Documents/DataIncubator")
data <- read.csv("mydata.csv", header=TRUE)
subdata <- data.frame(lat = data$start.station.latitude, lng =  data$start.station.longitude)[1:20, ]
subdata %>%
  leaflet() %>%
  addTiles() %>%
  addCircleMarkers(clusterOptions = markerClusterOptions())