tests/testthat/test-autoplot.R

In bench: High Precision Timing of R Expressions

test_that("autoplot works", {
  skip_on_cran()
  skip_if_not_installed("ggplot2")
  skip_if_not_installed("tidyr")
  skip_if_not_installed("ggbeeswarm")
  y <- mark(x = 1:1000)
  expect_s3_class(ggplot2::autoplot(y), "ggplot")
  expect_s3_class(plot(y), "ggplot")
})