tests/testthat/test-dispersion_plot.R

context("Checking colSplit")

test_that("dispersion_plot outputs a ggplot object",{

    m <- dispersion_plot(raj$dialogue, c(" love ", "love", " night ", "night"), plot=FALSE)
    expect_true(all(class(m) == c("gg", "ggplot")))

})
trinker/qdap documentation built on Sept. 30, 2020, 6:28 p.m.