tests/testthat/test-panel.R

In dreamRs/shinyWidgets: Custom Inputs Widgets for Shiny

context("panel")


test_that("Default", {

  tagp <- panel(
    "Content goes here",
    shiny::checkboxInput(inputId = "id1", label = "Label")
  )
  expect_is(tagp, "shiny.tag")
  expect_true(grepl(tagp$attribs$class, pattern = "panel"))
  expect_true(grepl(tagp$attribs$class, pattern = "panel-default"))
})


test_that("With header and footer", {

  tagp <- panel(
    "Content goes here",
    shiny::checkboxInput(inputId = "id2", label = "Label"),
    heading = "My title",
    footer = "Something"
  )
  expect_true(grepl(pattern = "panel-heading", x = as.character(tagp)))
  expect_true(grepl(pattern = "panel-footer", x = as.character(tagp)))
})


test_that("With status", {

  tagp <- panel(
    "Content goes here",
    shiny::checkboxInput(inputId = "id3", label = "Label"),
    heading = "My title",
    status = "primary"
  )
  expect_is(tagp, "shiny.tag")
  expect_true(grepl(tagp$attribs$class, pattern = "panel"))
  expect_true(grepl(tagp$attribs$class, pattern = "panel-primary"))
})