tests/testthat/testoutputs.R

library(shinyLP)
context("Proper HTML outputs")

test_that("panel_div outputs", {
  func <- panel_div(class_type = "primary", panel_title = "title", content = "content")
  expect_is(func, "shiny.tag")
  })
jasdumas/shinyLP documentation built on Oct. 29, 2023, 9:15 a.m.