tests/testthat/test-busy-gif.R

context("busy-gif")

test_that("add_busy_gif works", {

  tag_busy_gif <- add_busy_gif(logo_silex())

  expect_is(tag_busy_gif, "shiny.tag.list")
  expect_true(length(htmltools::findDependencies(tag_busy_gif)) > 0)
})

Try the shinybusy package in your browser

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

shinybusy documentation built on Nov. 23, 2023, 5:06 p.m.