Developing data Products - Assignment Week 2

library(leaflet)

mijn_kaart <- leaflet()

mijn_kaart <-  mijn_kaart %>% 
  addMarkers(lat=-6.132804, lng=106.812952, popup="Batavia")  %>% 
  addMarkers(lat=-6.586321, lng=106.804249, popup="Bogor")  %>% 
  addMarkers(lat=-6.705681, lng=106.993346, popup="Puncak")  %>% 
  addMarkers(lat=-6.823896, lng=107.133606, popup="Cianjur")  %>% 
  addMarkers(lat=-6.908833, lng=106.944000, popup="Sukabumi")

mijn_kaart <-  mijn_kaart %>% 
  addTiles()

Jawa Timur

mijn_kaart