revdep/checks.noindex/see/new/see.Rcheck/tests/testthat/test-plots.R

requiet("patchwork")

test_that("`plots()` works", {
  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")
})
aloy/qqplotr documentation built on Feb. 2, 2023, 4:56 a.m.