tests/testthat/test-plot_hist.R

In guidomaggioorg/ShinyProdWorkshopPublic: Shiny4 Demo

test_that("plot_hist produces a plot", {
  bins <- 30
  x <- datasets::faithful[,"waiting"]
  p <- plot_hist(x = x,
                 breaks = seq(min(x), max(x), length.out = bins + 1),
                 freq = T)
  expect_visible(p)
  expect_type(p, "list")
  expect_s3_class(p, "histogram") #expect_s3_class(p, "ggplot")
})