tests/testthat/test-plots.R

In easystats/see: Model Visualisation Toolbox for 'easystats' and 'ggplot2'

test_that("`plots()` works", {
  skip_if_not_installed("patchwork")

  p1 <- ggplot(iris, aes(x = Petal.Length, y = Sepal.Width)) +
    geom_point()
  p2 <- ggplot(iris, aes(x = Petal.Length)) +
    geom_density()

  expect_s3_class(plots(p1, p2), "ggplot")
})