Nothing
context ("print-osm-map")
test_all <- (identical (Sys.getenv ("MPADGE_LOCAL"), "true") |
identical (Sys.getenv ("GITHUB_WORKFLOW"), "test-coverage"))
test_that ("print_osm_map", {
dat_B <- london$dat_BNR # nolint
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- osm_basemap (bbox = bbox, bg = "gray20")
map <- add_osm_objects (map, dat_B)
#exts <- c ("eps", "ps", "tex", "pdf", "svg", "png",
# "jpg", "jpeg", "bmp", "tiff")
# svg fails on travis osx with r: release
exts <- c ("eps", "ps", "tex", "pdf", "png",
"jpg", "jpeg", "bmp", "tiff")
for (e in exts) {
fname <- paste0 ("map.", e)
expect_silent (print_osm_map (map, width = 5, height = 4,
filename = fname,
units = "in"))
expect_true (fname %in% list.files ())
}
if (test_all) {
for (e in exts)
file.remove (paste0 ("map.", e))
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.