Developing Data Products Peer Assignment Week 2

This map was published on: May 30, 2020

library(leaflet)
SCLatLong <- data.frame(
  lat = c(36.9741, 37.04, 37.012601, 37.0, 36.958496166  ),
  lng = c(-122.0308, -121.877, -122.001795, -122.06, -122.017333264))

santacruz <- c(
  "City of Santa Cruz, CA",
  "Loma Prieta Earthquake",
  "Mystery Spot",
  "University of California, Santa Cruz",
  "Santa Cruz Beach Boardwalk")
    

SCLatLong %>% leaflet() %>%
    addTiles() %>%
    addMarkers(popup=santacruz)