tests/testthat/test-add-axes.R

In mpadge/urbanplotr: Bespoke Images of 'OpenStreetMap' Data

context ("add-axes")

test_that ("basemap object", {
    expect_error (add_axes (), "map must be supplied to add_axes")
    expect_error (add_axes (NULL), "map must be a ggplot2 object")
    expect_error (
        add_axes (colour = "red"),
        "map must be supplied to add_axes"
    )
})

test_that ("colour", {
    bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
    map <- osm_basemap (bbox = bbox, bg = "gray20")
    expect_error (add_axes (map, colour = "a"), "Invalid colour: a")
    expect_silent (add_axes (map, color = "red"))
})

test_that ("pos", {
    bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
    map <- osm_basemap (bbox = bbox, bg = "gray20")
    expect_warning (
        add_axes (map, pos = 1:3 / 10),
        "Only the first two elements of pos will be used"
    )
    expect_warning (
        add_axes (map, pos = "a"),
        "pos must be numeric; using default values"
    )
    expect_silent (add_axes (map, position = 0.1))
    # NOTE: there are grep problems in test_that for this expect_warning
    # expect_warning (add_axes (map, pos = c(-0.1,1.2)),
    #                "pos not in [0,1]; using default values")
})

test_that ("alpha values", {
    bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
    map <- osm_basemap (bbox = bbox, bg = "gray20")
    # NOTE: there are grep problems in test_that for this expect_warning
    # expect_warning (add_axes (map, alpha = -1),
    #                "alpha not in [0,1]; using default of 0.4")
    expect_warning (
        add_axes (map, alpha = 1:2),
        "Only the first element of alpha will be used"
    )
    expect_warning (
        add_axes (map, alpha = "a"),
        "alpha must be numeric; using default value"
    )
})

test_that ("fontsize", {
    bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
    map <- osm_basemap (bbox = bbox, bg = "gray20")
    expect_warning (
        add_axes (map, fontsize = -1),
        "fontsize must be positive; using default value"
    )
    expect_warning (
        add_axes (map, fontsize = 1:2),
        "Only the first element of fontsize will be used"
    )
    expect_warning (
        add_axes (map, fontsize = "a"),
        "fontsize must be numeric; using default value"
    )
    expect_silent (add_axes (map, size = 1))
    expect_warning (
        add_axes (map, size = -1),
        "fontsize must be positive; using default value"
    )
    expect_warning (
        add_axes (map, size = 1:2),
        "Only the first element of fontsize will be used"
    )
    expect_warning (
        add_axes (map, size = "a"),
        "fontsize must be numeric; using default value"
    )
})

test_that ("other_font_properties", {
    bbox <- get_bbox (c (-0.13, 51.5, -0.11, 51.52))
    map <- osm_basemap (bbox = bbox, bg = "gray20")
    expect_silent (add_axes (map, face = 1))
    expect_silent (add_axes (map, family = 1))
})