tests/testthat/test-map_styles.R

In SymbolixAU/mapdeck: Interactive Maps Using 'Mapbox GL JS' and 'Deck.gl'

context("styles")


test_that("style arguments checked", {

	expect_error(mapdeck_style(style = 'abc'))

	expect_equal(mapdeck_style(style = 'streets'), "mapbox://styles/mapbox/streets-v11")
	expect_equal(mapdeck_style(style = 'outdoors'), "mapbox://styles/mapbox/outdoors-v11")
	expect_equal(mapdeck_style(style = 'light'), "mapbox://styles/mapbox/light-v10")
	expect_equal(mapdeck_style(style = 'dark'), "mapbox://styles/mapbox/dark-v10")
	expect_equal(mapdeck_style(style = 'satellite'), "mapbox://styles/mapbox/satellite-v9")
	expect_equal(mapdeck_style(style = 'satellite-streets'), "mapbox://styles/mapbox/satellite-streets-v11")

})