mapstyles.R
In mapscanner: Print Maps, Draw on Them, Scan Them Back in

## ----pkg-load, echo = FALSE, message = FALSE----------------------------------
library (mapscanner)

## ----map-gen, eval = FALSE----------------------------------------------------
#  bb <- osmdata::getbb ("<name of location>")
#  shrink <- 0.3 # shrink that bounding box to 30% size
#  bb <- t (apply (bb, 1, function (i)
#                   mean (i) + c (-shrink, shrink) * diff (i) / 2))
#  
#  ms_generate_map (bbox = bb,
#                   max_tiles = 16L,
#                   mapname = "map-light",
#                   style = "light")
#  ms_generate_map (bbox = bb,
#                   max_tiles = 16L,
#                   mapname = "omaha-streets",
#                   style = "streets",
#                   bw = FALSE)
#  ms_generate_map (bbox = bb,
#                   max_tiles = 16L,
#                   mapname = "omaha-outdoors",
#                   style = "outdoors",
#                   bw = FALSE)