Leaflet Demonstration for Wageningen

library(leaflet)
m <- leaflet()
m <- addTiles(m)
m <- addMarkers(m, lng = 5.665349, lat = 51.987870, popup = "Wageningen University")
m