tests/testthat/test-crosstalk.R

In devOpifex/g2r: Interactive Grammar of Graphics

test_that("Crosstalk", {
  expect_error(g2() %>% crosstalk_select())
  expect_error(g2() %>% crosstalk_select("fill"))

  sd <- crosstalk::SharedData$new(cars)

  g <- g2(sd, asp(speed, dist)) %>%
    fig_interval() %>%
    crosstalk_select("fill", on = "green", off = "grey") %>%
    crosstalk_select("stroke", on = "black", off = "grey")

  expect_length(g$x$crosstalk_select, 2)
  expect_equal(g$x$crosstalk_select[[1]]$attribute, "fill")
  expect_equal(g$x$crosstalk_select[[2]]$attribute, "stroke")
})