tests/testthat/test-plot_count.R

context("test-plot_count")

test_that("plot_count works", {

  library(dplyr)
  expect_is(plot_count(starwars, eye_color, hair_color),
            class = c("gg", "ggplot"))

})
BenjaminLouis/datascan documentation built on May 26, 2019, 1:35 p.m.