tests/testthat/test-accordion_sidebar.R

In ijlyttle/bsplus: Adds Functionality to the R Markdown + Shiny Bootstrap Framework

context("accordion sidebar")

library("htmltools")
library("shiny")

acc_sidebar <- bs_accordion_sidebar(id = "test")
acc_sidebar_side <- acc_sidebar[["children"]][[1]]
acc_sidebar_main <- acc_sidebar[["children"]][[2]]
acc_sidebar_side_accordion <- acc_sidebar_side[["children"]][[1]]

test_that("constructor works with defaults", {
  expect_s3_class(acc_sidebar, c("shiny.tag", "bsplus_accordion_sidebar"))
  expect_identical(acc_sidebar[["name"]], "div")
  expect_identical(tagGetAttribute(acc_sidebar, "id"), "test")
  expect_identical(tagGetAttribute(acc_sidebar, "class"), "row")
  expect_identical(attr(acc_sidebar, "bsplus.index_side"), 1)
  expect_identical(attr(acc_sidebar, "bsplus.index_main"), 2)

  expect_identical(acc_sidebar_side[["name"]], "div")
  expect_identical(tagGetAttribute(acc_sidebar_side, "class"), "col-sm-4")
  expect_identical(tagGetAttribute(acc_sidebar_side, "id"), "test-side")

  expect_identical(acc_sidebar_side_accordion[["name"]], "div")
  expect_identical(tagGetAttribute(acc_sidebar_side_accordion, "class"),
                   "panel-group")
  expect_identical(tagGetAttribute(acc_sidebar_side_accordion, "id"),
                   "test-side-accordion")

  expect_identical(acc_sidebar_main[["name"]], "div")
  expect_identical(tagGetAttribute(acc_sidebar_main, "class"), "col-sm-8")
  expect_identical(tagGetAttribute(acc_sidebar_main, "id"), "test-main")
})

test_that("set_opts works", {
  expect_identical(attr(acc_sidebar, "bsplus.panel_type_inactive"),
                   "primary")
  expect_identical(attr(acc_sidebar, "bsplus.panel_type_active"),
                   "success")
})

acc_sidebar <- bs_accordion_sidebar(id = "test", position = "right")
acc_sidebar_main <- acc_sidebar[["children"]][[1]]
acc_sidebar_side <- acc_sidebar[["children"]][[2]]

test_that("constructor with position 'right'", {
  expect_identical(tagGetAttribute(acc_sidebar_side, "class"), "col-sm-4")
  expect_identical(tagGetAttribute(acc_sidebar_main, "class"), "col-sm-8")
})

acc_sidebar <-
  bs_accordion_sidebar(id = "test", spec_side = c(width = 3, offset = 1),
                       spec_main = c(width = 7, offset = 1))
acc_sidebar_side <- acc_sidebar[["children"]][[1]]
acc_sidebar_main <- acc_sidebar[["children"]][[2]]

test_that("constructor with different column-specs", {
  expect_match(tagGetAttribute(acc_sidebar_side, "class"),
                   "col-sm-3", fixed = TRUE)
  expect_match(tagGetAttribute(acc_sidebar_main, "class"),
                   "col-sm-7", fixed = TRUE)
})

js_acc_sidebar <- use_bs_accordion_sidebar()

test_that("javacript-embedder works", {
  expect_identical(
    .tag_validate(js_acc_sidebar, name = "script"),
    js_acc_sidebar
  )
})