tests/testthat/test-examples.R

examples_shinipsum <- list.files(
  system.file("examples", package = "shinipsum")
)

test_that("ggplot creation works", {
  expect_equal(ipsum_examples(), examples_shinipsum)
})
ThinkR-open/shinipsum documentation built on Feb. 10, 2024, 2:16 a.m.