Developing Data Products Week 2

Adding One marker

library(leaflet)

## Warning: package 'leaflet' was built under R version 3.3.2

USF <- c("<a href= 'http://https://www.usf.edu' >USF</a>")
leaflet() %>%
addTiles() %>%
addMarkers(lat=28.058694, lng=-82.413929, popup = USF)

Adding Many markers

set.seed(2016-04-25)
df <- data.frame(lat = runif(20, min = 28.054771, max = 28.068485),
                 lng = runif(20, min = -82.425386, max = -82.394288))
df %>% 
  leaflet() %>%
  addTiles() %>%
  addMarkers(clusterOptions = markerClusterOptions())