tests/testthat/test-plots.R

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")
})
easystats/see documentation built on June 11, 2025, 11:49 a.m.