tests/testthat/test-image.R

test_that("ggplot creation works", {
  lapply(
    1:100, function(x){
      a <- random_image()
      expect_true(file.exists(a$src))
    }
  )
})

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.