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")
})

Try the shiny.semantic package in your browser

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

shiny.semantic documentation built on Nov. 7, 2021, 5:07 p.m.