The official instruction is here:Leaflet-providers
library(leaflet) leaflet() %>% addProviderTiles("MapBox.yutannihilation.jg4m3m49") %>% setView(lng = 139.69, lat = 35.69, zoom = 4)