Instruction

Create a web page using R Markdown that features a map created with Leaflet. Host your webpage on either GitHub Pages, RPubs, or NeoCities. Your webpage must contain the date that you created the document, and it must contain a map created with Leaflet. We would love to see you show off your creativity!

Review criteria

The rubric contains the following two questions:

  1. Does the web page feature a date and is this date less than two months before the date that youโ€™re grading this assignment?
  2. Does the web page feature an interactive map that appears to have been created with Leaflet?

Getting started

library(leaflet)

bookstore <- data.frame(lat = c(34.070230, 33.906040, 33.827550, 33.527830), 
                       lng = c(-117.202030, -117.456580, -117.516770, -117.155228))

icon <- makeIcon(
  iconUrl = 'http://is3.mzstatic.com/image/pf/us/r30/Purple3/v4/02/4b/63/024b63df-07c3-2c8a-9962-f62f051aa4d3/mzl.dqkpikzw.jpg',
  iconWidth = 31*215/230, iconHeight = 31,
  iconAnchorX = 31*215/230/2, iconAnchorY = 16
)

bookstore %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(icon = icon)