tests/testthat/test-shading.R

In rstudio/dygraphs: Interface to 'Dygraphs' Interactive Time Series Charting Library

context("dyShading")

test_that("shading creation", {
  d <- dygraph(nhtemp, main = "New Haven Temperatures") %>%
    dyShading(from = "1920-1-1", to = "1930-1-1") %>%
    dyShading(from = "1940-1-1", to = "1950-1-1")
  expect_equal(length(d$x$shadings), 2)
  expect_equal(length(d$x$shadings[[1]]), 4)
  expect_equal(length(d$x$shadings[[2]]), 4)
})