# NOT RUN {
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- osm_basemap (bbox = bbox, bg = 'gray20')
map <- add_osm_objects (map, london$dat_BNR, col = 'gray40')
print_osm_map (map, width = 7) # prints to screen device
# }
# NOT RUN {
print_osm_map (map, file = 'map.png', width = 500, units = 'px')
# }
Run the code above in your browser using DataLab