NULL Island

library(leaflet)
library(htmltools)

my_map <- leaflet() %>% setView(lat = 0,lng = 0, zoom=4) %>%
  addTiles() %>%
  addMarkers(lat = 0,lng = 0, popup = "NULL Island") %>%
  addControl("My Map", position = "bottomright" )

my_map