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)
})
nhs-r-community/NHSRplotthedots documentation built on May 13, 2024, 1:06 a.m.