tests/testthat/test-create_density_ridge_plot.R

In deandevl/RplotterPkg: R Plotting Functions Using 'ggplot2'

test_that("create_density_ridge_plot() namespaces", {
  expect_true(requireNamespace("data.table", quietly = TRUE))
  expect_true(requireNamespace("ggplot2", quietly = TRUE))
  expect_true(requireNamespace("gtable", quietly = TRUE))
  expect_true(requireNamespace("ggplotify", quietly = TRUE))
  expect_true(requireNamespace("vdiffr", quietly = TRUE))
})

test_that("create_density_ridge_plot()", {
  expect_snapshot({
    variables_v <- c("HS_Diploma", "College_Edu", "Prof_Deg", "White", "Black", "Asian")

    a_plot <- RplotterPkg::create_density_ridge_plot(
      df = RplotterPkg::midwest,
      bw = "sj",
      variables = variables_v,
      title = "Percent Distribution Among Midwest Counties",
      x_limits = c(0, 100),
      x_major_breaks = seq(0, 100, 10),
      density_fill = "blue",
      density_alpha = 0.5,
      plot_heights = 2.5,
      plot_widths = 18
    )
  })
  expect_true(is.ggplot(a_plot))
  vdiffr::expect_doppelganger("create_density_ridge_plot()", a_plot)
  expect_no_error(ggplot_build(a_plot))
})