inst/test-hex-logo.R

testthat::test_that("hex_logo works", {
  tmp_file <- tempfile(fileext = ".png")
  out <- hex_logo(out_filename = tmp_file)
  testthat::expect_equal(file.exists(tmp_file), TRUE)
  unlink(tmp_file)
  testthat::expect_equal(file.exists(tmp_file), FALSE)
})

Try the NHSRplotthedots package in your browser

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

NHSRplotthedots documentation built on Nov. 5, 2025, 5:11 p.m.