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 Nov. 26, 2018, 6:55 a.m.