tests/testthat/test-busy-bar.R

context("busy-bar")

test_that("busy_bar works", {

  tag_busy_bar <- busy_bar()

  expect_is(tag_busy_bar, "shiny.tag.list")
  expect_true(length(htmltools::findDependencies(tag_busy_bar)) > 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.