tests/testthat/test-image.R

test_that("ggplot creation works", {
  lapply(
    1:100, function(x){
      a <- random_image()
      expect_true(file.exists(a$src))
    }
  )
})
ThinkR-open/shinipsum documentation built on Feb. 10, 2024, 2:16 a.m.