tests/testthat/test-cas_show_ts.R

In giocomai/castarter: Content Analysis Starter Toolkit

library("testthat")
test_that("cas_show_ts_dygraph outputs dygraph", {
  expect_equal(
    object = {
      count_df <- castarter::cas_count(
        corpus = castarter::cas_demo_corpus,
        words = c("russia", "moscow")
      ) %>%
        cas_summarise(before = 15, after = 15)

      dy <- cas_show_ts_dygraph(count_df)

      class(dy)
    },
    expected = {
      c("dygraphs", "htmlwidget")
    }
  )
})