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)
})

Try the shinipsum package in your browser

Any scripts or data that you put into this service are public.

shinipsum documentation built on May 29, 2024, 2:30 a.m.