library(leaflet) my_map <- leaflet() %>% addTiles() my_map