# NOT RUN {
# load leaflet package
library(leaflet)
l <- leaflet()
# get the polygons
p <- getTargomoPolygons(source_lat = 51.5007, source_lng = -0.1246,
options = targomoOptions(travelType = "bike"))
# draw them on the map
l %>% drawTargomoPolygons(polygons = p, group = "BigBenBike")
# note could combine get... and draw... into one with add...
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab