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 April 28, 2018, 1:14 p.m.