tests/testthat/test-fav.R

test_that("fav generates the expected html", {
  test_result <- fav("earth-africa", fill = "blue")
  expect_s3_class(test_result, "shiny.tag")
  expect_snapshot({
    htmltools::doRenderTags(test_result)
  })
})

Try the favawesome package in your browser

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

favawesome documentation built on Nov. 1, 2024, 5:07 p.m.