tests/testthat/test-dygraph.R

In shinipsum: Lorem-Ipsum-Like Helpers for Fast Shiny Prototyping

context("test-dygraph")

test_that("dygraph creation works", {
  lapply(
    1:100, function(x){
      a <- random_dygraph()
      expect_is(a, "dygraphs")
      expect_is(a, "htmlwidget")
      expect_length(a, 8)
    }
  )
})