context ("add-objects")
test_that ("basemap", {
expect_error (add_osm_objects (), "a non-null map must be provided")
expect_error (add_osm_objects (NULL), "map must be a ggplot2 object")
expect_error (
add_osm_objects (col = 1:4),
"a non-null map must be provided"
)
})
test_that ("obj", {
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- osm_basemap (bbox = bbox, bg = "gray20")
expect_error (add_osm_objects (map), "obj must be provided")
expect_error (
add_osm_objects (map, NULL),
"obj must be a spatial object"
)
})
test_that ("col", {
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- osm_basemap (bbox = bbox, bg = "gray20")
obj <- london$dat_BNR
expect_silent (add_osm_objects (map, obj))
expect_error (
add_osm_objects (map, obj, col = "a"),
"Invalid colour: a"
)
expect_error (
add_osm_objects (map, obj, col = -2),
"Invalid colour: -2"
)
expect_silent (add_osm_objects (map, obj, col = NA))
expect_error (
add_osm_objects (map, obj, col = NULL),
"a non-null col must be provided"
)
})
test_that ("border", {
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- osm_basemap (bbox = bbox, bg = "gray20")
obj <- london$dat_BNR
expect_silent (add_osm_objects (map, obj, border = NULL))
expect_error (
add_osm_objects (map, obj, border = "a"),
"Invalid colour: a"
)
expect_error (
add_osm_objects (map, obj, border = -2),
"Invalid colour: -2"
)
expect_silent (add_osm_objects (map, obj, border = NA))
})
test_that ("size", {
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- osm_basemap (bbox = bbox, bg = "gray20")
obj <- london$dat_BNR
expect_warning (
add_osm_objects (map, obj, size = NULL),
"size should be numeric; defaulting to 0"
)
expect_warning (
add_osm_objects (map, obj, size = "a"),
"size should be numeric; defaulting to 0"
)
expect_warning (
add_osm_objects (map, obj, size = -2),
"size should be positive; defaulting to 0"
)
obj <- london$dat_HP
expect_warning (
add_osm_objects (map, obj, size = NULL),
"size should be numeric; defaulting to 0"
)
expect_warning (
add_osm_objects (map, obj, size = "a"),
"size should be numeric; defaulting to 0.5"
)
expect_warning (
add_osm_objects (map, obj, size = -2),
"size should be positive; defaulting to 0.5"
)
obj <- london$dat_T
expect_warning (
add_osm_objects (map, obj, size = NULL),
"size should be numeric; defaulting to 0"
)
expect_warning (
add_osm_objects (map, obj, size = "a"),
"size should be numeric; defaulting to 0.5"
)
expect_warning (
add_osm_objects (map, obj, size = -2),
"size should be positive; defaulting to 0.5"
)
})
test_that ("shape", {
bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
map <- osm_basemap (bbox = bbox, bg = "gray20")
obj <- london$dat_BNR # shape is ignored
expect_silent (add_osm_objects (map, obj, shape = NULL))
expect_silent (add_osm_objects (map, obj, shape = "a"))
expect_silent (add_osm_objects (map, obj, shape = -2))
obj <- london$dat_HP
expect_warning (
add_osm_objects (map, obj, shape = NULL),
"shape should be numeric; defaulting to 1"
)
expect_warning (
add_osm_objects (map, obj, shape = "a"),
"shape should be numeric; defaulting to 1"
)
expect_warning (
add_osm_objects (map, obj, shape = -2),
"shape should be positive; defaulting to 1"
)
obj <- london$dat_T
expect_warning (
add_osm_objects (map, obj, shape = NULL),
"shape should be numeric; defaulting to 19"
)
expect_warning (
add_osm_objects (map, obj, shape = "a"),
"shape should be numeric; defaulting to 19"
)
expect_warning (
add_osm_objects (map, obj, shape = -2),
"shape should be positive; defaulting to 19"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.