Map of Zaltbommel

Assignment

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:

• Does the web page feature a date and is this date less than two months before the date that you’re grading this assignment?
• Does the web page feature an interactive map that appears to have been created with Leaflet?

Sys.Date()

## [1] "2017-12-02"

My map

I created a map of my hometown, the city of Zaltbommel. Zaltbommel is a 1000 year old city (980 AD) and has some interesting places to visit. I created popups for the most important places.

Preparing the data

Zaltbommel <- data.frame(lat = c(51.814508, 51.813527, 51.811311, 51.811490, 51.813911, 51.812078, 51.813026, 51.814813, 51.813654, 51.813523, 51.812706), 
                              lng = c(5.246423, 5.247170, 5.249021, 5.250358, 5.249856, 5.252072, 5.242728, 5.246850, 5.247444, 5.250289, 5.246928))

Plaatsen = c("My home", "City hall", "museum", "theatre", "hospital", "Sint maarten church", "harbour", "Gate Waterpoort", "Market square", "Old fish market", "Mikwe (old jewish bath)")

Building the map

The map of Zaltbommel including the important places is build.

Zaltbommel %>% 
        leaflet() %>% 
        addTiles() %>% 
        addMarkers(popup = Plaatsen)