tests/testthat/test-plt-hist.R

In Rbearcat: University of Cincinnati Themes and Utilities for Econometrics and Data Science

test_that("bcat_plt_hist returns ggplot", {
  p <- bcat_plt_hist(mtcars, x = mpg)
  expect_true(inherits(p, "ggplot"))
})

test_that("bcat_plt_hist works with density overlay", {
  p <- bcat_plt_hist(mtcars, x = mpg, density = TRUE)
  expect_true(inherits(p, "ggplot"))
})

test_that("bcat_plt_hist works with faceting", {
  p <- bcat_plt_hist(mtcars, x = mpg, facet = ggplot2::vars(cyl))
  expect_true(inherits(p, "ggplot"))
})