tests/testthat/test_tooltips.R

In crazycapivara/deckgl: An R Interface to 'deck.gl'

context("tooltips")

test_that("pickable not set", {
  # Prepare
  sample_data <- "some-sample-data"
  properties <- list(
    tooltip = "{{points.length}}"
  )

  # Act
  deckgl <- deckgl() %>%
    add_hexagon_layer(data = sample_data, properties = properties)

  # Assert
  expect_equal(get_layer_props(deckgl)$pickable, TRUE)
})

test_that("pickable set to FALSE", {
  # Prepare
  sample_data <- "some-sample-data"
  properties <- list(
    pickable = FALSE,
    getTooltip = "{{points.length}}"
  )

  # Act
  deckgl <- deckgl() %>%
    add_hexagon_layer(data = sample_data, properties = properties)

  # Assert
  expect_equal(get_layer_props(deckgl)$pickable, FALSE)
})