tests/testthat/test-plt-box.R

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

test_that("bcat_plt_box returns ggplot", {
  p <- bcat_plt_box(mtcars, x = factor(cyl), y = mpg)
  expect_true(inherits(p, "ggplot"))
})

test_that("bcat_plt_box works as violin plot", {
  p <- bcat_plt_box(mtcars, x = factor(cyl), y = mpg, violin = TRUE)
  expect_true(inherits(p, "ggplot"))
})

test_that("bcat_plt_box works with coord_flip", {
  p <- bcat_plt_box(mtcars, x = factor(cyl), y = mpg, coord_flip = TRUE)
  expect_true(inherits(p, "ggplot"))
})