Assignment: R Markdown and Leaflet

Tokyo Station, Japan

December 3, 2021

R Code

library(leaflet)
tokyo <- data.frame(lat=35.681, lng=139.767)
tokyo %>%
        leaflet() %>%
        addTiles() %>%
        addMarkers(popup="Tokyo Station")