tests/testthat/test-plot.describe_distribution.R

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

test_that("`plot.see_parameters_distribution()` works", {
  set.seed(333)
  x <- sample.int(100, 1000, replace = TRUE)
  result <- datawizard::describe_distribution(x)
  expect_s3_class(plot(result), "gg")

  result <- datawizard::describe_distribution(iris)
  expect_true(all(vapply(plot(result), inherits, "gg", FUN.VALUE = logical(1L))))

  result <- datawizard::describe_distribution(iris, select = "Sepal.Length")
  expect_true(all(vapply(plot(result), inherits, "gg", FUN.VALUE = logical(1L))))
})