Leaflet Dark Map

leaflet() %>% 
  addProviderTiles("CartoDB.DarkMatter") %>% 
  setView(100, 38, 3)