tests/testthat/test_uirender.R

context("uirender")

test_that("test uirender missing values", {
  expect_error(uirender())
})

test_that("test uirender output type", {
  expect_is(uirender(div(class = "demo", "p")), "uirender")
  expect_is(uirender(div(class = "demo", "p")), "htmlwidget")
})
Appsilon/shiny.semantic documentation built on April 21, 2024, 5:49 p.m.