tests/testthat/test-tangram.R

In leaflet.extras2: Extra Functionality for 'leaflet' Package

test_that("tangram", {

  scene <- system.file("examples/tangram/www/scene.yaml", package = "leaflet.extras2")

  m <- leaflet() %>%
    addTangram(scene = scene, group = "tangram") %>%
    setView(11, 49.4, 14)
  expect_is(m, "leaflet")

  deps <- findDependencies(m)
  expect_equal(deps[[length(deps)]]$name, "lfx-tangram")
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "addTangram")

})

test_that("tangram-error", {

  expect_error(
    leaflet()  %>%
      addTangram()
  )
  expect_error(
    leaflet()  %>%
      addTangram(scene = NULL)
  )

  expect_error(
    leaflet()  %>%
      addTangram(scene = "scene")
  )

})