tests/testthat/test-tag_example.R

test_that("tag_example works", {

  tag <- tag_example(class = "myclass")
  expect_is(tag, "shiny.tag")
  expect_identical(tag$attribs$class, "myclass")
})
dreamRs/gfonts documentation built on Jan. 25, 2023, 7:48 p.m.