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")))

})

Try the qdap package in your browser

Any scripts or data that you put into this service are public.

qdap documentation built on May 31, 2023, 5:20 p.m.