Tokyo Station

library(leaflet)
m<-leaflet()
m<-addTiles(m)
m<-addMarkers(m,lng=139.76727500369722, lat=35.68207281264243, popup="Tokyo Station")
m